regress: Fix error with new perl systems

[bacula/bacula] / regress / experimental-all

diff --git a/regress/experimental-all b/regress/experimental-all
index ea76eeeef510e004b64e322bda4876df164484e9..743035b59ccbf381b2804f72c6647067ae519971 100755 (executable)
--- a/regress/experimental-all
+++ b/regress/experimental-all
@@ -1,11 +1,35 @@
 #!/bin/sh
+#
+# Copyright (C) 2000-2015 Kern Sibbald
+# License: BSD 2-Clause; see file LICENSE-FOSS
+#
+
 #
 # test only the disk based regression scripts
 #
 # Include full output
+LANG=C
+echo "Begin experimental-all `date`"
 save_debug=${REGRESS_DEBUG}
 REGRESS_DEBUG=1
 export REGRESS_DEBUG
+rm -rf Testing
+rm -f dumps/*
+git pull
 scripts/config_dart
-nice ctest -D Experimental -R "all-non-root.*"
+nice ctest -D Experimental -R "^(disk|tape|changer):"
+rtn=$?
+i=0
+while [ $i -le 5 ]; do
+   if [ $rtn = 0 ] || [ "$rtn" = "8" ]; then
+      break;
+   fi
+   echo "Submit failed, waiting 5 mins"
+   sleep 300
+   echo "ctest failed re-running Submit"
+   ctest -D ExperimentalSubmit
+   rtn=$?
+   i=`expr $i + 1`
+done
 REGRESS_DEBUG=${save_debug}
+echo "End experimental-all `date`"