From 2f2500e5acc0996f55231ba309ed04b95b431705 Mon Sep 17 00:00:00 2001
From: Dale Henrichs <dale.henrichs@gemtalksystems.com>
Date: Wed, 6 Jul 2016 17:10:04 -0700
Subject: [PATCH] enable full lineup for grins and add the travisCI script I
 was using to profile the test runs

---
 .travis.yml        | 18 ++++++-------
 tode/travisCI.ston | 64 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 73 insertions(+), 9 deletions(-)
 create mode 100644 tode/travisCI.ston

diff --git a/.travis.yml b/.travis.yml
index 5ef1c572f..0affdf715 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -16,15 +16,15 @@ smalltalk:
   - GemStone-3.3.1
   - Pharo-5.0
   - Squeak-5.0
-#  - GemStone-2.4.8
-#  - GemStone-3.1.0.6
-#  - GemStone-3.2.15
-#  - Pharo-3.0
-#  - Pharo-4.0
-#  - Pharo-6.0
-#  - Squeak-4.5
-#  - Squeak-4.6
-#  - Squeak-trunk
+  - GemStone-2.4.8
+  - GemStone-3.1.0.6
+  - GemStone-3.2.15
+  - Pharo-3.0
+  - Pharo-4.0
+  - Pharo-6.0
+  - Squeak-4.5
+  - Squeak-4.6
+  - Squeak-trunk
 
 matrix:
   allow_failures:
diff --git a/tode/travisCI.ston b/tode/travisCI.ston
new file mode 100644
index 000000000..a2a850f0f
--- /dev/null
+++ b/tode/travisCI.ston
@@ -0,0 +1,64 @@
+TDScriptLeafNode{#name:'travisCI',#contents:'[ :topez :objIn :tokens :command :commandNode | 
+  | opts args |
+  \"for help: ./travisCI -h\"
+  command
+    getOptsMixedLongShort:
+      {#(\'help\' $h #\'none\').
+      #(\'TravisCI_1\' nil #\'none\').
+      #(\'TravisCI_2\' nil #\'none\').
+      #(\'TravisCI_3\' nil #\'none\')}
+    optionsAndArguments: [ :options :operands | 
+      opts := options.
+      args := operands ].
+  opts
+    at: \'help\'
+    ifAbsent: [ 
+      | pf homePath catDict label |
+      pf := topez toolInstanceFor: \'pf\'.
+      pf pfStart.
+      homePath := (pf resolveAtPathReference: \'@/sys/stone/home\') fullName.
+      catDict := Dictionary new
+        at: #\'categories\' put: {};
+        yourself.
+      label := \'Metacello profile for: \'.
+      opts
+        at: \'TravisCI_1\'
+        ifPresent: [ :ignored | 
+          label := label , \' TravisCI_1\'.
+          (catDict at: #\'categories\')
+            addAll:
+              #(\'Metacello-TestsCore\' \'Metacello-TestsReference\' \'Metacello-TestsMCCore\' \'Metacello-TestsPlatform\') ].
+      opts
+        at: \'TravisCI_2\'
+        ifPresent: [ :ignored | 
+          label := label , \' TravisCI_2\'.
+          (catDict at: #\'categories\') addAll: #(\'Metacello-TestsMCA\') ].
+      opts
+        at: \'TravisCI_3\'
+        ifPresent: [ :ignored | 
+          label := label , \' TravisCI_3\'.
+          (catDict at: #\'categories\')
+            addAll: #(\'Metacello-TestsMCB\' \'Metacello-TestsTutorial\') ].
+      (Smalltalk at: #\'SmalltalkCI\') platformClass basicNew
+        initialize;
+        xmlLogDirPath: homePath;
+        spec: ((Smalltalk at: #\'SmalltalkCISpec\') new testing: catDict);
+        test.
+      pf pfView: label ]
+    ifPresent: [ :ignored | 
+      TDManPage
+        viewManPage:
+          \'NAME
+  travisCI - travisCI script utility template
+SYNOPSIS
+  travisCI [-h|--help]
+DESCRIPTION
+  Run and profile TravisCI scripts in current image.
+
+EXAMPLES
+  ./travisCI -h
+
+  ./travisCI --TravisCI_1 --TravisCI_2
+  ./travisCI --TravisCI_3
+\'
+        topez: topez ] ]',#creationTime:DateAndTime['2016-07-06T17:06:24.8399178981781-07:00'],#modificationTime:DateAndTime['2016-07-06T17:07:57.17964696884155-07:00']}
\ No newline at end of file