#!perl
use
v5.10.1;
use
strict;
$ENV
{HOCKEYDB_DEBUG} =
$IS_AUTHOR
;
my
$report
;
$report
= Sport::Analytics::NHL::Report::PL->new({
file
=>
't/data/2011/0002/0010/PL.html'
,
});
isa_ok(
$report
,
'Sport::Analytics::NHL::Report::PL'
);
$report
->process();
test_boxscore(
$report
, {
pl
=> 1});
is(
$TEST_COUNTER
->{Curr_Test}, 2143,
'full test run'
);
is(
$TEST_COUNTER
->{Curr_Test},
$TEST_COUNTER
->{Test_Results}[0],
'all ok'
);
$BOXSCORE
=
undef
;