cpan/Test-Harness/t/proveversion.t


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

#!/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 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"
    );
}