TestUtils

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in
index 26607f5..32ac711 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in
@@ -401,31 +401,6 @@ sub cache {
     return $self->{memcache};
 }
 
-sub register_workstation {
-    my ($self,$name,$lib) = (shift,shift,shift);
-    my $resp = $apputils->simplereq(
-        'open-ils.actor',
-        'open-ils.actor.workstation.register',
-        $self->authtoken, $name, $lib);
-    return $resp;
-}
-
-sub do_checkout {
-    my ($self,$args) = (shift,shift);
-    my $resp = $apputils->simplereq(
-        'open-ils.circ',
-        'open-ils.circ.checkout.full', $self->authtoken, $args);
-    return $resp;
-}
-
-sub do_checkin {
-    my ($self,$args) = (shift,shift);
-    my $resp = $apputils->simplereq(
-        'open-ils.circ',
-        'open-ils.circ.checkin', $self->authtoken, $args );
-    return $resp;
-}
-
 1;
 __END__
 

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/TestUtils.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/TestUtils.pm
new file mode 100644 (file)
index 0000000..c98f39d
--- /dev/null
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/TestUtils.pm
@@ -0,0 +1,36 @@
+package OpenILS::Utils::TestUtils;
+use base "OpenILS::Utils::Cronscript";
+
+# The purpose of this module is to consolidate common routines that may
+# be used by the integration tests in src/perlmods/live_t/
+
+use strict; use warnings;
+
+my $apputils = 'OpenILS::Application::AppUtils';
+
+sub register_workstation {
+    my ($self,$name,$lib) = (shift,shift,shift);
+    my $resp = $apputils->simplereq(
+        'open-ils.actor',
+        'open-ils.actor.workstation.register',
+        $self->authtoken, $name, $lib);
+    return $resp;
+}
+
+sub do_checkout {
+    my ($self,$args) = (shift,shift);
+    my $resp = $apputils->simplereq(
+        'open-ils.circ',
+        'open-ils.circ.checkout.full', $self->authtoken, $args);
+    return $resp;
+}
+
+sub do_checkin {
+    my ($self,$args) = (shift,shift);
+    my $resp = $apputils->simplereq(
+        'open-ils.circ',
+        'open-ils.circ.checkin', $self->authtoken, $args );
+    return $resp;
+}
+
+1;