Bug 17600: Standardize our EXPORT_OK

[srvgit] / t / db_dependent / SIP / Transaction.t

diff --git a/t/db_dependent/SIP/Transaction.t b/t/db_dependent/SIP/Transaction.t
index a3587bd..1f8cab6 100755 (executable)
--- a/t/db_dependent/SIP/Transaction.t
+++ b/t/db_dependent/SIP/Transaction.t
@@ -4,7 +4,7 @@
 # Current state is very rudimentary. Please help to extend it!
 
 use Modern::Perl;
-use Test::More tests => 11;
+use Test::More tests => 12;
 
 use Koha::Database;
 use t::lib::TestBuilder;
@@ -18,7 +18,7 @@ use C4::SIP::ILS::Transaction::Hold;
 use C4::SIP::ILS::Transaction::Checkout;
 use C4::SIP::ILS::Transaction::Checkin;
 
-use C4::Reserves;
+use C4::Reserves qw( AddReserve ModReserve ModReserveAffect RevertWaitingStatus );
 use Koha::CirculationRules;
 use Koha::Item::Transfer;
 use Koha::DateUtils qw( dt_from_string output_pref );
@@ -377,6 +377,77 @@ subtest do_checkin => sub {
     };
 };
 
+subtest do_checkout_with_holds => sub {
+    plan tests => 7;
+
+    my $library = $builder->build_object( { class => 'Koha::Libraries' } );
+    my $patron = $builder->build_object(
+        {
+            class => 'Koha::Patrons',
+            value => {
+                branchcode => $library->branchcode,
+            }
+        }
+    );
+    my $patron2 = $builder->build_object(
+        {
+            class => 'Koha::Patrons',
+            value => {
+                branchcode => $library->branchcode,
+            }
+        }
+    );
+
+    t::lib::Mocks::mock_userenv(
+        { branchcode => $library->branchcode, flags => 1 } );
+
+    my $item = $builder->build_sample_item(
+        {
+            library => $library->branchcode,
+        }
+    );
+
+    my $reserve = AddReserve(
+        {
+                branchcode     => $library->branchcode,
+                borrowernumber => $patron2->borrowernumber,
+                biblionumber   => $item->biblionumber,
+        }
+    );
+
+    my $sip_patron  = C4::SIP::ILS::Patron->new( $patron->cardnumber );
+    my $sip_item    = C4::SIP::ILS::Item->new( $item->barcode );
+    my $co_transaction = C4::SIP::ILS::Transaction::Checkout->new();
+    is( $co_transaction->patron($sip_patron),
+        $sip_patron, "Patron assigned to transaction" );
+    is( $co_transaction->item($sip_item),
+        $sip_item, "Item assigned to transaction" );
+
+    # Test attached holds
+    ModReserveAffect( $item->itemnumber, $patron->borrowernumber, 0, $reserve ); # Mark waiting (W)
+    my $hold = Koha::Holds->find($reserve);
+    $co_transaction->do_checkout();
+    is( $patron->checkouts->count, 0, 'Checkout was not done due to attached hold (W)');
+
+    $hold->set_transfer;
+    $co_transaction->do_checkout();
+    is( $patron->checkouts->count, 0, 'Checkout was not done due to attached hold (T)');
+
+    $hold->set_processing;
+    $co_transaction->do_checkout();
+    is( $patron->checkouts->count, 0, 'Checkout was not done due to attached hold (P)');
+
+    # Test non-attached holds
+    C4::Reserves::RevertWaitingStatus({ itemnumber => $hold->itemnumber });
+    t::lib::Mocks::mock_preference('AllowItemsOnHoldCheckoutSIP', '0');
+    $co_transaction->do_checkout();
+    is( $patron->checkouts->count, 0, 'Checkout refused due to hold and AllowItemsOnHoldCheckoutSIP');
+
+    t::lib::Mocks::mock_preference('AllowItemsOnHoldCheckoutSIP', '1');
+    $co_transaction->do_checkout();
+    is( $patron->checkouts->count, 1, 'Checkout allowed due to hold and AllowItemsOnHoldCheckoutSIP');
+};
+
 subtest checkin_lost => sub {
     plan tests => 2;
 
@@ -454,7 +525,7 @@ subtest checkin_withdrawn => sub {
 };
 
 subtest item_circulation_status => sub {
-    plan tests => 4;
+    plan tests => 7;
 
     my $library  = $builder->build_object( { class => 'Koha::Libraries' } );
     my $library2 = $builder->build_object( { class => 'Koha::Libraries' } );
@@ -510,5 +581,27 @@ subtest item_circulation_status => sub {
     $sip_item = C4::SIP::ILS::Item->new( $item->barcode );
     $status = $sip_item->sip_circulation_status;
     is( $status, '12', "Item circulation status is lost" );
+    $item->itemlost(0)->store();
+
+    my $location = $item->location;
+    $item->location("CART")->store();
+    $sip_item = C4::SIP::ILS::Item->new( $item->barcode );
+    $status = $sip_item->sip_circulation_status;
+    is( $status, '09', "Item circulation status is waiting to be re-shelved" );
+    $item->location($location)->store();
+
+    my $nfl = $item->notforloan;
+    $item->notforloan(-1)->store();
+    $sip_item = C4::SIP::ILS::Item->new( $item->barcode );
+    $status = $sip_item->sip_circulation_status;
+    is( $status, '02', "Item circulation status is on order" );
+    $item->notforloan($nfl)->store();
+
+    my $damaged = $item->damaged;
+    $item->damaged(1)->store();
+    $sip_item = C4::SIP::ILS::Item->new( $item->barcode );
+    $status = $sip_item->sip_circulation_status;
+    is( $status, '01', "Item circulation status is damaged" );
+    $item->damaged(0)->store();
 };
 $schema->storage->txn_rollback;