1*256a93a4Safresh1# -*- mode: perl; -*- 2*256a93a4Safresh1 3*256a93a4Safresh1use strict; 4*256a93a4Safresh1use warnings; 5*256a93a4Safresh1use lib 't'; 6*256a93a4Safresh1 7*256a93a4Safresh1use Test::More tests => 1; 8*256a93a4Safresh1 9*256a93a4Safresh1my ($x, $expected, $try); 10*256a93a4Safresh1 11*256a93a4Safresh1my $class = 'Math::BigInt'; 12*256a93a4Safresh1 13*256a93a4Safresh1# test whether Math::BigInt::Scalar via use works (w/ dff. spellings of calc) 14*256a93a4Safresh1 15*256a93a4Safresh1$try = qq|use $class 0, "lib" => "Scalar";| 16*256a93a4Safresh1 . q| $x = 2**10; $x = "$x";|; 17*256a93a4Safresh1$expected = eval $try; 18*256a93a4Safresh1is($expected, "1024", $try); 19