[p5sagit/p5-mst-13.2.git] / lib / Math / BigRat / t / big_ap.t

#!/usr/bin/perl -w

use Test;
use strict;

BEGIN
  {
  $| = 1;
  chdir 't' if -d 't';
  unshift @INC, '../lib';
  plan tests => 17;
  }

use Math::BigInt;
use Math::BigFloat;
use Math::BigRat;

my $r = 'Math::BigRat';
my $proper = $r->new('12345678901234567890/2');
my $proper_inc = $r->new('12345678901234567890/2')->binc();
my $proper_dec = $r->new('12345678901234567890/2')->bdec();
my $proper_int = Math::BigInt->new('12345678901234567890');
my $proper_float = Math::BigFloat->new('12345678901234567890');
my $proper2 = $r->new('12345678901234567890');

print "# Start\n";

Math::BigInt->accuracy(3);
Math::BigFloat->accuracy(5);

my ($x,$y,$z);

##############################################################################
# new()

$z = $r->new('12345678901234567890/2');
ok ($z,$proper);

$z = $r->new('1234567890123456789E1');
ok ($z,$proper2);

$z = $r->new('12345678901234567890/1E0');
ok ($z,$proper2);
$z = $r->new('1234567890123456789e1/1');
ok ($z,$proper2);
$z = $r->new('1234567890123456789e1/1E0');
ok ($z,$proper2);

$z = $r->new($proper_int);
ok ($z,$proper2);

$z = $r->new($proper_float);
ok ($z,$proper2);

##############################################################################
# bdiv

$x = $r->new('12345678901234567890'); $y = Math::BigRat->new('2');
$z = $x->copy->bdiv($y);
ok ($z,$proper);

##############################################################################
# bmul

$x = $r->new("$proper"); $y = Math::BigRat->new('1');
$z = $x->copy->bmul($y);
ok ($z,$proper);
$z = $r->new('12345678901234567890/1E0');
ok ($z,$proper2);

$z = $r->new($proper_int);
ok ($z,$proper2);

$z = $r->new($proper_float);
ok ($z,$proper2);

##############################################################################
# bdiv

$x = $r->new('12345678901234567890'); $y = Math::BigRat->new('2');
$z = $x->copy->bdiv($y);
ok ($z,$proper);

##############################################################################
# bmul

$x = $r->new("$proper"); $y = Math::BigRat->new('1');
$z = $x->copy->bmul($y);
ok ($z,$proper);

$x = $r->new("$proper"); $y = Math::BigRat->new('2');
$z = $x->copy->bmul($y);
ok ($z,$proper2);

##############################################################################
# binc

$x = $proper->copy()->binc(); ok ($x,$proper_inc);
$x = $proper->copy()->bdec(); ok ($x,$proper_dec);
Commit	Line	Data
7d341013	1	#!/usr/bin/perl -w
	2
	3	use Test;
	4	use strict;
	5
	6	BEGIN
	7	{
	8	$\| = 1;
	9	chdir 't' if -d 't';
	10	unshift @INC, '../lib';
	11	plan tests => 17;
	12	}
	13
	14	use Math::BigInt;
	15	use Math::BigFloat;
	16	use Math::BigRat;
	17
	18	my $r = 'Math::BigRat';
	19	my $proper = $r->new('12345678901234567890/2');
	20	my $proper_inc = $r->new('12345678901234567890/2')->binc();
	21	my $proper_dec = $r->new('12345678901234567890/2')->bdec();
	22	my $proper_int = Math::BigInt->new('12345678901234567890');
	23	my $proper_float = Math::BigFloat->new('12345678901234567890');
	24	my $proper2 = $r->new('12345678901234567890');
	25
	26	print "# Start\n";
	27
	28	Math::BigInt->accuracy(3);
	29	Math::BigFloat->accuracy(5);
	30
	31	my ($x,$y,$z);
	32
	33	##############################################################################
	34	# new()
	35
	36	$z = $r->new('12345678901234567890/2');
	37	ok ($z,$proper);
	38
	39	$z = $r->new('1234567890123456789E1');
	40	ok ($z,$proper2);
	41
	42	$z = $r->new('12345678901234567890/1E0');
	43	ok ($z,$proper2);
	44	$z = $r->new('1234567890123456789e1/1');
	45	ok ($z,$proper2);
	46	$z = $r->new('1234567890123456789e1/1E0');
	47	ok ($z,$proper2);
	48
	49	$z = $r->new($proper_int);
	50	ok ($z,$proper2);
	51
	52	$z = $r->new($proper_float);
	53	ok ($z,$proper2);
	54
	55	##############################################################################
	56	# bdiv
	57
	58	$x = $r->new('12345678901234567890'); $y = Math::BigRat->new('2');
	59	$z = $x->copy->bdiv($y);
	60	ok ($z,$proper);
	61
	62	##############################################################################
	63	# bmul
	64
65	$x = $r->new("$proper"); $y = Math::BigRat->new('1');
66	$z = $x->copy->bmul($y);
67	ok ($z,$proper);
68	$z = $r->new('12345678901234567890/1E0');
69	ok ($z,$proper2);
70
71	$z = $r->new($proper_int);
72	ok ($z,$proper2);
73
74	$z = $r->new($proper_float);
75	ok ($z,$proper2);
76
77	##############################################################################
78	# bdiv
79
80	$x = $r->new('12345678901234567890'); $y = Math::BigRat->new('2');
81	$z = $x->copy->bdiv($y);
82	ok ($z,$proper);
83
84	##############################################################################
85	# bmul
86
87	$x = $r->new("$proper"); $y = Math::BigRat->new('1');
88	$z = $x->copy->bmul($y);
89	ok ($z,$proper);
90
91	$x = $r->new("$proper"); $y = Math::BigRat->new('2');
92	$z = $x->copy->bmul($y);
93	ok ($z,$proper2);
94
95	##############################################################################
96	# binc
97
98	$x = $proper->copy()->binc(); ok ($x,$proper_inc);
99	$x = $proper->copy()->bdec(); ok ($x,$proper_dec);
100