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::Mpstat;
my
$parser
= new Test::Parser::Mpstat;
$parser
->parse(
$logfile
);
my
$h
=
$parser
->data();
my
@a
= @{
$h
->{mpstat}->{data}};
my
$realized
;
my
$expected
;
$realized
=
scalar
@a
;
$expected
= 600;
ok (
$realized
==
$expected
,
"Data count: expected $expected, realized $realized"
);
#print $parser->to_xml();
#print "\n";
#print $parser->plot();