blob: 2e533241ea961ba01ec4df38242bf5ceca4a195b (
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
|
#!/usr/bin/perl -w
# test rounding, accuracy, precision and fallback, round_mode and mixing
# of classes under BareCalc
use strict;
use Test::More tests => 684
+ 1; # our own tests
BEGIN { unshift @INC, 't'; }
print "# ",Math::BigInt->config()->{lib},"\n";
use Math::BigInt lib => 'BareCalc';
use Math::BigFloat lib => 'BareCalc';
use vars qw/$mbi $mbf/;
$mbi = 'Math::BigInt';
$mbf = 'Math::BigFloat';
is (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');
require 't/mbimbf.inc';
|
