1#!/usr/bin/perl -w 2 3use Test; 4use strict; 5 6BEGIN 7 { 8 $| = 1; 9 unshift @INC, '../lib'; # for running manually 10 my $location = $0; $location =~ s/downgrade.t//; 11 unshift @INC, $location; # to locate the testing files 12 chdir 't' if -d 't'; 13 plan tests => 15; 14 } 15 16use Math::BigInt upgrade => 'Math::BigFloat'; 17use Math::BigFloat downgrade => 'Math::BigInt', upgrade => 'Math::BigInt'; 18 19use vars qw ($scale $class $try $x $y $f @args $ans $ans1 $ans1_str $setup 20 $ECL $CL); 21$class = "Math::BigInt"; 22$CL = "Math::BigInt::Calc"; 23$ECL = "Math::BigFloat"; 24 25# simplistic test for now 26ok (Math::BigFloat->downgrade(),'Math::BigInt'); 27ok (Math::BigFloat->upgrade(),'Math::BigInt'); 28 29# these downgrade 30ok (ref(Math::BigFloat->new('inf')),'Math::BigInt'); 31ok (ref(Math::BigFloat->new('-inf')),'Math::BigInt'); 32ok (ref(Math::BigFloat->new('NaN')),'Math::BigInt'); 33ok (ref(Math::BigFloat->new('0')),'Math::BigInt'); 34ok (ref(Math::BigFloat->new('1')),'Math::BigInt'); 35ok (ref(Math::BigFloat->new('10')),'Math::BigInt'); 36ok (ref(Math::BigFloat->new('-10')),'Math::BigInt'); 37ok (ref(Math::BigFloat->new('-10.0E1')),'Math::BigInt'); 38 39# bug until v1.67: 40ok (Math::BigFloat->new('0.2E0'), '0.2'); 41ok (Math::BigFloat->new('0.2E1'), '2'); 42# until v1.67 resulted in 200: 43ok (Math::BigFloat->new('0.2E2'), '20'); 44 45# disable, otherwise it screws calculations 46Math::BigFloat->upgrade(undef); 47ok (Math::BigFloat->upgrade()||'',''); 48 49Math::BigFloat->div_scale(20); # make it a bit faster 50my $x = Math::BigFloat->new(2); # downgrades 51# the following test upgrade for bsqrt() and also makes new() NOT downgrade 52# for the bpow() side 53ok (Math::BigFloat->bpow('2','0.5'),$x->bsqrt()); 54 55#require 'upgrade.inc'; # all tests here for sharing 56