[libnet-openid-common-perl] 18/34: move bi2bytes tests here from -Server

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to annotated tag v1.030099_001
in repository libnet-openid-common-perl.

commit e60adeaf0448654e8a81d50d0895c6717c6740c7
Author: Robert Norris <rob at eatenbyagrue.org>
Date:   Thu Nov 4 19:52:33 2010 +1100

    move bi2bytes tests here from -Server
---
 t/06-bi2bytes.t | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/t/06-bi2bytes.t b/t/06-bi2bytes.t
new file mode 100644
index 0000000..ecd43cc
--- /dev/null
+++ b/t/06-bi2bytes.t
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+    
+use strict;
+use Test::More tests => 1080;
+use Net::OpenID::Common;
+use Math::BigInt;
+    
+for my $num (1..1080) {
+    my $bi = Math::BigInt->new("$num");
+    my $bytes = OpenID::util::bi2bytes($bi);
+    my $bi2 = OpenID::util::bytes2bi($bytes);
+    is($bi,$bi2);
+}
+

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-openid-common-perl.git