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
|
#!/usr/bin/perl -w
# Test that HARNESS_SUBCLASS env var is honoured.
use strict;
use warnings;
use lib 't/lib';
use Test::More (
$^O eq 'VMS'
? ( skip_all => 'VMS' )
: ( tests => 1 )
);
use Test::Harness;
my $test_template = <<'END';
#!/usr/bin/perl
use Test::More tests => 1;
is $ENV{HARNESS_IS_SUBCLASS}, 'TAP::Harness::TestSubclass';
END
my $tempfile = "_check_subclass_t.tmp";
open TEST, ">$tempfile";
print TEST $test_template;
close TEST;
END { unlink $tempfile; }
{
local $ENV{HARNESS_SUBCLASS} = 'TAP::Harness::TestSubclass';
my ( $tot, $failed )
= Test::Harness::execute_tests( tests => [$tempfile] );
is $tot->{bad}, 0;
}
1;
|
