1#!/usr/bin/perl -w
2
3BEGIN {
4    unshift @INC, 't/lib';
5}
6
7sub _has_TAP_Formatter_HTML {
8    eval "use TAP::Formatter::HTML";
9    return $@ ? 0 : 1;
10}
11
12use strict;
13use warnings;
14use Test::More tests => 1;
15use IO::c55Capture;    # for util
16
17SKIP: {
18    skip "requires TAP::Formatter::HTML", 1 unless _has_TAP_Formatter_HTML();
19
20    my $ans = util::stdout_of(
21        sub {
22            system( $^X,
23                "bin/prove",
24                "-l",
25                "--formatter=TAP::Formatter::HTML",
26                "--tapversion=13",
27                "t/sample-tests/simple_yaml_missing_version13"
28            ) and die "error $?";
29        }
30    );
31    like(
32        $ans, qr/li class="yml"/,
33        "prove --tapversion=13 simple_yaml_missing_version13"
34    );
35}
36