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
|
#!perl
use strict;
use warnings;
use lib 't/lib';
use Test::Differences::TestUtils::Capture;
use Test::More;
END { done_testing(); }
my $stderr = capture_error { system (
$^X, (map { "-I$_" } (@INC)),
't/script/default-headers'
) };
is(
$stderr,
"# Failed test 'both the same'
# at t/script/default-headers line 8.
# +----+----------------+----------------+
# | Elt|Got |Expected |
# +----+----------------+----------------+
# | 0|{ |{ |
# * 1| foo => 'bar' | foo => 'baz' *
# | 2|} |} |
# +----+----------------+----------------+
# Looks like you failed 1 test of 1.
",
"got expected error output"
);
$stderr = capture_error { system (
$^X, (map { "-I$_" } (@INC)),
't/script/custom-headers'
) };
is(
$stderr,
"# Failed test 'both the same'
# at t/script/custom-headers line 8.
# +----+----------------+----------------+
# | Elt|Lard |Chips |
# +----+----------------+----------------+
# | 0|{ |{ |
# * 1| foo => 'bar' | foo => 'baz' *
# | 2|} |} |
# +----+----------------+----------------+
# Looks like you failed 1 test of 1.
",
"got expected error output"
);
|
