Import of old SSLeay release: SSLeay 0.9.0b

[openssl.git] / perl / t.pl

diff --git a/perl/t.pl b/perl/t.pl
new file mode 100644 (file)
index 0000000..650d0ef
--- /dev/null
+++ b/perl/t.pl
@@ -0,0 +1,12 @@
+#!/usr/local/bin/perl
+
+use ExtUtils::testlib;
+
+use SSLeay;
+
+$a=SSLeay::BN::dec2bn("1231353465324563455");
+print "a=$a\n".$a->bn2dec."\n";
+$b=SSLeay::BN::dec2bn("98790816238765235");
+print "a=$a\nb=$b\n";
+print $a->gcd($b)."\n";
+