Merge pull request #217 from macta/publish-test-results

Publish test results

Author: macta

dev/src/ExercismTests/ExercismExerciseTest.class.st

@@ -136,11 +136,12 @@ ExercismExerciseTest >> testSolutionSources [
 	sources := TestmanyTest exercise solutionSources.
 
 	classes := {Testmany. TestOtherClass}.
-	classNames := classes collect: [ :c | c name, '.st' ].
+	classNames := (classes collect: [ :c | c name, '.st' ]) copyWithFirst: 'TestResults.txt'.
 
 	self assertCollection: sources keys asSet equals: classNames asSet.
 
-	(sources at: classNames first) should includeSubstring: '#name : #', classes first name.
+	(sources at: classNames first) should includeSubstring: 'Tested on:'.
+	(sources at: classNames second) should includeSubstring: '#name : #', classes first name.
 	(sources at: classNames last) should includeSubstring: '#name : #', classes last name.
 ]
 

dev/src/ExercismTools/ClyExercismFetchCommand.class.st

@@ -70,7 +70,11 @@ ClyExercismFetchCommand >> execute [
 
 		submission ifNotNil: [
 			UIManager default inform: 'Success, Happy Coding'.
-			self browser selectClass: submission exercise testCase ]
+			submission exercise 
+				ifNil: [ 
+					ExDomainError signal: 'Missing exercise meta-data' ]
+				ifNotNil: [ :exercise |
+					self browser selectClass: exercise testCase ]]
 	 ] 
 		on: ExDomainError do: [ :ex | 
 			self reportError: ex for: (submission ifNotNil: [ :s | s exerciseId ]) ]

dev/src/ExercismTools/ExercismExercise.class.st

@@ -281,12 +281,19 @@ ExercismExercise >> solutionId [
 
 { #category : #accessing }
 ExercismExercise >> solutionSources [
-	| sources |
+	"Answer a Dictionary of filename to source code mappings for the solution that will be saved on Exercism"
+	
+	| sources testResult resultDictionary |
 
 	sources := ExTonelWriter new mappedSnapshot: self exercisePackageTag snapshot.
 
+	testResult := [ self testCase suite run] on: Error do: [ TestResult new ].
+	resultDictionary := OrderedDictionary new 
+		at: 'TestResults.txt' put: testResult exercismSummary; 
+		yourself.
+	
 	^ (self solutionClasses collect: [ :c | c name ])
-		inject: Dictionary new
+		inject: resultDictionary
 		into: [ :result :c | 
 			result
 				at: c , '.st' put: (sources at: c);

dev/src/ExercismTools/ExercismManager.class.st

@@ -38,7 +38,7 @@ ExercismManager class >> isUserMode [
 	"Answer true if exercism is loaded in a clean image with no dev tools"
 
 	^ ((IceRepository registry collect: [ :repo | repo name ])) asArray
-		= #('iceberg' 'pharo' 'pharo-exercism')
+		= #('iceberg' 'pharo' 'pharo-smalltalk')
 		and: [ (RPackageOrganizer default
 				packageNamed: 'ExercismDev'
 				ifAbsent: [ nil ]) isNil ]

dev/src/ExercismTools/ExercismTest.class.st

@@ -19,7 +19,7 @@ ExercismTest class >> createExerciseAfter: anotherTestCase [
 	^ (ExercismExercise for: self)
 		unlockedBy:
 			((anotherTestCase notNil and: [ anotherTestCase isObsolete not ])
-				ifTrue: [ anotherTestCase exercise ]
+				ifTrue: [ [anotherTestCase exercise] on: SubclassResponsibility do: [ nil ] ]
 				ifFalse: [ nil ]);
 		yourself
 ]

dev/src/ExercismTools/TestResult.extension.st

@@ -0,0 +1,19 @@
+Extension { #name : #TestResult }
+
+{ #category : #'*ExercismTools' }
+TestResult >> exercismSummary [
+	^String streamContents: [ :s | s 
+		nextPutAll: 'Tested on: ';
+		nextPutAll: self timeStamp asLocalStringYMDHM;
+		crlf;
+		nextPutAll: self runCount printString;
+		nextPutAll: ' run, ';
+		nextPutAll: self expectedPassCount printString;
+		nextPutAll: ' passes, ';
+		nextPutAll: self skippedCount printString;
+		nextPutAll: ' skipped, ';
+		nextPutAll: self unexpectedFailureCount printString;
+		nextPutAll: ' failures, ';
+		nextPutAll: self unexpectedErrorCount printString;
+		nextPutAll:' errors ' ]
+]