use
strict;
my
@scripts
;
my
$logfile
= $0;
$logfile
=~ s/t$/
log
/;
ok ( -e
"./$logfile"
,
"Verifying existance of $logfile"
)
or diag(
"No log file found for '$0'"
);
use
Test::Parser::ltp;
my
$parser
= new Test::Parser::ltp;
$parser
->parse(
$logfile
);
ok (
$parser
->num_executed() == 34,
"Executed count"
);
ok (
$parser
->num_passed() == 13,
"Passed count"
);
ok (
$parser
->num_failed() == 21,
"Failed count"
);
ok (
$parser
->num_skipped() == 0,
"Skipped count"
);