1#!/usr/bin/perl -w 2 3# Test whether $Math::BigInt::upgrade is breaks out neck 4 5use Test; 6use strict; 7 8BEGIN 9 { 10 $| = 1; 11 chdir 't' if -d 't'; 12 unshift @INC, '../lib'; 13 plan tests => 5; 14 } 15 16use Math::BigInt upgrade => 'Math::BigRat'; 17use Math::BigRat; 18 19my $rat = 'Math::BigRat'; 20my ($x,$y,$z); 21 22############################################################################## 23# bceil/bfloor 24 25$x = $rat->new('49/4'); ok ($x->bfloor(),'12'); 26$x = $rat->new('49/4'); ok ($x->bceil(),'13'); 27 28############################################################################## 29# bsqrt 30 31$x = $rat->new('144'); ok ($x->bsqrt(),'12'); 32$x = $rat->new('144/16'); ok ($x->bsqrt(),'3'); 33$x = $rat->new('1/3'); ok ($x->bsqrt(), 34 '1000000000000000000000000000000000000000/1732050807568877293527446341505872366943'); 35 36 37 38 39