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
|
#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
use Data::ParseBinary;
use Math::BigInt;
use Test::More tests => 16;
#use Test::More qw(no_plan);
$| = 1;
my ($s, $data, $string);
$s = SBInt64("BigOne");
$data = 1;
$string = "\0\0\0\0\0\0\0\1";
is_deeply($s->parse($string), $data, "SBInt64: Parse: one");
ok( $s->build($data) eq $string, "SBInt64: Build: one");
$data = -256;
$string = "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\0";
is_deeply($s->parse($string), $data, "SBInt64: Parse: minus 256");
ok( $s->build($data) eq $string, "SBInt64: Build: minus 256");
$s = SLInt64("BigOne");
$data = 1;
$string = "\1\0\0\0\0\0\0\0";
is_deeply($s->parse($string), $data, "SLInt64: Parse: one");
ok( $s->build($data) eq $string, "SLInt64: Build: one");
$data = -256;
$string = "\0\xFF\xFF\xFF\xFF\xFF\xFF\xFF";
is_deeply($s->parse($string), $data, "SLInt64: Parse: minus 256");
ok( $s->build($data) eq $string, "SLInt64: Build: minus 256");
$s = UBInt64("BigOne");
$data = 1;
$string = "\0\0\0\0\0\0\0\1";
is_deeply($s->parse($string), $data, "UBInt64: Parse: one");
ok( $s->build($data) eq $string, "UBInt64: Build: one");
$data = Math::BigInt->new("18446744073709551360");
$string = "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\0";
is_deeply($s->parse($string), $data, "UBInt64: Parse: minus 256 (18446744073709551360)");
my $ans = $s->build($data);
ok( $ans eq $string, "UBInt64: Build: minus 256 (got:".unpack("H*", $ans).")");
$s = ULInt64("BigOne");
$data = 1;
$string = "\1\0\0\0\0\0\0\0";
is_deeply($s->parse($string), $data, "ULInt64: Parse: one");
ok( $s->build($data) eq $string, "ULInt64: Build: one");
$data = Math::BigInt->new("18446744073709551360");
$string = "\0\xFF\xFF\xFF\xFF\xFF\xFF\xFF";
is_deeply($s->parse($string), $data, "ULInt64: Parse: minus 256 (18446744073709551360)");
$ans = $s->build($data);
ok( $ans eq $string, "ULInt64: Build: minus 256 (got:".unpack("H*", $ans).")");
|
