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
|
#!perl -T
use strict;
use warnings;
use Test::Tester tests => 2 + 4 * 7;
use Test::More;
use Test::NoWarnings;
BEGIN {
use_ok( 'Test::HexDifferences' );
}
check_test(
sub {
dumped_eq_dump_or_diff(undef, 1, 'got undef');
},
{
ok => 0,
depth => 1,
name => 'got undef',
diag => <<'EOT',
+---+-------+----------+
| Ln|Got |Expected |
+---+-------+----------+
* 1|undef |1 *
+---+-------+----------+
EOT
},
);
check_test(
sub {
dumped_eq_dump_or_diff(1, undef, 'expected undef');
},
{
ok => 0,
depth => 1,
name => 'expected undef',
diag => <<'EOT',
+---+--------------------------+----------+
| Ln|Got |Expected |
+---+--------------------------+----------+
* 1|0000 : 31 : 1\n |undef *
+---+--------------------------+----------+
EOT
},
);
check_test(
sub {
dumped_eq_dump_or_diff(
1,
"0000 : 31 : 1\n",
'equal',
);
},
{
ok => 1,
depth => 1,
name => 'equal',
diag => q{},
},
);
check_test(
sub {
dumped_eq_dump_or_diff(
'12345678',
<<'EOT',
0000 : 31 32 33 34 : 1234
0004 : 35 36 37 : 567
EOT
'12345678 ne 1234567',
);
},
{
ok => 0,
depth => 1,
name => '12345678 ne 1234567',
diag => <<'EOT',
+---+---------------------------+---------------------------+
| Ln|Got |Expected |
+---+---------------------------+---------------------------+
| 1|0000 : 31 32 33 34 : 1234 |0000 : 31 32 33 34 : 1234 |
* 2|0004 : 35 36 37 38 : 5678 |0004 : 35 36 37 : 567 *
+---+---------------------------+---------------------------+
EOT
},
);
|
