Return to test.pl CVS log

Up to [local] / OpenXM_contrib / gmp / demos / perl

Import gmp 4.1.2

# GMP perl module tests

# Copyright 2001 Free Software Foundation, Inc.
#
# This file is part of the GNU MP Library.
#
# The GNU MP Library is free software; you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License as published
# by the Free Software Foundation; either version 2.1 of the License, or (at
# your option) any later version.
#
# The GNU MP Library is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
# License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA.


# These tests aim to exercise the many possible combinations of operands
# etc, and to run all functions at least once, which if nothing else will
# check everything intended is in the :all list.
#
# Use the following in .emacs to match test failure messages.
#
# ;; perl "Test" module error messages
# (eval-after-load "compile"
#   '(add-to-list
#     'compilation-error-regexp-alist
#     '("^.*Failed test [0-9]+ in \\([^ ]+\\) at line \\([0-9]+\\)" 1 2)))


use strict;
use Test;

BEGIN {
  plan tests => 123,
  onfail => sub { print "there were failures\n" },
}

use GMP qw(:all);
use GMP::Mpz qw(:all);
use GMP::Mpq qw(:all);
use GMP::Mpf qw(:all);
use GMP::Rand qw(:all);

use GMP::Mpz qw(:constants);
use GMP::Mpz qw(:noconstants);
use GMP::Mpq qw(:constants);
use GMP::Mpq qw(:noconstants);
use GMP::Mpf qw(:constants);
use GMP::Mpf qw(:noconstants);

use GMP qw(version);
print '$GMP::VERSION ',$GMP::VERSION,' GMP::version() ',version(),"\n";

# force to a string, not a PVIV
sub str {
  my $s = "@_[0]" . "";
  return $s;
}

foreach my $name ('mpz', 'mpq', 'mpf') {
  print "$name\n";
  my $mpx = eval("\\&$name");

  ok (&$mpx() == 0);

  foreach my $x (0, 1, -1, 123, -123) {
    foreach my $y ($x, ""."$x", substr("$x",0), 0.0+$x,
		   mpz($x), mpq($x), mpf($x)) {
      ok (&$mpx($x) == $x);
    }
  }
  
  ok (&$mpx(substr("11",0,1)) == 1);

  ok (&$mpx(0) < 1);
  ok (&$mpx(0) > -1);

  ok (&$mpx(0) != 1);
  ok (&$mpx(0) != -1);
  ok (&$mpx(1) != 0);
  ok (&$mpx(1) != -1);
  ok (&$mpx(-1) != 0);
  ok (&$mpx(-1) != 1);

  ok (&$mpx(0) + 1 == 1);
  ok (&$mpx(-1) + 1 == 0);
  ok (1 + &$mpx(0) == 1);
  ok (1 + &$mpx(-1) == 0);

  ok (&$mpx(0) - 1 == -1);
  ok (&$mpx(1) - 1 == 0);
  ok (1 - &$mpx(0) == 1);
  ok (1 - &$mpx(1) == 0);

  ok (&$mpx(2) * 3 == 6);

  ok (&$mpx(6) / 2 == 3);
  ok (&$mpx(-6) / 2 == -3);
  ok (&$mpx(6) / -2 == -3);
  ok (&$mpx(-6) / -2 == 3);

  ok (abs(&$mpx(0)) == 0);
  ok (abs(&$mpx(1)) == 1);
  ok (abs(&$mpx(-1)) == 1);
  { my $x = &$mpx(-123); $x = abs($x); ok ($x == 123); }
  { my $x = &$mpx(-1);   $x = abs($x); ok ($x == 1);   }
  { my $x = &$mpx(0);    $x = abs($x); ok ($x == 0);   }
  { my $x = &$mpx(1);    $x = abs($x); ok ($x == 1);   }
  { my $x = &$mpx(123);  $x = abs($x); ok ($x == 123); }


  foreach my $x (-123, -1, 0, 1, 123) {
    foreach my $xv ($x, "$x", substr("$x",0), $x+0.0,
		    mpz($x), mpq($x), mpf($x)) {
      my $xm = &$mpx($xv);
      if ($xm) {
	ok ($x);
      } else {
	ok (not $x);
      }
      if (not $xm) {
	ok (not $x);
      } else {
	ok ($x);
      }
      if (! $xm) {
	ok (not $x);
      } else {
	ok ($x);
      }
    }
  }

  ok (- &$mpx(0) == 0);
  ok (- &$mpx(1) == -1);
  ok (- &$mpx(-1) == 1);

  {
    my $a = &$mpx(0); my $b = $a;
    $a = &$mpx(1);
    ok ($a == 1);
    ok ($b == 0);
  }
  {
    my $a = &$mpx(0); my $b = $a;
    $a++;
    ok ($a == 1);
    ok ($b == 0);
  }
  {
    my $a = &$mpx(0); my $b = $a;
    $a--;
    ok ($a == -1);
    ok ($b == 0);
  }
  {
    my $a = &$mpx(0); my $b = $a;
    $a++;
    ok ($a == 1);
    ok ($b == 0);
  }

  { my $a = &$mpx(0); ok ($a++ == 0); }
  { my $a = &$mpx(0); ok ($a-- == 0); }
  { my $a = &$mpx(0); ok (++$a == 1); }
  { my $a = &$mpx(0); ok (--$a == -1); }

  { my $x = &$mpx(0);    ok("$x" eq "0"); }
  { my $x = &$mpx(123);  ok("$x" eq "123"); }
  { my $x = &$mpx(-123); ok("$x" eq "-123"); }

  ok (&$mpx(0) ** 1 == 0);
  ok (&$mpx(1) ** 1 == 1);
  ok (&$mpx(2) ** 0 == 1);
  ok (&$mpx(2) ** 1 == 2);
  ok (&$mpx(2) ** 2 == 4);
  ok (&$mpx(2) ** 3 == 8);
  ok (&$mpx(2) ** 4 == 16);

  ok (&$mpx(0) ** &$mpx(1) == 0);
  ok (&$mpx(1) ** &$mpx(1) == 1);
  ok (&$mpx(2) ** &$mpx(0) == 1);
  ok (&$mpx(2) ** &$mpx(1) == 2);
  ok (&$mpx(2) ** &$mpx(2) == 4);
  ok (&$mpx(2) ** &$mpx(3) == 8);
  ok (&$mpx(2) ** &$mpx(4) == 16);

  { my $a = &$mpx(7);  $a += 1;  ok ($a == 8); }
  { my $a = &$mpx(7);  $a -= 1;  ok ($a == 6); }
  { my $a = &$mpx(7);  $a *= 3;  ok ($a == 21); }
  { my $a = &$mpx(21); $a /= 3;  ok ($a == 7); }
  { my $a = &$mpx(7);  $a <<= 1; ok ($a == 14); }
  { my $a = &$mpx(32); $a >>= 1; ok ($a == 16); }
  { my $a = &$mpx(3);  $a **= 4; ok ($a == 81); }

  ok (! &$mpx("-9999999999999999999999999999999999999999999")->fits_slong_p());
  ok (  &$mpx(-123)->fits_slong_p());
  ok (  &$mpx(0)->fits_slong_p());
  ok (  &$mpx(123)->fits_slong_p());
  ok (! &$mpx("9999999999999999999999999999999999999999999")->fits_slong_p());

  ok (&$mpx(-123)->sgn() == -1);
  ok (&$mpx(-1)  ->sgn() == -1);
  ok (&$mpx(0)   ->sgn() == 0);
  ok (&$mpx(1)   ->sgn() == 1);
  ok (&$mpx(123) ->sgn() == 1);
}

foreach my $x (-123, -1, 0, 1, 123) {
  foreach my $xv ($x, "$x", substr("$x",0), $x+0.0,
		  mpz($x), mpq($x), mpf($x)) {

    ok (GMP::get_d($xv) == $x);
    ok (GMP::get_si($xv) == $x);
    ok (GMP::integer_p($xv) == 1);
    ok (GMP::sgn($xv) == ($x <=> 0));
    
    foreach my $y (-123, -1, 0, 1, 123) {
      foreach my $yv ($y, "$y", 0.0+$y, mpz($y), mpq($y), mpf($y)) {

	ok (($xv <=> $yv) == ($x <=> $y));
      }
    }
  }
}

foreach my $xpair ([-123,"-7b"], [-1,"-1"], [0,"0"], [1,"1"], [123,"7b"]) {
  my $x = $$xpair[0];
  my $xhex = $$xpair[1];

  foreach my $xv ($x, "$x", substr("$x",0),
		  mpz($x), mpq($x)) {

    ok (get_str($xv) eq "$x");
    ok (get_str($xv,10) eq "$x");

    ok (get_str($xv,16) == $xhex);
    $xhex =~ tr [a-z] [A-Z];
    ok (get_str($xv,-16) == $xhex);
  }
}

ok (GMP::get_str(mpq(5/8)) eq "5/8");
ok (GMP::get_str(mpq(-5/8)) eq "-5/8");
ok (GMP::get_str(mpq(255/256),16) eq "ff/100");
ok (GMP::get_str(mpq(255/256),-16) eq "FF/100");
ok (GMP::get_str(mpq(-255/256),16) eq "-ff/100");
ok (GMP::get_str(mpq(-255/256),-16) eq "-FF/100");

foreach my $x (1.5, mpf(1.5)) {
  { my ($s,$e) = get_str($x, 10);
    ok ($s eq '15');
    ok ($e == 1); }
}
foreach my $x (-1.5, mpf(-1.5)) {
  { my ($s,$e) = get_str($x, 10);
    ok ($s eq '-15');
    ok ($e == 1); }
}
foreach my $x (1.5, mpf(1.5)) {
  { my ($s,$e) = get_str($x, 16);
    ok ($s eq '18');
    ok ($e == 1); }
}
foreach my $x (-1.5, mpf(-1.5)) {
  { my ($s,$e) = get_str($x, 16);
    ok ($s eq '-18');
    ok ($e == 1); }
}
foreach my $x (65536.0, mpf(65536.0)) {
  { my ($s,$e) = get_str($x, 16);
    ok ($s eq '1');
    ok ($e == 5); }
}
foreach my $x (1.625, mpf(1.625)) {
  { my ($s,$e) = get_str($x, 16);
    ok ($s eq '1a');
    ok ($e == 1); }
}
foreach my $x (1.625, mpf(1.625)) {
  { my ($s,$e) = get_str($x, -16);
    ok ($s eq '1A');
    ok ($e == 1); }
}
foreach my $f (255.0, mpf(255)) {
  my ($s, $e) = get_str(255.0,16,0);
  ok ($s eq "ff");
  ok ($e == 2);
}
foreach my $f (255.0, mpf(255)) {
  my ($s, $e) = get_str(255.0,-16,0);
  ok ($s eq "FF");
  ok ($e == 2);
}
foreach my $f (-255.0, mpf(-255)) {
  my ($s, $e) = get_str(-255.0,16,0);
  ok ($s eq "-ff");
  ok ($e == 2);
}
foreach my $f (-255.0, mpf(-255)) {
  my ($s, $e) = get_str(-255.0,-16,0);
  ok ($s eq "-FF");
  ok ($e == 2);
}


ok (  GMP::integer_p (mpq(1)));
ok (! GMP::integer_p (mpq(1,2)));
ok (  GMP::integer_p (mpf(1.0)));
ok (! GMP::integer_p (mpf(1.5)));


ok (mpz(-8) % 3 == -2);
ok (mpz(-7) % 3 == -1);
ok (mpz(-6) % 3 == 0);
ok (mpz(6) % 3 == 0);
ok (mpz(7) % 3 == 1);
ok (mpz(8) % 3 == 2);

{ my $a = mpz(24); $a %= 7; ok ($a == 3); }

ok ((mpz(3) & 1) == 1);
ok ((mpz(3) & 4) == 0);
ok ((mpz(3) | 1) == 3);
ok ((mpz(3) | 4) == 7);
ok ((mpz(3) ^ 1) == 2);
ok ((mpz(3) ^ 4) == 7);
ok ((mpz("0xAA") | mpz("0x55")) == mpz("0xFF"));

{ my $a = mpz(3); $a &= 1; ok ($a == 1); }
{ my $a = mpz(3); $a &= 4; ok ($a == 0); }
{ my $a = mpz(3); $a |= 1; ok ($a == 3); }
{ my $a = mpz(3); $a |= 4; ok ($a == 7); }
{ my $a = mpz(3); $a ^= 1; ok ($a == 2); }
{ my $a = mpz(3); $a ^= 4; ok ($a == 7); }

ok (~ mpz(0) == -1);
ok (~ mpz(1) == -2);
ok (~ mpz(-2) == 1);
ok (~ mpz(0xFF) == -0x100);
ok (~ mpz(-0x100) == 0xFF);


# mpz functions

ok (bin(2,0) == 1);
ok (bin(2,1) == 2);
ok (bin(2,2) == 1);

ok (bin(3,0) == 1);
ok (bin(3,1) == 3);
ok (bin(3,2) == 3);
ok (bin(3,3) == 1);

{ my ($q, $r);
  ($q, $r) = cdiv (16, 3);
  ok ($q == 6);
  ok ($r == -2);
  ($q, $r) = cdiv (16, -3);
  ok ($q == -5);
  ok ($r == 1);
  ($q, $r) = cdiv (-16, 3);
  ok ($q == -5);
  ok ($r == -1);
  ($q, $r) = cdiv (-16, -3);
  ok ($q == 6);
  ok ($r == 2);
}
{ my ($q, $r);
  ($q, $r) = fdiv (16, 3);
  ok ($q == 5);
  ok ($r == 1);
  ($q, $r) = fdiv (16, -3);
  ok ($q == -6);
  ok ($r == -2);
  ($q, $r) = fdiv (-16, 3);
  ok ($q == -6);
  ok ($r == 2);
  ($q, $r) = fdiv (-16, -3);
  ok ($q == 5);
  ok ($r == -1);
}

{ my ($q, $r);
  ($q, $r) = tdiv (16, 3);
  ok ($q == 5);
  ok ($r == 1);
  ($q, $r) = tdiv (16, -3);
  ok ($q == -5);
  ok ($r == 1);
  ($q, $r) = tdiv (-16, 3);
  ok ($q == -5);
  ok ($r == -1);
  ($q, $r) = tdiv (-16, -3);
  ok ($q == 5);
  ok ($r == -1);
}

{ my ($q, $r);
  ($q, $r) = cdiv_2exp (23, 2);
  ok ($q == 6);
  ok ($r == -1);
  ($q, $r) = cdiv_2exp (-23, 2);
  ok ($q == -5);
  ok ($r == -3);
}
{ my ($q, $r);
  ($q, $r) = fdiv_2exp (23, 2);
  ok ($q == 5);
  ok ($r == 3);
  ($q, $r) = fdiv_2exp (-23, 2);
  ok ($q == -6);
  ok ($r == 1);
}

{ my ($q, $r);
  ($q, $r) = tdiv_2exp (23, 2);
  ok ($q == 5);
  ok ($r == 3);
  ($q, $r) = tdiv_2exp (-23, 2);
  ok ($q == -5);
  ok ($r == -3);
}

{
  my $a = 3;
  my $b = $a;
  ok ($b == 3);
  clrbit ($a, 0);
  print "a==2\n";
  ok ($a == 2);
  print "b==3\n";
  ok ($b == 3);
  print "b=a\n";
  $b = $a;
  print "b==2\n";
  ok ($b == 2);
  print "done\n";
}
{
  my $a = 0;
  my $b = $a;
  ok ($b == 0);
  setbit ($a, 0);
  ok ($a == 1);
  ok ($b == 0);
  $b = $a;
  ok ($b == 1);
}

ok (  congruent_p (21, 0, 7));
ok (! congruent_p (21, 1, 7));
ok (  congruent_p (21, 5, 8));
ok (! congruent_p (21, 6, 8));

ok (  congruent_2exp_p (20, 0, 2));
ok (! congruent_2exp_p (21, 0, 2));
ok (! congruent_2exp_p (20, 1, 2));

ok (divexact(27,3) == 9);
ok (divexact(27,-3) == -9);
ok (divexact(-27,3) == -9);
ok (divexact(-27,-3) == 9);

ok (  divisible_p (21, 7));
ok (! divisible_p (21, 8));

ok (  divisible_2exp_p (20, 2));
ok (! divisible_2exp_p (21, 2));

ok (! even_p(mpz(-3)));
ok (  even_p(mpz(-2)));
ok (! even_p(mpz(-1)));
ok (  even_p(mpz(0)));
ok (! even_p(mpz(1)));
ok (  even_p(mpz(2)));
ok (! even_p(mpz(3)));

ok (fac(0) == 1);
ok (fac(1) == 1);
ok (fac(2) == 2);
ok (fac(3) == 6);
ok (fac(4) == 24);
ok (fac(5) == 120);

ok (fib(0) == 0);
ok (fib(1) == 1);
ok (fib(2) == 1);
ok (fib(3) == 2);
ok (fib(4) == 3);
ok (fib(5) == 5);
ok (fib(6) == 8);

{ my ($a, $b) = fib2(0); ok($a==0); ok($b==1); }
{ my ($a, $b) = fib2(1); ok($a==1); ok($b==0); }
{ my ($a, $b) = fib2(2); ok($a==1); ok($b==1); }
{ my ($a, $b) = fib2(3); ok($a==2); ok($b==1); }
{ my ($a, $b) = fib2(4); ok($a==3); ok($b==2); }
{ my ($a, $b) = fib2(5); ok($a==5); ok($b==3); }
{ my ($a, $b) = fib2(6); ok($a==8); ok($b==5); }

ok (gcd (21) == 21);
ok (gcd (21,15) == 3);
ok (gcd (21,15,30,57) == 3);
ok (gcd (21,-15) == 3);
ok (gcd (-21,15) == 3);
ok (gcd (-21,-15) == 3);

{
  my ($g, $x, $y) = gcdext (3,5);
  ok ($g == 1);
  ok ($x == 2);
  ok ($y == -1);
}

ok (hamdist(5,7) == 1);

ok (invert(1,123) == 1);
ok (invert(6,7) == 6);
ok (! defined invert(2,8));

foreach my $i ([  1, 19,  1 ],
	       [  4, 19,  1 ],
	       [  5, 19,  1 ],
	       [  6, 19,  1 ],
	       [  7, 19,  1 ],
	       [  9, 19,  1 ],
	       [ 11, 19,  1 ],
	       [ 16, 19,  1 ],
	       [ 17, 19,  1 ],
	       [  2, 19, -1 ],
	       [  3, 19, -1 ],
	       [  8, 19, -1 ],
	       [ 10, 19, -1 ],
	       [ 12, 19, -1 ],
	       [ 13, 19, -1 ],
	       [ 14, 19, -1 ],
	       [ 15, 19, -1 ],
	       [ 18, 19, -1 ]) {
  foreach my $fun (\&jacobi, \&kronecker) {
    ok (&$fun ($$i[0], $$i[1]) == $$i[2]);

    ok (&$fun ($$i[0],      str($$i[1])) == $$i[2]);
    ok (&$fun (str($$i[0]),     $$i[1])  == $$i[2]);
    ok (&$fun (str($$i[0]), str($$i[1])) == $$i[2]);

    ok (&$fun ($$i[0],      mpz($$i[1])) == $$i[2]);
    ok (&$fun (mpz($$i[0]), $$i[1]) == $$i[2]);
    ok (&$fun (mpz($$i[0]), mpz($$i[1])) == $$i[2]);
  }
}	       

ok (lcm (2) == 2);
ok (lcm (0) == 0);
ok (lcm (0,0) == 0);
ok (lcm (0,0,0) == 0);
ok (lcm (0,0,0,0) == 0);
ok (lcm (2,0) == 0);
ok (lcm (-2,0) == 0);
ok (lcm (2,3) == 6);
ok (lcm (2,3,4) == 12);
ok (lcm (2,-3) == 6);
ok (lcm (-2,3) == 6);
ok (lcm (-2,-3) == 6);
ok (lcm (mpz(2)**512,1) == mpz(2)**512);
ok (lcm (mpz(2)**512,-1) == mpz(2)**512);
ok (lcm (-mpz(2)**512,1) == mpz(2)**512);
ok (lcm (-mpz(2)**512,-1) == mpz(2)**512);
ok (lcm (mpz(2)**512,mpz(2)**512) == mpz(2)**512);
ok (lcm (mpz(2)**512,-mpz(2)**512) == mpz(2)**512);
ok (lcm (-mpz(2)**512,mpz(2)**512) == mpz(2)**512);
ok (lcm (-mpz(2)**512,-mpz(2)**512) == mpz(2)**512);

ok (lucnum(0) == 2);
ok (lucnum(1) == 1);
ok (lucnum(2) == 3);
ok (lucnum(3) == 4);
ok (lucnum(4) == 7);
ok (lucnum(5) == 11);
ok (lucnum(6) == 18);

{ my ($a, $b) = lucnum2(0); ok($a==2);  ok($b==-1); }
{ my ($a, $b) = lucnum2(1); ok($a==1);  ok($b==2); }
{ my ($a, $b) = lucnum2(2); ok($a==3);  ok($b==1); }
{ my ($a, $b) = lucnum2(3); ok($a==4);  ok($b==3); }
{ my ($a, $b) = lucnum2(4); ok($a==7);  ok($b==4); }
{ my ($a, $b) = lucnum2(5); ok($a==11); ok($b==7); }
{ my ($a, $b) = lucnum2(6); ok($a==18); ok($b==11); }

ok (nextprime(2) == 3);
ok (nextprime(3) == 5);
ok (nextprime(5) == 7);
ok (nextprime(7) == 11);
ok (nextprime(11) == 13);

ok (  odd_p(mpz(-3)));
ok (! odd_p(mpz(-2)));
ok (  odd_p(mpz(-1)));
ok (! odd_p(mpz(0)));
ok (  odd_p(mpz(1)));
ok (! odd_p(mpz(2)));
ok (  odd_p(mpz(3)));

# ok (  perfect_power_p(mpz(-27)));
# ok (! perfect_power_p(mpz(-9)));
# ok (! perfect_power_p(mpz(-1)));
ok (  perfect_power_p(mpz(0)));
ok (  perfect_power_p(mpz(1)));
ok (! perfect_power_p(mpz(2)));
ok (! perfect_power_p(mpz(3)));
ok (  perfect_power_p(mpz(4)));
ok (  perfect_power_p(mpz(9)));
ok (  perfect_power_p(mpz(27)));
ok (  perfect_power_p(mpz(81)));

ok (! perfect_square_p(mpz(-9)));
ok (! perfect_square_p(mpz(-1)));
ok (  perfect_square_p(mpz(0)));
ok (  perfect_square_p(mpz(1)));
ok (! perfect_square_p(mpz(2)));
ok (! perfect_square_p(mpz(3)));
ok (  perfect_square_p(mpz(4)));
ok (  perfect_square_p(mpz(9)));
ok (! perfect_square_p(mpz(27)));
ok (  perfect_square_p(mpz(81)));

ok (popcount(7) == 3);

ok (powm (3,2,8) == 1);

ok (  probab_prime_p(89,1));
ok (! probab_prime_p(81,1));

{
  my $z = mpz(123);
  realloc ($z, 512);
}

{
  my ($rem, $mult);
  ($rem, $mult) = remove(12,3);
  ok ($rem == 4);
  ok ($mult == 1);
  ($rem, $mult) = remove(12,2);
  ok ($rem == 3);
  ok ($mult == 2);
}

ok (root(0,2) == 0);
ok (root(8,3) == 2);
ok (root(-8,3) == -2);
ok (root(81,4) == 3);
ok (root(243,5) == 3);

{ my ($r,$e);
  ($r, $e) = roote(0,2);
  ok ($r == 0);
  ok ($e);
  ($r, $e) = roote(81,4);
  ok ($r == 3);
  ok ($e);
  ($r, $e) = roote(85,4);
  ok ($r == 3);
  ok (! $e);
}

{
  my $ulong_max = ~ 0;
  ok (scan0 (0, 0) == 0);
  ok (scan0 (1, 0) == 1);
  ok (scan0 (3, 0) == 2);
  ok (scan0 (-1, 0) == $ulong_max);
  ok (scan0 (-2, 1) == $ulong_max);

  ok (scan1 (1, 0) == 0);
  ok (scan1 (2, 0) == 1);
  ok (scan1 (4, 0) == 2);
  ok (scan1 (0, 0) == $ulong_max);
  ok (scan1 (3, 2) == $ulong_max);
}

ok (sizeinbase(1,10) == 1);
ok (sizeinbase(100,10) == 3);
ok (sizeinbase(9999,10) == 5);

foreach my $name ('mpz', 'mpf') {
  print "$name\n";
  my $mpx = eval("\\&$name");
  ok (sqrt(&$mpx(0)) == 0);
  ok (sqrt(&$mpx(1)) == 1);
  ok (sqrt(&$mpx(4)) == 2);
  ok (sqrt(&$mpx(81)) == 9);
}

{
  my ($root, $rem) = sqrtrem(mpz(0));
  ok ($root == 0);
  ok ($rem == 0);
}
{
  my ($root, $rem) = sqrtrem(mpz(1));
  ok ($root == 1);
  ok ($rem == 0);
}
{
  my ($root, $rem) = sqrtrem(mpz(2));
  ok ($root == 1);
  ok ($rem == 1);
}
{
  my ($root, $rem) = sqrtrem(mpz(9));
  ok ($root == 3);
  ok ($rem == 0);
}
{
  my ($root, $rem) = sqrtrem(mpz(35));
  ok ($root == 5);
  ok ($rem == 10);
}
{
  my ($root, $rem) = sqrtrem(mpz(0));
  ok ($root == 0);
  ok ($rem == 0);
}

ok (tstbit (6, 0) == 0);
ok (tstbit (6, 1) == 1);
ok (tstbit (6, 2) == 1);
ok (tstbit (6, 3) == 0);


# mpq functions

ok (mpq('3/2') == mpq(3,2));
ok (mpq('3/1') == mpq(3,1));
ok (mpq('-3/2') == mpq(-3,2));
ok (mpq('-3/1') == mpq(-3,1));
ok (mpq('0x3') == mpq(3,1));
ok (mpq('0b111') == mpq(7,1));
ok (mpq('0b0') == mpq(0,1));

ok (mpq(3,2) > 1);
ok (mpq(3,2) < 2);

ok (mpq(1,2)+mpq(1,3) == mpq(5,6));
ok (mpq(1,2)+mpq(-1,3) == mpq(1,6));
ok (mpq(-1,2)+mpq(1,3) == mpq(-1,6));
ok (mpq(-1,2)+mpq(-1,3) == mpq(-5,6));

ok (mpq(1,2)-mpq(1,3) == mpq(1,6));
ok (mpq(1,2)-mpq(-1,3) == mpq(5,6));
ok (mpq(-1,2)-mpq(1,3) == mpq(-5,6));
ok (mpq(-1,2)-mpq(-1,3) == mpq(-1,6));

{
  my $q = mpq(21,15); canonicalize($q);
  ok (num($q) == 7);
  ok (den($q) == 5);
}

{ my $q = mpq(5,7);  ok("$q" eq "5/7"); }
{ my $q = mpq(-5,7); ok("$q" eq "-5/7"); }


# mpf functions

ok (mpf(-1.5) == -1.5);
ok (mpf(-1.0) == -1.0);
ok (mpf(-0.5) == -0.5);
ok (mpf(0) == 0);
ok (mpf(0.5) == 0.5);
ok (mpf(1.0) == 1.0);
ok (mpf(1.5) == 1.5);

ok (mpf("-1.5") == -1.5);
ok (mpf("-1.0") == -1.0);
ok (mpf("-0.5") == -0.5);
ok (mpf("0") == 0);
ok (mpf("0.5") == 0.5);
ok (mpf("1.0") == 1.0);
ok (mpf("1.5") == 1.5);

{ my $f = mpf(0.25);   	 ok("$f" eq "0.25"); }
{ my $f = mpf(-0.25);  	 ok("$f" eq "-0.25"); }
{ my $f = mpf(1.25);   	 ok("$f" eq "1.25"); }
{ my $f = mpf(-1.25);  	 ok("$f" eq "-1.25"); }
{ my $f = mpf(1000000);	 ok("$f" eq "1000000"); }
{ my $f = mpf(-1000000); ok("$f" eq "-1000000"); }

ok (floor(mpf(-7.5)) == -8.0);
ok (ceil (mpf(-7.5)) == -7.0);
ok (trunc(mpf(-7.5)) == -7.0);
ok (floor(mpf(7.5)) == 7.0);
ok (ceil (mpf(7.5)) == 8.0);
ok (trunc(mpf(7.5)) == 7.0);

set_default_prec(128);
ok (  mpf_eq (mpz("0x10000000000000001"), mpz("0x10000000000000002"), 1));
ok (! mpf_eq (mpz("0x11"), mpz("0x12"), 128));

{
  set_default_prec(128);
  my $p = get_default_prec();
  set_default_prec($p);
  ok (get_default_prec() == $p);
}

ok (reldiff (2,4) == 1);
ok (reldiff (4,2) == 0.5);

{
  my $x = mpf(1.0, 512);
  my $y = $x;
  my $yprec = get_prec ($y);
  set_prec ($x, 1024);
  ok (get_prec ($y) == $yprec);

  my $xprec = get_prec ($x);
  set_prec ($x, $xprec);
  ok (get_prec ($x) == $xprec);
}


# random functions

{ my $r = randstate();                          ok (defined $r); }
{ my $r = randstate('lc_2exp', 1, 2, 3);        ok (defined $r); }
{ my $r = randstate('lc_2exp_size', 64);        ok (defined $r); }
{ my $r = randstate('lc_2exp_size', 999999999); ok (! defined $r); }
{
  my $r = randstate();
  $r->seed(123);
  $r->seed(time());
  mpf_urandomb($r,1024);
  mpz_urandomb($r,1024);
  mpz_rrandomb($r,1024);
  mpz_urandomm($r,mpz(3)**100);
}


# overloaded constants

if ($^V > 5.00503) {
  if (! do 'test2.pl') {
    die "Cannot run test2.pl\n";
  }
}


# printf functions

{
  GMP::printf ("hello world\n");

  sub via_printf {
    my $s;
    open TEMP, ">test.tmp" or die;
    GMP::printf TEMP @_;
    close TEMP or die;
    open TEMP, "<test.tmp" or die;
    read (TEMP, $s, 1024);
    close TEMP or die;
    unlink 'test.tmp';
    return $s;
  }

  my $z = mpz(123);
  my $q = mpq(15,16);
  my $f = mpf(1.5);

  foreach my $name ('via_printf', 'sprintf') {
    print "$name\n";
    my $mpx = eval("\\&$name");
    
    ok (&$mpx ("%d", $z) eq '123');
    ok (&$mpx ("%d %d %d", 456, $z, 789) eq '456 123 789');
    ok (&$mpx ("%d", $q) eq '15/16');
    ok (&$mpx ("%f", $f) eq '1.500000');
    ok (&$mpx ("%.2f", $f) eq '1.50');

    ok (&$mpx ("%*d", 6, 123) eq '   123');
    ok (&$mpx ("%*d", 6, $z)  eq '   123');
    ok (&$mpx ("%*d", 6, $q)  eq ' 15/16');

    ok (&$mpx ("%x", 123) eq '7b');
    ok (&$mpx ("%x", $z)  eq '7b');
    ok (&$mpx ("%X", 123) eq '7B');
    ok (&$mpx ("%X", $z)  eq '7B');
    ok (&$mpx ("%#x", 123) eq '0x7b');
    ok (&$mpx ("%#x", $z)  eq '0x7b');
    ok (&$mpx ("%#X", 123) eq '0X7B');
    ok (&$mpx ("%#X", $z)  eq '0X7B');

    ok (&$mpx ("%x", $q)  eq 'f/10');
    ok (&$mpx ("%X", $q)  eq 'F/10');
    ok (&$mpx ("%#x", $q)  eq '0xf/0x10');
    ok (&$mpx ("%#X", $q)  eq '0XF/0X10');

    ok (&$mpx ("%*.*f", 10, 3, 1.25) eq '     1.250');
    ok (&$mpx ("%*.*f", 10, 3, $f)   eq '     1.500');
  }
}

# Local variables:
# perl-indent-level: 2
# End: