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

Bug 7688: (follow-up) rewrite 'for' loop in unit tests 

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
Julian Maurice 2013-07-04 12:00:10 +02:00 committed by Galen Charlton
parent 21be80ff97
commit 89938401c8
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
t/Serials/GetNextSeq.t
View File

@ -164,7 +164,7 @@ is($seq, 'Y: 2, X: 1');
$seq = _next_seq($subscription, $pattern);
is($seq, 'Y: 2, X: 2');
# Back to the future
for (my $i = 0; $i < 39; $i++) {
for (1..39) {
$seq = _next_seq($subscription, $pattern);
}
$seq = _next_seq($subscription, $pattern);
@ -203,7 +203,7 @@ $seq = _next_seq($subscription, $pattern);
is($seq, 'Z: 1, Y: 1, X: 4');
$seq = _next_seq($subscription, $pattern);
is($seq, 'Z: 1, Y: 2, X: 1');
for (my $i = 0; $i < 24; $i++) {
for (1..24) {
$seq = _next_seq($subscription, $pattern);
}
$seq = _next_seq($subscription, $pattern);
@ -214,7 +214,7 @@ $seq = _next_seq($subscription, $pattern);
is($seq, 'Z: 1, Y: 8, X: 4');
$seq = _next_seq($subscription, $pattern);
is($seq, 'Z: 2, Y: 1, X: 1');
for (my $i = 0; $i < 350; $i++) {
for (1..350) {
$seq = _next_seq($subscription, $pattern);
}
$seq = _next_seq($subscription, $pattern);

2
t/db_dependent/Serials/GetNextSeq.t
View File

@ -246,7 +246,7 @@ is($seq, 'Z: 1, Y: 2, X: 3');
$publisheddate = GetNextDate($subscription, $publisheddate);
$seq = _next_seq($subscription, $pattern, $publisheddate);
is($seq, 'Z: 1, Y: 2, X: 4');
for (my $i = 0; $i < 100; $i++) {
for (1..100) {
$publisheddate = GetNextDate($subscription, $publisheddate);
$seq = _next_seq($subscription, $pattern, $publisheddate);
}