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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
#!/usr/bin/perl -wT
use strict;
use warnings;
use lib 't/lib';
use Test::More tests => 10;
use TAP::Parser;
use TAP::Parser::Iterator::Array;
my $tap = <<'END_TAP';
1..5
ok 1 - input file opened
... this is junk
not ok first line of the input valid # todo some data
# this is a comment
ok 3 - read the rest of the file
not ok 4 - this is a real failure
ok 5 # skip we have no description
END_TAP
my @tests;
my $plan_output;
my $todo = 0;
my $skip = 0;
my %callbacks = (
test => sub {
my $test = shift;
push @tests => $test;
$todo++ if $test->has_todo;
$skip++ if $test->has_skip;
},
plan => sub {
my $plan = shift;
$plan_output = $plan->as_string;
}
);
my $iterator = TAP::Parser::Iterator::Array->new( [ split /\n/ => $tap ] );
my $parser = TAP::Parser->new(
{ iterator => $iterator,
callbacks => \%callbacks,
}
);
can_ok $parser, 'run';
$parser->run;
is $plan_output, '1..5', 'Plan callbacks should succeed';
is scalar @tests, $parser->tests_run, '... as should the test callbacks';
@tests = ();
$plan_output = '';
$todo = 0;
$skip = 0;
my $else = 0;
my $all = 0;
my $end = 0;
%callbacks = (
test => sub {
my $test = shift;
push @tests => $test;
$todo++ if $test->has_todo;
$skip++ if $test->has_skip;
},
plan => sub {
my $plan = shift;
$plan_output = $plan->as_string;
},
EOF => sub {
my $p = shift;
$end = 1 if $all == 8 and $p->isa('TAP::Parser');
},
ELSE => sub {
$else++;
},
ALL => sub {
$all++;
},
);
$iterator = TAP::Parser::Iterator::Array->new( [ split /\n/ => $tap ] );
$parser = TAP::Parser->new(
{ iterator => $iterator,
callbacks => \%callbacks,
}
);
can_ok $parser, 'run';
$parser->run;
is $plan_output, '1..5', 'Plan callbacks should succeed';
is scalar @tests, $parser->tests_run, '... as should the test callbacks';
is $else, 2, '... and the correct number of "ELSE" lines should be seen';
is $all, 8, '... and the correct total number of lines should be seen';
is $end, 1, 'EOF callback correctly called';
# Check callback name policing
%callbacks = (
sometest => sub { },
plan => sub { },
random => sub { },
ALL => sub { },
ELSES => sub { },
);
$iterator = TAP::Parser::Iterator::Array->new( [ split /\n/ => $tap ] );
eval {
$parser = TAP::Parser->new(
{ iterator => $iterator,
callbacks => \%callbacks,
}
);
};
like $@, qr/Callback/, 'Bad callback keys faulted';
|
