View | Details | Raw Unified | Return to bug 14036
Collapse All | Expand All

(-)a/t/db_dependent/Serials/GetNextDate.t (-3 / +9 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use C4::Context;
3
use C4::Context;
4
use Test::More tests => 86;
4
use Test::More tests => 88;
5
use Modern::Perl;
5
use Modern::Perl;
6
6
7
my $dbh = C4::Context->dbh;
7
my $dbh = C4::Context->dbh;
Lines 26-32 my $subscription = { Link Here
26
    irregularity => '',
26
    irregularity => '',
27
    countissuesperunit => 1,
27
    countissuesperunit => 1,
28
};
28
};
29
my $publisheddate = $subscription->{firstacquidate};
29
30
my $publisheddate = GetNextDate($subscription, '0000-00-00');
31
is($publisheddate, undef, "0000-00-00 is an expected undef date.");
32
33
$publisheddate = GetNextDate($subscription, '9999-99-99');
34
is($publisheddate, undef, "9999-99-99 is an expected undef date.");
35
36
$publisheddate = $subscription->{firstacquidate};
30
37
31
$publisheddate = GetNextDate($subscription, $publisheddate);
38
$publisheddate = GetNextDate($subscription, $publisheddate);
32
is($publisheddate, '1970-01-02');
39
is($publisheddate, '1970-01-02');
33
- 

Return to bug 14036