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 :constant works or not 14*256a93a4Safresh1 15*256a93a4Safresh1$try = qq|use $class 0, "bgcd", ":constant";| 16*256a93a4Safresh1 . q| $x = 2**150; bgcd($x); $x = "$x";|; 17*256a93a4Safresh1$expected = eval $try; 18*256a93a4Safresh1is($expected, "1427247692705959881058285969449495136382746624", $try); 19