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
|
use Test::Tester;
use Test::More tests => 42;
use Test::Output;
use strict;
use warnings;
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my $regex = qr/OUT/i;
check_test( sub {
stdout_like(sub {
print "TEST OUT\n";
},
$regex,
'Testing STDOUT'
)
},{
ok => 1,
name => 'Testing STDOUT',
diag => '',
},'STDOUT matching success'
);
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
check_test( sub {
stdout_like(sub {
print "TEST OUT\n";
},
'OUT',
'Testing STDOUT'
)
},{
ok => 0,
depth => 2,
name => 'stdout_like',
diag => "'OUT' doesn't look much like a regex to me.\n",
},'bad regex'
);
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my $regex = qr/out/;
check_test( sub {
stdout_like(sub {
print "TEST OUT\n";
},
$regex,
'Testing STDOUT'
)
},{
ok => 0,
name => 'Testing STDOUT',
diag => "STDOUT:\nTEST OUT\n\ndoesn't match:\n$regex\nas expected\n",
},'STDOUT not matching failure'
);
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my $regex = qr/OUT/i;
check_test( sub {
stdout_like {
print "TEST OUT\n";
}
$regex,
'Testing STDOUT'
},{
ok => 1,
name => 'Testing STDOUT',
diag => '',
},'STDOUT matching success'
);
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
check_test( sub {
stdout_like {
print "TEST OUT\n";
}
'OUT',
'Testing STDOUT'
},{
ok => 0,
depth => 2,
name => 'stdout_like',
diag => "'OUT' doesn't look much like a regex to me.\n",
},'bad regex'
);
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
{
my $regex = qr/out/;
check_test( sub {
stdout_like {
print "TEST OUT\n";
}
$regex,
'Testing STDOUT'
},{
ok => 0,
name => 'Testing STDOUT',
diag => "STDOUT:\nTEST OUT\n\ndoesn't match:\n$regex\nas expected\n",
},'STDOUT not matching failure'
);
}
|
