use_lib2.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe#!/usr/bin/perl -w
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe# see if using Math::BigInt and Math::BigFloat works together nicely.
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe# all use_lib*.t should be equivalent
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweuse strict;
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweuse Test;
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard LoweBEGIN
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe {
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe $| = 1;
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe # to locate the testing files
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe my $location = $0; $location =~ s/use_lib2.t//i;
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ($ENV{PERL_CORE})
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe {
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe # testing with the core distribution
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe @INC = qw(../t/lib);
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe unshift @INC, qw(../lib); # to locate the modules
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (-d 't')
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe {
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe chdir 't';
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe require File::Spec;
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe else
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe {
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe unshift @INC, $location;
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe print "# INC = @INC\n";
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe plan tests => 2;
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweuse Math::BigInt;
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweuse Math::BigFloat lib => 'BareCalc';
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweok (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweok (Math::BigFloat->new(123)->badd(123),246);
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe
10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe