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
40
41
42
43
44
45
46
47
48
49
50
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 21;
my $m;
BEGIN { use_ok($m = "Test::TAP::Model::Subtest") }
isa_ok(my $s = $m->new(my $r = {
type => "test",
num => 7,
ok => 1,
actual_ok => 0,
todo => 0,
skip => 0,
reason => "foo",
line => "this is a line",
diag => "diagnosis",
pos => "foo at line 4, column 3",
str => "stringified",
}), $m);
ok($s->ok, "ok");
ok(!$s->actual_ok, "actual_ok");
ok(!$s->nok, "failed");
ok(!$s->skipped, "skipped");
ok(!$s->todo, "todo");
is($s->num, 7, "number");
is($s->line, "this is a line", "line");
is($s->diag, "diagnosis", "line");
is($s->reason, "foo", "reason");
is($s->pos, "foo at line 4, column 3", "pos");
is($s->test_file, "foo", "pos hack file");
is($s->test_line, 4, "pos hack line");
is($s->test_column, 3, "pos hack col");
$r->{$_} = !$r->{$_} for qw/ok actual_ok skip todo/;
ok(!$s->passed, "ok");
ok($s->actual_ok, "actual_ok");
ok($s->failed, "failed");
ok($s->skipped, "skipped");
ok($s->todo, "todo");
is("$s", "stringified", "stringification");
|
