1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# -*- mode: perl; -*-
###############################################################################
# Test "no bigfloat;" and overloading of hex()/oct() for newer Perls
use strict;
use warnings;
use Test::More tests => 10;
# no :hex and :oct means these do not get overloaded for older Perls:
use bigfloat;
isnt(ref(1), '', 'is in effect');
isnt(ref(2.0), '', 'is in effect');
isnt(ref(0x20), '', 'is in effect');
SKIP: {
# Quote numbers due to "use bigfloat;"
skip('Need at least Perl v5.9.4', "2") if $] < "5.009004";
is(ref(hex(9)), 'Math::BigFloat', 'hex is overloaded');
is(ref(oct(07)), 'Math::BigFloat', 'oct is overloaded');
}
{
no bigfloat;
is(ref(1), '', 'is not in effect');
is(ref(2.0), '', 'is not in effect');
is(ref(0x20), '', 'is not in effect');
is(ref(hex(9)), '', 'hex is not overloaded');
is(ref(oct(07)), '', 'oct is not overloaded');
}
|
