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 0.10";
9    #https://rt.cpan.org/Ticket/Display.html?id=74364
10    return $@ ? 0 : 1;
11}
12
13use strict;
14use warnings;
15use Test::More tests => 1;
16use IO::c55Capture;    # for util
17
18SKIP: {
19    skip "requires TAP::Formatter::HTML 0.10", 1 unless _has_TAP_Formatter_HTML();
20
21    my $ans = util::stdout_of(
22        sub {
23            system( $^X,
24                "bin/prove",
25                "-l",
26                "--formatter=TAP::Formatter::HTML",
27                "--tapversion=13",
28                "t/sample-tests/simple_yaml_missing_version13"
29            ) and die "error $?";
30        }
31    );
32    like(
33        $ans, qr/li class="yml"/,
34        "prove --tapversion=13 simple_yaml_missing_version13"
35    );
36}
37