Lines 43-49
$dbh->do(q|DELETE FROM saved_reports|);
Link Here
|
43 |
#Start tests |
43 |
#Start tests |
44 |
|
44 |
|
45 |
#Test save_report |
45 |
#Test save_report |
46 |
my $count = scalar( @{ get_saved_reports() } ); |
46 |
my $count = scalar @{ get_saved_reports() }; |
47 |
is( $count, 0, "There is no report" ); |
47 |
is( $count, 0, "There is no report" ); |
48 |
|
48 |
|
49 |
my @report_ids; |
49 |
my @report_ids; |
Lines 67-76
like( $report_ids[0], '/^\d+$/', "Save_report returns an id for first" );
Link Here
|
67 |
like( $report_ids[1], '/^\d+$/', "Save_report returns an id for second" ); |
67 |
like( $report_ids[1], '/^\d+$/', "Save_report returns an id for second" ); |
68 |
like( $report_ids[2], '/^\d+$/', "Save_report returns an id for third" ); |
68 |
like( $report_ids[2], '/^\d+$/', "Save_report returns an id for third" ); |
69 |
|
69 |
|
70 |
is( scalar( @{ get_saved_reports() } ), |
70 |
is( scalar @{ get_saved_reports() }, |
71 |
$count, "$count reports have been added" ); |
71 |
$count, "$count reports have been added" ); |
72 |
|
72 |
|
73 |
is( scalar( @{ get_saved_reports( $report_ids[0] ) } ), |
73 |
is( scalar @{ get_saved_reports( $report_ids[0] ) }, |
74 |
1, "filter takes report id" ); |
74 |
1, "filter takes report id" ); |
75 |
|
75 |
|
76 |
#Test delete_report |
76 |
#Test delete_report |
Lines 79-95
is (delete_report(),undef, "Without id delete_report returns undef");
Link Here
|
79 |
is( delete_report( $report_ids[0] ), 1, "report 1 is deleted" ); |
79 |
is( delete_report( $report_ids[0] ), 1, "report 1 is deleted" ); |
80 |
$count--; |
80 |
$count--; |
81 |
|
81 |
|
82 |
is( scalar( @{ get_saved_reports() } ), $count, "Report1 has been deleted" ); |
82 |
is( scalar @{ get_saved_reports() }, $count, "Report1 has been deleted" ); |
83 |
|
83 |
|
84 |
is( delete_report( $report_ids[1], $report_ids[2] ), 2, "report 2 and 3 are deleted" ); |
84 |
is( delete_report( $report_ids[1], $report_ids[2] ), 2, "report 2 and 3 are deleted" ); |
85 |
$count -= 2; |
85 |
$count -= 2; |
86 |
|
86 |
|
87 |
is( scalar( @{ get_saved_reports() } ), |
87 |
is( scalar @{ get_saved_reports() }, |
88 |
$count, "Report2 and report3 have been deleted" ); |
88 |
$count, "Report2 and report3 have been deleted" ); |
89 |
|
89 |
|
90 |
my $sth = execute_query('SELECT COUNT(*) FROM systempreferences', 0, 10); |
90 |
my $sth = execute_query('SELECT COUNT(*) FROM systempreferences', 0, 10); |
91 |
my $results = $sth->fetchall_arrayref; |
91 |
my $results = $sth->fetchall_arrayref; |
92 |
is(scalar(@$results), 1, 'running a query returned a result'); |
92 |
is(scalar @$results, 1, 'running a query returned a result'); |
93 |
|
93 |
|
94 |
my $version = C4::Context->preference('Version'); |
94 |
my $version = C4::Context->preference('Version'); |
95 |
$sth = execute_query( |
95 |
$sth = execute_query( |
96 |
- |
|
|