gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 38829: Add a test 

Signed-off-by: Magnus Enger <magnus@libriotech.no>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
[EDIT] Added a shebang line.
Signed-off-by: wainuiwitikapark <wainuiwitikapark@catalyst.net.nz>
(cherry picked from commit 6388b14ba0)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
Signed-off-by: Jesse Maseto <jesse@bywatersolutions.com>
Signed-off-by: JesseM <jesse@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2025-01-06 14:26:00 +01:00 committed by JesseM
parent ec77a84c1c
commit a67fcb8cdf
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
t/db_dependent/Serials/Claims.t
View File

@ -1,5 +1,7 @@
#!/usr/bin/perl
use Modern::Perl;
use Test::More tests => 17;
use Test::More tests => 18;
use C4::Acquisition;
use C4::Budgets qw( AddBudgetPeriod AddBudget );
@ -162,3 +164,12 @@ is( $serial_claimed->{claims_count}, 1, 'The serial should have been claimed' );
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
# FIXME: This test should pass. The GetLateOrMissingIssues should not deal with date format!
#is( $serial_claimed->{claimdate}, $today, 'The serial should have been claimed today' );
subtest 'prevent SQL injections' => sub {
plan tests => 1;
my $time1 = time;
my $hack = q|1 OR (SELECT 1 FROM (SELECT(SLEEP(10)))x)-- -|;
GetLateOrMissingIssues($hack);
my $time2 = time;
ok( $time2 < $time1 + 10, 'The sleep should not be executed' );
};