Update Math-BigInt to CPAN version 1.999811

[perl5.git] / cpan / Math-BigInt / t / from_hex-mbi.t

diff --git a/cpan/Math-BigInt/t/from_hex-mbi.t b/cpan/Math-BigInt/t/from_hex-mbi.t
index 2bb1301..246b455 100644 (file)
--- a/cpan/Math-BigInt/t/from_hex-mbi.t
+++ b/cpan/Math-BigInt/t/from_hex-mbi.t
@@ -3,13 +3,16 @@
 use strict;
 use warnings;
 
-use Test::More tests => 344;
+use Test::More tests => 1373;
 
 my $class;
 
 BEGIN { $class = 'Math::BigInt'; }
 BEGIN { use_ok($class); }
 
+my @data;
+my $space = "\t\r\n ";
+
 while (<DATA>) {
     s/#.*$//;           # remove comments
     s/\s+$//;           # remove trailing whitespace
@@ -17,6 +20,15 @@ while (<DATA>) {
 
     my ($in0, $out0) = split /:/;
 
+    push @data, [ $in0, $out0 ],
+                [ $in0 . $space, $out0 ],
+                [ $space . $in0, $out0 ],
+                [ $space . $in0 . $space, $out0 ];
+}
+
+for my $entry (@data) {
+    my ($in0, $out0) = @$entry;
+
     # As class method.
 
     {