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