diff options
Diffstat (limited to 'perl/t')
-rw-r--r-- | perl/t/01-use.t | 13 | ||||
-rw-r--r-- | perl/t/02-version.t | 10 | ||||
-rw-r--r-- | perl/t/03-bio.t | 16 |
3 files changed, 39 insertions, 0 deletions
diff --git a/perl/t/01-use.t b/perl/t/01-use.t new file mode 100644 index 0000000000..e24fd1f504 --- /dev/null +++ b/perl/t/01-use.t @@ -0,0 +1,13 @@ + +BEGIN { + $| = 1; + print "1..1\n"; +} +END { + print "not ok 1\n" unless $loaded; +} +use OpenSSL; +$loaded = 1; +print "ok 1\n"; + + diff --git a/perl/t/02-version.t b/perl/t/02-version.t new file mode 100644 index 0000000000..8b5f6a0c97 --- /dev/null +++ b/perl/t/02-version.t @@ -0,0 +1,10 @@ + +print "1..1\n"; +use OpenSSL; +if ($OpenSSL::VERSION ne '') { + print "ok 1\n"; +} +else { + print "not ok 1\n"; +} + diff --git a/perl/t/03-bio.t b/perl/t/03-bio.t new file mode 100644 index 0000000000..e3ed7ed842 --- /dev/null +++ b/perl/t/03-bio.t @@ -0,0 +1,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"; + |