LP#1533329: bail out of live Perl test if opt-in not enabled
[Evergreen.git] / Open-ILS / src / perlmods / live_t / 12-lp1533329-opt-in.t
index cdf9019..31b69ab 100644 (file)
@@ -35,6 +35,14 @@ sub new_org_setting {
     return $set;
 }
 
+sub opt_in_enabled {
+    my $resp = $U->simplereq(
+        'open-ils.actor',
+        'open-ils.actor.user.org_unit_opt_in.enabled'
+    );
+    return $resp;
+}
+
 # do an opt-in check
 sub opt_in_check {
     my ($authtoken, $usr_id) = @_;
@@ -45,6 +53,10 @@ sub opt_in_check {
     return $resp;
 }
 
+unless(opt_in_enabled()) {
+    BAIL_OUT('cannot test opt-in unless enabled in opensrf.xml');
+}
+
 #----------------------------------------------------------------
 # 1. Login, register workstation, get authtoken.
 #----------------------------------------------------------------