1N/A#!/usr/bin/perl -w
1N/A
1N/A###############################################################################
1N/A
1N/Ause Test;
1N/Ause strict;
1N/A
1N/ABEGIN
1N/A {
1N/A $| = 1;
1N/A chdir 't' if -d 't';
1N/A unshift @INC, '../lib';
1N/A plan tests => 4;
1N/A }
1N/A
1N/Ause bignum a => '12';
1N/A
1N/Aok (Math::BigInt->accuracy(),12);
1N/Aok (Math::BigFloat->accuracy(),12);
1N/A
1N/Abignum->import( accuracy => '23');
1N/A
1N/Aok (Math::BigInt->accuracy(),23);
1N/Aok (Math::BigFloat->accuracy(),23);
1N/A