diff options
Diffstat (limited to 'demos/perl/test.pl')
-rw-r--r-- | demos/perl/test.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/demos/perl/test.pl b/demos/perl/test.pl index 9edb08f0e..40a903378 100644 --- a/demos/perl/test.pl +++ b/demos/perl/test.pl @@ -781,7 +781,7 @@ foreach my $i ([ 1, 19, 1 ], ok (&$fun (mpz($$i[0]), $$i[1]) == $$i[2]); ok (&$fun (mpz($$i[0]), mpz($$i[1])) == $$i[2]); } -} +} #------------------------------------------------------------------------------ # GMP::Mpz::lcm @@ -1677,7 +1677,7 @@ ok (floor(mpf(7.5)) == 7.0); { my $old_prec = get_default_prec(); set_default_prec(128); - + ok ( mpf_eq (mpz("0x10000000000000001"), mpz("0x10000000000000002"), 1)); ok (! mpf_eq (mpz("0x11"), mpz("0x12"), 128)); @@ -1789,7 +1789,7 @@ ok (trunc(mpf(7.5)) == 7.0); { my $r = randstate(); my $z = mpz_urandomm($r, mpz(3)**100); ok (UNIVERSAL::isa($z,"GMP::Mpz")); } - + #------------------------------------------------------------------------------ # GMP::Rand::mpz_urandomb_ui @@ -2100,7 +2100,7 @@ ok (via_printf ("%#X", mpq(15,16)) eq '0XF/0X10'); ok (via_printf ("%*.*f", 10, 3, 1.25) eq ' 1.250'); ok (via_printf ("%*.*f", 10, 3, mpf(1.5)) eq ' 1.500'); - + #------------------------------------------------------------------------------ # GMP::sgn |