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
|
# -*- mode: perl; -*-
use strict;
use warnings;
use Test::More tests => 18;
use Math::BigInt;
while (<DATA>) {
s/#.*$//; # remove comments
s/\s+$//; # remove trailing whitespace
next unless length; # skip empty lines
my ($in0, $out0, $out1, $out2, $out3) = split /:/;
my ($ss, $sa, $es, $ea);
my $test = q|($ss, $sa, $es, $ea) = |
. qq|Math::BigInt -> _hex_str_to_str_parts("$in0")|;
eval $test;
die $@ if $@; # this should never happen
subtest $test => sub {
plan tests => 4;
is($ss, $out0, 'sign of the significand');
is($sa, $out1, 'absolute value of the significand');
is($es, $out2, 'sign of the exponent');
is($ea, $out3, 'absolute value of the exponent');
};
}
__DATA__
0:+:0:+:0
0p-0:+:0:+:0
0p-7:+:0:+:0
0p+7:+:0:+:0
0.0120:+:.012:+:0
0120.0:+:120:+:0
0120.0340:+:120.034:+:0
0x1.p0:+:1:+:0
00.0012003400P0056007800:+:.00120034:+:56007800
+1__2__.__3__4__p+5__6__:+:12.34:+:56
+1__2__.__3__4__p-5__6__:+:12.34:-:56
-1__2__.__3__4__p+5__6__:-:12.34:+:56
-1__2__.__3__4__p-5__6__:-:12.34:-:56
1__2__.__3__4__p5__6__:+:12.34:+:56
1__2__.__3__4__p-5__6__:+:12.34:-:56
-1__2__.__3__4__p5__6__:-:12.34:+:56
-0x__a__b__.__c__d__p-1__2__:-:ab.cd:-:12
-0X__A__B__.__C__D__P-1__2__:-:AB.CD:-:12
|