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
|
use 5.008001;
use Test::More 0.96;
use Capture::Tiny 0.12 qw/capture/;
use lib 't/lib';
my @cases = (
{
label => "missing role",
file => "t/bin/role-not-found.pl",
expect => qr/Can't \S+ RoleNotFoundAnywhere\.pm in \@INC/,
},
{
label => "requires not satisfied",
file => "t/bin/unsatisfied.pl",
expect => qr/Can't apply RequiresFixture to main/,
},
{
label => "Test::Roo loads strictures",
file => "t/bin/not-strict.pl",
expect => qr/requires explicit package name/,
},
{
label => "skip_all respected",
file => "t/bin/skip-all.pl",
expect => qr/We just want to skip/,
exit_ok => 1,
stdout => 1,
},
{
label => "skip_all respected in role",
file => "t/bin/skip-in-role.pl",
expect => qr/We just want to skip/,
exit_ok => 1,
stdout => 1,
},
);
for my $c (@cases) {
my ( $output, $error, $rc ) = capture { system( $^X, $c->{file} ) };
subtest $c->{label} => sub {
if ( $c->{exit_ok} ) {
ok( !$rc, "exit ok" );
}
else {
ok( $rc, "nonzero exit" );
}
like( $c->{stdout} ? $output : $error, $c->{expect}, "exception text" );
};
}
done_testing;
#
# This file is part of Test-Roo
#
# This software is Copyright (c) 2013 by David Golden.
#
# This is free software, licensed under:
#
# The Apache License, Version 2.0, January 2004
#
# vim: ts=4 sts=4 sw=4 et:
|
