03-bio.t

来自「一个用于点对点传输加密的工具包源码」· T 代码 · 共 17 行

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";