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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
#!perl -w
# $Id: regression.t,v 1.1 2009/03/02 22:00:39 drhyde Exp $
use strict;
use Test::More tests => 14;
use_ok('Data::Hexdumper', 'hexdump');
eval { hexdump('foo', {number_format => 'R'}) };
ok($@, "invalid format is fatal: $@");
ok("\n".hexdump(
data => join('', map { pack('C', $_) } (0x20 .. 0x3F)),
number_format => 'N',
start_position => 0,
end_position => 0x1F
) eq q{
0x0000 : 20212223 24252627 28292A2B 2C2D2E2F : .!"#$%&'()*+,-./
0x0010 : 30313233 34353637 38393A3B 3C3D3E3F : 0123456789:;<=>?
}, "big-endian 32-bit words, no padding");
ok("\n".hexdump(
data => join('', map { pack('C', $_) } (0x20 .. 0x3F)),
number_format => 'N',
start_position => 0,
end_position => 0x1F,
space_as_space => 1
) eq q{
0x0000 : 20212223 24252627 28292A2B 2C2D2E2F : !"#$%&'()*+,-./
0x0010 : 30313233 34353637 38393A3B 3C3D3E3F : 0123456789:;<=>?
}, "space_as_space");
ok("\n".hexdump(
data => join('', map { pack('C', $_) } (0x20 .. 0x3F)),
number_format => 'N'
) eq q{
0x0000 : 20212223 24252627 28292A2B 2C2D2E2F : .!"#$%&'()*+,-./
0x0010 : 30313233 34353637 38393A3B 3C3D3E3F : 0123456789:;<=>?
}, "start_position and end_position defaults");
my $results = '';
foreach my $format(qw (C n v V)) { # same trivial test for other formats
$results .= hexdump(
data => join('', map { pack('C', $_) } (0x20 .. 0x3F)),
number_format => $format
);
}
ok("\n".$results eq q{
0x0000 : 20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 2F : .!"#$%&'()*+,-./
0x0010 : 30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F : 0123456789:;<=>?
0x0000 : 2021 2223 2425 2627 2829 2A2B 2C2D 2E2F : .!"#$%&'()*+,-./
0x0010 : 3031 3233 3435 3637 3839 3A3B 3C3D 3E3F : 0123456789:;<=>?
0x0000 : 2120 2322 2524 2726 2928 2B2A 2D2C 2F2E : .!"#$%&'()*+,-./
0x0010 : 3130 3332 3534 3736 3938 3B3A 3D3C 3F3E : 0123456789:;<=>?
0x0000 : 23222120 27262524 2B2A2928 2F2E2D2C : .!"#$%&'()*+,-./
0x0010 : 33323130 37363534 3B3A3938 3F3E3D3C : 0123456789:;<=>?
}, "other data formats");
ok("\n".hexdump(
data => join('', map { pack('C', $_) } (0x10 .. 0x2F)),
number_format => 'N'
) eq q{
0x0000 : 10111213 14151617 18191A1B 1C1D1E1F : ................
0x0010 : 20212223 24252627 28292A2B 2C2D2E2F : .!"#$%&'()*+,-./
}, "unprintable characters");
ok(hexdump(
data => join('', map { pack('C', $_) } (0x10 .. 0x2F)),
number_format => 'S'
) eq hexdump(
data => join('', map { pack('C', $_) } (0x10 .. 0x2F)),
number_format => 'n'
) || hexdump(
data => join('', map { pack('C', $_) } (0x10 .. 0x2F)),
number_format => 'S'
) eq hexdump(
data => join('', map { pack('C', $_) } (0x10 .. 0x2F)),
number_format => 'v'
), "S eq n or v");
ok(hexdump(
data => join('', map { pack('C', $_) } (0x10 .. 0x2F)),
number_format => 'L'
) eq hexdump(
data => join('', map { pack('C', $_) } (0x10 .. 0x2F)),
number_format => 'N'
) || hexdump(
data => join('', map { pack('C', $_) } (0x10 .. 0x2F)),
number_format => 'L'
) eq hexdump(
data => join('', map { pack('C', $_) } (0x10 .. 0x2F)),
number_format => 'V'
), "L eq N or V");
$results = '';
foreach my $format (qw(N n)) {
foreach my $max (0x3C, 0x3D, 0x3E) {
$results .= hexdump(
data => join('', map { pack('C', $_) } (0x20 .. $max)),
number_format => $format,
suppress_warnings => 1
);
}
}
ok("\n".$results eq q{
0x0000 : 20212223 24252627 28292A2B 2C2D2E2F : .!"#$%&'()*+,-./
0x0010 : 30313233 34353637 38393A3B 3C000000 : 0123456789:;<...
0x0000 : 20212223 24252627 28292A2B 2C2D2E2F : .!"#$%&'()*+,-./
0x0010 : 30313233 34353637 38393A3B 3C3D0000 : 0123456789:;<=..
0x0000 : 20212223 24252627 28292A2B 2C2D2E2F : .!"#$%&'()*+,-./
0x0010 : 30313233 34353637 38393A3B 3C3D3E00 : 0123456789:;<=>.
0x0000 : 2021 2223 2425 2627 2829 2A2B 2C2D 2E2F : .!"#$%&'()*+,-./
0x0010 : 3031 3233 3435 3637 3839 3A3B 3C00 : 0123456789:;<.
0x0000 : 2021 2223 2425 2627 2829 2A2B 2C2D 2E2F : .!"#$%&'()*+,-./
0x0010 : 3031 3233 3435 3637 3839 3A3B 3C3D : 0123456789:;<=
0x0000 : 2021 2223 2425 2627 2829 2A2B 2C2D 2E2F : .!"#$%&'()*+,-./
0x0010 : 3031 3233 3435 3637 3839 3A3B 3C3D 3E00 : 0123456789:;<=>.
}, "NULL-padding");
$results = hexdump(data => '!');
ok("\n".$results eq q{
0x0000 : 21 : !
}, "Single byte data");
ok("\n".hexdump(data => '0') eq q{
0x0000 : 30 : 0
}, "Can dump a zero (0, not NULL!) byte");
ok(hexdump(data => 'abcdefghijkl') eq hexdump('abcdefghijkl'),
'hexdump($string) works');
ok(hexdump(
data => join('', map { pack('C', $_) } (0x00 .. 0x3F)),
number_format => 'N',
start_position => 0,
end_position => 0x1F,
space_as_space => 1
) eq hexdump(
join('', map { pack('C', $_) } (0x00 .. 0x3F)),
{
number_format => 'N',
start_position => 0,
end_position => 0x1F,
space_as_space => 1
}
), 'hexdump($string, {... opts ...}) works');
|
