1 package OpenILS::Utils::TestUtils;
2 use base "OpenILS::Utils::Cronscript";
4 # The purpose of this module is to consolidate common routines that may
5 # be used by the integration tests in src/perlmods/live_t/
7 use strict; use warnings;
9 my $apputils = 'OpenILS::Application::AppUtils';
11 sub register_workstation {
12 my ($self,$name,$lib) = (shift,shift,shift);
13 my $resp = $apputils->simplereq(
15 'open-ils.actor.workstation.register',
16 $self->authtoken, $name, $lib);
21 my ($self,$args) = (shift,shift);
22 my $resp = $apputils->simplereq(
24 'open-ils.circ.checkout.full', $self->authtoken, $args);
29 my ($self,$args) = (shift,shift);
30 my $resp = $apputils->simplereq(
32 'open-ils.circ.checkin', $self->authtoken, $args );
36 sub do_checkin_override {
37 my ($self,$args) = (shift,shift);
38 my $resp = $apputils->simplereq(
40 'open-ils.circ.checkin.override', $self->authtoken, $args );