Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
Math	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
big_ap.t	2.31 KB	-r--r--r--	2014-12-27 11:48
bigfltpm.inc	31.81 KB	-r--r--r--	2014-12-27 11:48
bigfltrt.t	385 B	-r--r--r--	2014-12-27 11:48
biglog.t	2.28 KB	-r--r--r--	2014-12-27 11:48
bigrat.t	9.77 KB	-r--r--r--	2014-12-27 11:48
bigratpm.inc	13.86 KB	-r--r--r--	2014-12-27 11:48
bigratpm.t	278 B	-r--r--r--	2014-12-27 11:48
bigratup.t	823 B	-r--r--r--	2014-12-27 11:48
bigroot.t	1.38 KB	-r--r--r--	2014-12-27 11:48
bitwise.t	368 B	-r--r--r--	2014-12-27 11:48
hang.t	383 B	-r--r--r--	2014-12-27 11:48
requirer.t	232 B	-r--r--r--	2014-12-27 11:48
trap.t	1.97 KB	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w

# Test that accuracy() and precision() in BigInt/BigFloat do not disturb
# the rounding force in BigRat.

use strict;
use Test::More 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');
is ($z,$proper);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

##############################################################################
# binc/bdec

$x = $proper->copy()->binc(); is ($x,$proper_inc);
$x = $proper->copy()->bdec(); is ($x,$proper_dec);