Issue Metacello#114: add tracing, since test fails on travisci not in…

… test image start testing on all platforms

.travis.yml

@@ -2,9 +2,9 @@ language: erlang
 
 env:
    - ST=PharoCore-1.3
-#   - ST=Pharo-1.4
+   - ST=Pharo-1.4
 #   - ST=Pharo-2.0 #Pharo-2.0 not ready for testing yet
-#   - ST=Squeak-4.3   # 383 run, 348 passes, 0 expected failures, 1 failures, 34 errors, 0 unexpected passes
+   - ST=Squeak-4.3   # 383 run, 348 passes, 0 expected failures, 1 failures, 34 errors, 0 unexpected passes
 
 install:
    - export PROJECT_HOME="$(pwd)"

repository/Metacello-TestsMC.package/MetacelloGoferBasedLoaderTest.class/instance/testProjectRecord.st

@@ -1,13 +1,33 @@
 tests
 testProjectRecord
-
-	| project version names loader |
-	project := self project.
-	version := project version: '3.0'.
-	loader := version record.
-	names := #('MetacelloTestConfigurationOfFoo' 'GoferFoo' 'GoferBar' 'GoferFaux' 'GoferBeau' ) asOrderedCollection.
-	loader loadDirective packageDirectivesDo: [:pkgDirective | | name |
-		name := pkgDirective packageName.
-		self assert: (names indexOf: name) = 1.
-		names remove: name ifAbsent: [ self assert: false ]].
-	self deny: (Smalltalk at: #'Metacello_Configuration_Test_DoIt_Result')
+    | project version names loader |
+    Transcript
+        cr;
+        show: 'testProjectRecord [0]'.
+    self deny: (Smalltalk at: #'Metacello_Configuration_Test_DoIt_Result').
+    Transcript
+        cr;
+        show: 'testProjectRecord [1]'.
+    project := self project.
+    version := project version: '3.0'.
+    loader := version record.
+    names := #('MetacelloTestConfigurationOfFoo' 'GoferFoo' 'GoferBar' 'GoferFaux' 'GoferBeau') asOrderedCollection.
+    loader loadDirective
+        packageDirectivesDo: [ :pkgDirective | 
+            | name |
+            name := pkgDirective packageName.
+            self assert: (names indexOf: name) = 1.
+            Transcript
+                cr;
+                show: 'testProjectRecord [4]: ' , name.
+            names remove: name ifAbsent: [ self assert: false ].
+            Transcript
+                cr;
+                show: 'testProjectRecord [5]: ' , name ].
+    Transcript
+        cr;
+        show: 'testProjectRecord [2]'.
+    self deny: (Smalltalk at: #'Metacello_Configuration_Test_DoIt_Result').
+    Transcript
+        cr;
+        show: 'testProjectRecord [3]'

repository/Metacello-TestsMC.package/MetacelloGoferBasedLoaderTest.class/methodProperties.json

@@ -39,7 +39,7 @@
 		"testProjectFetch" : "dkh 2/22/2011 20:07",
 		"testProjectLoad" : "dkh 2/22/2011 20:07",
 		"testProjectPrePostLoad" : "DaleHenrichs 4/9/2010 11:24",
-		"testProjectRecord" : "DaleHenrichs 3/12/2010 10:19",
+		"testProjectRecord" : "dkh 9/2/2012 10:28",
 		"testRepositoryOverrides" : "dkh 1/6/2010 21:19",
 		"testRepositoryOverridesFetch" : "DaleHenrichs 3/12/2010 10:22",
 		"testRepositoryOverridesRecord" : "DaleHenrichs 3/12/2010 10:23",