From 30a064631af68e2b715c5ab3b65e30dab403703f Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 6 Sep 2018 10:24:14 -0400 Subject: [PATCH] LP#1774277 Acq requests live test vandelay repair Acq requests test now logs in with a workstation since under the covers vandelay (used for acq imports) requires a workstation on the new tracker tables. Signed-off-by: Bill Erickson Signed-off-by: Ben Shum --- Open-ILS/src/perlmods/live_t/22-acq-requests.t | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/live_t/22-acq-requests.t b/Open-ILS/src/perlmods/live_t/22-acq-requests.t index 2fc3d89e9f..52c6f7faa9 100644 --- a/Open-ILS/src/perlmods/live_t/22-acq-requests.t +++ b/Open-ILS/src/perlmods/live_t/22-acq-requests.t @@ -5,15 +5,35 @@ use OpenILS::Utils::TestUtils; use OpenILS::Utils::CStoreEditor qw/:funcs/; use OpenILS::Application::Acq::Order; +use constant WORKSTATION_LIB => 4; +use constant WORKSTATION_NAME => 'BR1-test-22-acq-reqs'; + diag("Tests ACQ purchase requests"); my $script = OpenILS::Utils::TestUtils->new(); $script->bootstrap; +my $e = new_editor(); +$e->init; + +my $workstation = $e->search_actor_workstation( + {name => WORKSTATION_NAME, owning_lib => WORKSTATION_LIB})->[0]; + +if (!$workstation) { + $script->authenticate({ + username => 'admin', + password => 'demo123', + type => 'staff' + }); + + my $ws = $script->register_workstation(WORKSTATION_NAME, WORKSTATION_LIB); + $script->logout(); +} $script->authenticate({ username => 'admin', password => 'demo123', - type => 'staff' + type => 'staff', + workstation => WORKSTATION_NAME }); my $ses = $script->session('open-ils.storage'); -- 2.11.0