Skip to content

Commit 63923d6

Browse files
schladokurz
andauthored
Update lib/OpenQA/Parser/Format/KTAP.pm
Co-authored-by: Oliver Kurz <[email protected]>
1 parent 16e2962 commit 63923d6

File tree

1 file changed

+0
-7
lines changed

1 file changed

+0
-7
lines changed

lib/OpenQA/Parser/Format/KTAP.pm

Lines changed: 0 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -92,30 +92,23 @@ sub _testgroup_finalize ($self, $steps_ref, $result) {
9292

9393
sub parse ($self, $KTAP) {
9494
_is_tap($KTAP);
95-
9695
my $parser = TAP::Parser->new({tap => $KTAP});
9796
my ($test, $steps, $m) = ({}, undef, 0);
98-
9997
while (my $result = $parser->next) {
100-
10198
next if $result->type eq 'version' || $result->type eq 'plan';
102-
10399
if ($result->type eq 'comment' && $result->as_string =~ /^#\s*selftests:\s+(.*)/) {
104100
$self->_testgroup_init($result->as_string, \$test, \$steps, \$m);
105101
next;
106102
}
107-
108103
if ($result->type eq 'comment' && $result->as_string =~ /^#\s*(ok|not ok)\s+\d+\s+(.+)/) {
109104
$self->_parse_subtest($result, \$test, \$steps, \$m);
110105
next;
111106
}
112-
113107
if ($result->type eq 'test' && $result->description =~ /^selftests: /) {
114108
$self->_testgroup_finalize(\$steps, $result);
115109
next;
116110
}
117111
}
118-
119112
if ($steps && $self->test) {
120113
$steps->{name} = $self->test->{name};
121114
$steps->{test} = $self->test;

0 commit comments

Comments
 (0)