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

(-)a/t/db_dependent/Circulation_issue.t (-7 / +24 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
# This file is part of Koha.
4
#
5
# Koha is free software; you can redistribute it and/or modify it
6
# under the terms of the GNU General Public License as published by
7
# the Free Software Foundation; either version 3 of the License, or
8
# (at your option) any later version.
9
#
10
# Koha is distributed in the hope that it will be useful, but
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
14
#
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
3
use Modern::Perl;
18
use Modern::Perl;
19
4
use Koha::DateUtils;
20
use Koha::DateUtils;
5
use DateTime::Duration;
21
use DateTime::Duration;
6
use C4::Biblio;
22
use C4::Biblio;
Lines 193-208 my $sth = $dbh->prepare($query); Link Here
193
$sth->execute;
209
$sth->execute;
194
my $countissue = $sth -> fetchrow_array;
210
my $countissue = $sth -> fetchrow_array;
195
is ($countissue ,0, "there is no issue");
211
is ($countissue ,0, "there is no issue");
196
my $datedue1 = C4::Circulation::AddIssue( $borrower_1, 'barcode_1', $daysago10,0, $today, '' );
212
my $issue1 = C4::Circulation::AddIssue( $borrower_1, 'barcode_1', $daysago10,0, $today, '' );
213
is( ref $issue1, 'Koha::Schema::Result::Issue',
214
       'AddIssue returns a Koha::Schema::Result::Issue object' );
215
my $datedue1 = dt_from_string( $issue1->date_due() );
197
like(
216
like(
198
    $datedue1,
217
    $datedue1,
199
    qr/^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}/,
218
    qr/^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}/,
200
    "AddRenewal returns a date"
219
    "Koha::Schema::Result::Issue->date_due() returns a date"
201
);
220
);
202
my $issue_id1 = $dbh->last_insert_id( undef, undef, 'issues', undef );
221
my $issue_id1 = $dbh->last_insert_id( undef, undef, 'issues', undef );
203
222
204
my $datedue2 = C4::Circulation::AddIssue( $borrower_1, 'nonexistent_barcode' );
223
my $issue2 = C4::Circulation::AddIssue( $borrower_1, 'nonexistent_barcode' );
205
is( $datedue2, undef, "AddIssue returns undef if no datedue is specified" );
224
is( $issue2, undef, "AddIssue returns undef if no datedue is specified" );
206
my $issue_id2 = $dbh->last_insert_id( undef, undef, 'issues', undef );
225
my $issue_id2 = $dbh->last_insert_id( undef, undef, 'issues', undef );
207
226
208
$sth->execute;
227
$sth->execute;
Lines 252-259 my $openissue = GetOpenIssue($borrower_id1, $item_id1); Link Here
252
271
253
my @renewcount;
272
my @renewcount;
254
#Test GetRenewCount
273
#Test GetRenewCount
255
$datedue2 = C4::Circulation::AddIssue( $borrower_1, 'barcode_1' );
274
my $issue3 = C4::Circulation::AddIssue( $borrower_1, 'barcode_1' );
256
isnt( $datedue2, undef, "AddIssue does not return undef if datedue is specified" );
257
#Without anything in DB
275
#Without anything in DB
258
@renewcount = C4::Circulation::GetRenewCount();
276
@renewcount = C4::Circulation::GetRenewCount();
259
is_deeply(
277
is_deeply(
260
- 

Return to bug 13315