summaryrefslogtreecommitdiffstats
path: root/perl/t
diff options
context:
space:
mode:
Diffstat (limited to 'perl/t')
-rw-r--r--perl/t/01-use.t13
-rw-r--r--perl/t/02-version.t10
-rw-r--r--perl/t/03-bio.t16
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";
+