xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/bignum/t/option_a.t (revision 0:68f95e015346) 
1#!/usr/bin/perl -w
2
3###############################################################################
4
5use Test;
6use strict;
7
8BEGIN
9  {
10  $| = 1;
11  chdir 't' if -d 't';
12  unshift @INC, '../lib';
13  plan tests => 4;
14  }
15
16use bignum a => '12';
17
18ok (Math::BigInt->accuracy(),12);
19ok (Math::BigFloat->accuracy(),12);
20
21bignum->import( accuracy => '23');
22
23ok (Math::BigInt->accuracy(),23);
24ok (Math::BigFloat->accuracy(),23);
25
26