Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 17; |
20 |
use Test::More tests => 18; |
21 |
use Test::Warn; |
21 |
use Test::Warn; |
22 |
|
22 |
|
23 |
use C4::Context; |
23 |
use C4::Context; |
Lines 66-71
like( $report_ids[2], '/^\d+$/', "Save_report returns an id for third" );
Link Here
|
66 |
is( scalar( @{ get_saved_reports() } ), |
66 |
is( scalar( @{ get_saved_reports() } ), |
67 |
$count, "$count reports have been added" ); |
67 |
$count, "$count reports have been added" ); |
68 |
|
68 |
|
|
|
69 |
is( scalar( @{ get_saved_reports( $report_ids[0] ) } ), |
70 |
1, "filter takes report id" ); |
71 |
|
69 |
#Test delete_report |
72 |
#Test delete_report |
70 |
is (delete_report(),undef, "Without id delete_report returns undef"); |
73 |
is (delete_report(),undef, "Without id delete_report returns undef"); |
71 |
|
74 |
|
72 |
- |
|
|