Koha-community
/
Koha
13
5
Fork 0
Code Issues Releases Wiki Activity
Browse Source

Bug 13315: (QA followup) fix t/db_dependent/Circulation_issue.t 

C4::Circulation::AddIssue now returns a Koha::Schema::Result::Issue object
so tests need to be fixed.

The old behaviour was to always return the due date. It now returns
undef if no issue performed. So one of the tests become irrelevant.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
3.20.x
Tomás Cohen Arazi 9 years ago
parent
16d438d18b
commit
73c0c9ef00
1 changed files with 24 additions and 6 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 30
      t/db_dependent/Circulation_issue.t

30
t/db_dependent/Circulation_issue.t
View File

@ -1,6 +1,22 @@
#!/usr/bin/perl #!/usr/bin/perl
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl; use Modern::Perl;
use Koha::DateUtils; use Koha::DateUtils;
use DateTime::Duration; use DateTime::Duration;
use C4::Biblio; use C4::Biblio;
@ -193,16 +209,19 @@ my $sth = $dbh->prepare($query);
$sth->execute; $sth->execute;
my $countissue = $sth -> fetchrow_array; my $countissue = $sth -> fetchrow_array;
is ($countissue ,0, "there is no issue"); is ($countissue ,0, "there is no issue");
my $datedue1 = C4::Circulation::AddIssue( $borrower_1, 'barcode_1', $daysago10,0, $today, '' ); my $issue1 = C4::Circulation::AddIssue( $borrower_1, 'barcode_1', $daysago10,0, $today, '' );
is( ref $issue1, 'Koha::Schema::Result::Issue',
'AddIssue returns a Koha::Schema::Result::Issue object' );
my $datedue1 = dt_from_string( $issue1->date_due() );
like( like(
$datedue1, $datedue1,
qr/^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}/, qr/^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}/,
"AddRenewal returns a date" "Koha::Schema::Result::Issue->date_due() returns a date"
); );
my $issue_id1 = $dbh->last_insert_id( undef, undef, 'issues', undef ); my $issue_id1 = $dbh->last_insert_id( undef, undef, 'issues', undef );
my $datedue2 = C4::Circulation::AddIssue( $borrower_1, 'nonexistent_barcode' ); my $issue2 = C4::Circulation::AddIssue( $borrower_1, 'nonexistent_barcode' );
is( $datedue2, undef, "AddIssue returns undef if no datedue is specified" ); is( $issue2, undef, "AddIssue returns undef if no datedue is specified" );
my $issue_id2 = $dbh->last_insert_id( undef, undef, 'issues', undef ); my $issue_id2 = $dbh->last_insert_id( undef, undef, 'issues', undef );
$sth->execute; $sth->execute;
@ -252,8 +271,7 @@ my $openissue = GetOpenIssue($borrower_id1, $item_id1);
my @renewcount; my @renewcount;
#Test GetRenewCount #Test GetRenewCount
$datedue2 = C4::Circulation::AddIssue( $borrower_1, 'barcode_1' ); my $issue3 = C4::Circulation::AddIssue( $borrower_1, 'barcode_1' );
isnt( $datedue2, undef, "AddIssue does not return undef if datedue is specified" );
#Without anything in DB #Without anything in DB
@renewcount = C4::Circulation::GetRenewCount(); @renewcount = C4::Circulation::GetRenewCount();
is_deeply( is_deeply(

Write Preview
Loading…
Cancel
Save