crypto/openssl/perl/t/03-bio.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16


BEGIN { 
    $| = 1; 
    print "1..1\n";
}
END {
	print "not ok 1\n" unless $ok;
}

use OpenSSL;
my $bio = OpenSSL::BIO::new("mem") || die;
undef $bio;

$ok = 1;
print "ok 1\n";