diff options
Diffstat (limited to 'lib/libssl/src/perl/tt.pl')
| -rw-r--r-- | lib/libssl/src/perl/tt.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/libssl/src/perl/tt.pl b/lib/libssl/src/perl/tt.pl new file mode 100644 index 00000000000..80ec88b2a83 --- /dev/null +++ b/lib/libssl/src/perl/tt.pl @@ -0,0 +1,15 @@ +#!/usr/bin/perl + +use ExtUtils::testlib; + +use SSLeay; + +for ($i=1; $i<1000; $i++) + { + $a.=$i%10; + $y=SSLeay::BN::dec2bn($a); + $z=SSLeay::BN::bn2dec($y); + + print "$a\n$y\n$z\n"; + } + |