test/recipes/90-test_memleak.t


1
2
3
4
5
6
7
8

#! /usr/bi/nperl

use OpenSSL::Test;

setup("test_memleak");
plan tests => 2;
ok(run(test(["memleaktest"])), "running leak test");
ok(run(test(["memleaktest", "freeit"])), "running no leak test");