From: Peter Rabbitson <ribasushi@cpan.org>
Date: Thu, 9 Jun 2016 09:06:39 +0000 (+0200)
Subject: Add extra maint tooling - got tired of writing this smoke cmd by hand
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b87fc0f74c6f7de9d4b544ef31104fac7b2a5a9;p=dbsrgits%2FDBIx-Class.git

Add extra maint tooling - got tired of writing this smoke cmd by hand
---

diff --git a/maint/poisonsmoke.bash b/maint/poisonsmoke.bash
new file mode 100755
index 0000000..c3c637c
--- /dev/null
+++ b/maint/poisonsmoke.bash
@@ -0,0 +1,34 @@
+#!/bin/bash
+
+set -e
+
+[[ -e Makefile.PL ]] || ( echo "Not in the right dir" && exit 1 )
+
+clear
+echo
+
+export TRAVIS=true
+export TRAVIS_REPO_SLUG="x/dbix-class"
+export DBI_DSN="dbi:ODBC:server=NonexistentServerAddress"
+export DBI_DRIVER="ADO"
+
+toggle_booleans=( \
+  $( grep -ohP '\bDBIC_[0-9_A-Z]+' -r lib/ --exclude-dir Optional | sort -u | grep -vP '^(DBIC_TRACE(_PROFILE)?|DBIC_.+_DEBUG)$' ) \
+  DBIC_SHUFFLE_UNORDERED_RESULTSETS \
+  DBICTEST_ASSERT_NO_SPURIOUS_EXCEPTION_ACTION \
+  DBICTEST_RUN_ALL_TESTS \
+  DBICTEST_SQLITE_REVERSE_DEFAULT_ORDER \
+)
+
+for var in "${toggle_booleans[@]}"
+do
+  if [[ -z "${!var}" ]] ; then
+    export $var=1
+    echo "POISON_ENV: setting $var to 1"
+  fi
+done
+
+provecmd="nice prove -QlrswTj10"
+
+echo -e "\nExecuting \`$provecmd\` via $(which perl)\n"
+$provecmd