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
|
#!/usr/bin/perl -w
BEGIN {
unshift @INC, 't/lib';
}
sub _has_TAP_Formatter_HTML {
eval "use TAP::Formatter::HTML";
return $@ ? 0 : 1;
}
use strict;
use warnings;
use Test::More tests => 1;
use IO::c55Capture; # for util
SKIP: {
skip "requires TAP::Formatter::HTML", 1 unless _has_TAP_Formatter_HTML();
my $ans = util::stdout_of(
sub {
system( $^X,
"bin/prove",
"-l",
"--formatter=TAP::Formatter::HTML",
"--tapversion=13",
"t/sample-tests/simple_yaml_missing_version13"
) and die "error $?";
}
);
like(
$ans, qr/li class="yml"/,
"prove --tapversion=13 simple_yaml_missing_version13"
);
}
|
