Attachment 66584 Details for Bug 19198 – Bug 19198 - Unit tests

[patch] Bug 19198 - Unit tests

Bug-19198---Unit-tests.patch (text/plain), 2.90 KB, created by Nick Clemens (kidclamp) on 2017-08-29 14:27:25 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Nick Clemens (kidclamp)

Created: 2017-08-29 14:27:25 UTC

Size: 2.90 KB

patch

obsolete

>From 19027aa4d74b89185f0a9dcd4f8354d2a523de9f Mon Sep 17 00:00:00 2001
>From: Nick Clemens <nick@bywatersolutions.com>
>Date: Tue, 29 Aug 2017 14:10:54 +0000
>Subject: [PATCH] Bug 19198 - Unit tests
>
>---
> t/db_dependent/Circulation.t | 55 +++++++++++++++++++++++++++++++++++++++++++-
> 1 file changed, 54 insertions(+), 1 deletion(-)
>
>diff --git a/t/db_dependent/Circulation.t b/t/db_dependent/Circulation.t
>index 361637e..2bf8a98 100755
>--- a/t/db_dependent/Circulation.t
>+++ b/t/db_dependent/Circulation.t
>@@ -17,7 +17,7 @@
> 
> use Modern::Perl;
> 
>-use Test::More tests => 98;
>+use Test::More tests => 99;
> 
> use DateTime;
> 
>@@ -1716,6 +1716,59 @@ subtest 'AddReturn | is_overdue' => sub {
> 
> };
> 
>+subtest 'AddReturn | is_overdue' => sub {
>+    plan tests => 3;
>+
>+# Set a simple circ policy
>+$dbh->do('DELETE FROM issuingrules');
>+$dbh->do(
>+    q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed,
>+                                maxissueqty, issuelength, lengthunit,
>+                                renewalsallowed, renewalperiod,
>+                                norenewalbefore, auto_renew,
>+                                fine, chargeperiod)
>+      VALUES (?, ?, ?, ?,
>+              ?, ?, ?,
>+              ?, ?,
>+              ?, ?,
>+              ?, ?
>+             )
>+    },
>+    {},
>+    '*', '*', '*', 25,
>+    1, 14, 'days',
>+    1, 7,
>+    undef, 0,
>+    .10, 1
>+);
>+    my $five_days_go = output_pref({ dt => dt_from_string->add( days => 5 ), dateonly => 1});
>+    my $ten_days_go  = output_pref({ dt => dt_from_string->add( days => 10), dateonly => 1 });
>+    my $library = $builder->build( { source => 'Branch' } );
>+    my $patron  = $builder->build( { source => 'Borrower' } );
>+
>+    my $biblioitem = $builder->build( { source => 'Biblioitem' } );
>+    my $item = $builder->build(
>+        {
>+            source => 'Item',
>+            value  => {
>+                homebranch    => $library->{branchcode},
>+                holdingbranch => $library->{branchcode},
>+                notforloan    => 0,
>+                itemlost      => 0,
>+                withdrawn     => 0,
>+                biblionumber  => $biblioitem->{biblionumber},
>+            }
>+        }
>+    );
>+    my $issue = AddIssue( $patron, $item->{barcode}, $five_days_go ); # date due was 10d ago
>+    my $actualissue = Koha::Checkouts->find( { itemnumber => $item->{itemnumber} } );
>+    is( output_pref({ str => $actualissue->date_due, dateonly => 1}), $five_days_go, "First issue works");
>+    my ($issuingimpossible, $needsconfirmation) = CanBookBeIssued($patron,$item->{barcode},$ten_days_go, undef, undef, undef);
>+    is( $needsconfirmation->{RENEW_ISSUE}, 1, "This is a renewal");
>+    is( $needsconfirmation->{TOO_MANY}, undef, "Not too many, is a renewal");
>+
>+};
>+
> sub set_userenv {
>     my ( $library ) = @_;
>     C4::Context->set_userenv(0,0,0,'firstname','surname', $library->{branchcode}, $library->{branchname}, '', '', '');
>-- 
>2.1.4

Actions: View | Diff | Splinter Review

Attachments on bug 19198: 66584 | 66585 | 66670 | 66671 | 67111 | 67112 | 67113 | 67567 | 67568 | 67569 | 67571 | 67572 | 67573 | 67719 | 67720