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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
# -*- mode: perl; -*-
use strict;
use warnings;
use Test::More tests => 24;
use Math::BigInt;
note("bdec() as a class method");
is(Math::BigInt -> bdec(-2), -3,
'Math::BigInt -> bdec(-2)');
is(Math::BigInt -> bdec(-1), -2,
'Math::BigInt -> bdec(-1)');
is(Math::BigInt -> bdec(0), -1,
'Math::BigInt -> bdec(0)');
is(Math::BigInt -> bdec(1), 0,
'Math::BigInt -> bdec(1)');
is(Math::BigInt -> bdec(2), 1,
'Math::BigInt -> bdec(2)');
is(Math::BigInt -> bdec("-inf"), "-inf",
'Math::BigInt -> bdec("-inf")');
is(Math::BigInt -> bdec("inf"), "inf",
'Math::BigInt -> bdec("inf")');
is(Math::BigInt -> bdec("NaN"), "NaN",
'Math::BigInt -> bdec("NaN")');
note("bdec() as an instance method");
is(Math::BigInt -> new(-2) -> bdec(), -3,
'Math::BigInt -> new(-2) -> bdec()');
is(Math::BigInt -> new(-1) -> bdec(), -2,
'Math::BigInt -> new(-1) -> bdec()');
is(Math::BigInt -> new(0) -> bdec(), -1,
'Math::BigInt -> new(0) -> bdec()');
is(Math::BigInt -> new(1) -> bdec(), 0,
'Math::BigInt -> new(1) -> bdec()');
is(Math::BigInt -> new(2) -> bdec(), 1,
'Math::BigInt -> new(2) -> bdec()');
is(Math::BigInt -> new("-inf") -> bdec(), "-inf",
'Math::BigInt -> new("-inf") -> bdec()');
is(Math::BigInt -> new("inf") -> bdec(), "inf",
'Math::BigInt -> new("inf") -> bdec()');
is(Math::BigInt -> new("NaN") -> bdec(), "NaN",
'Math::BigInt -> new("NaN") -> bdec()');
note("bdec() as a function");
is(Math::BigInt::bdec(-2), -3,
'Math::BigInt::bdec(-2)');
is(Math::BigInt::bdec(-1), -2,
'Math::BigInt::bdec(-1)');
is(Math::BigInt::bdec(0), -1,
'Math::BigInt::bdec(0)');
is(Math::BigInt::bdec(1), 0,
'Math::BigInt::bdec(1)');
is(Math::BigInt::bdec(2), 1,
'Math::BigInt::bdec(2)');
is(Math::BigInt::bdec("-inf"), "-inf",
'Math::BigInt::bdec("-inf")');
is(Math::BigInt::bdec("inf"), "inf",
'Math::BigInt::bdec("inf")');
is(Math::BigInt::bdec("NaN"), "NaN",
'Math::BigInt::bdec("NaN")');
|
