Commit | Line | Data |
4440d13a |
1 | #!/usr/bin/perl -w |
2 | |
3 | ############################################################################### |
4 | # Test no bigint; |
5 | |
6 | use Test::More; |
7 | use strict; |
8 | |
9 | BEGIN |
10 | { |
11 | $| = 1; |
12 | chdir 't' if -d 't'; |
13 | unshift @INC, '../lib'; |
14 | plan tests => 6; |
15 | } |
16 | |
17 | use bigrat; |
18 | |
19 | isnt (ref(1), '', 'is in effect'); |
20 | isnt (ref(2.0), '', 'is in effect'); |
21 | isnt (ref(0x20), '', 'is in effect'); |
22 | |
23 | { |
24 | no bigrat; |
25 | |
26 | is (ref(1), '', 'is not in effect'); |
27 | is (ref(2.0), '', 'is not in effect'); |
28 | is (ref(0x20), '', 'is not in effect'); |
29 | } |
30 | |