blob: e963da3afc4e6221c22b916149e728e267da6da3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/perl -w
# Test whether $Math::BigInt::upgrade breaks our neck
use strict;
use Test::More tests => 5;
use Math::BigInt upgrade => 'Math::BigRat';
use Math::BigRat;
my $rat = 'Math::BigRat';
my ($x,$y,$z);
##############################################################################
# bceil/bfloor
$x = $rat->new('49/4'); is ($x->bfloor(),'12', 'floor(49/4)');
$x = $rat->new('49/4'); is ($x->bceil(),'13', 'ceil(49/4)');
##############################################################################
# bsqrt
$x = $rat->new('144'); is ($x->bsqrt(),'12', 'bsqrt(144)');
$x = $rat->new('144/16'); is ($x->bsqrt(),'3', 'bsqrt(144/16)');
$x = $rat->new('1/3'); is ($x->bsqrt(),
'1000000000000000000000000000000000000000/1732050807568877293527446341505872366943',
'bsqrt(1/3)');
# all tests successfull
1;
|
