|
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 |
- |
|
|