Merge pull request SeasideSt#193 from SeasideSt/test-fix

jbrichau · web-flow · commit 022659c650e0 · 2025-12-11T15:38:19.000+01:00
Fix test on Windows platforms (make it cross-platform)
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st
@@ -5,7 +5,8 @@ testSourceCodeStringOf
 	sourceCodeString := GRPlatform current sourceCodeStringOf: GRPlatform >> #sourceCodeStringOf:.
 	self
 		assert: sourceCodeString
-		equals: 'sourceCodeStringOf: aCompiledMethod
+		equals: (GRPlatform current convertToSmalltalkNewlines: 
+'sourceCodeStringOf: aCompiledMethod
 	"Return a String with the source code for a compiled method."
 
-	self subclassResponsibility'
+	self subclassResponsibility')
diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st
@@ -1,4 +1,4 @@
-*Grease-Tests-Pharo-Core
+tests
 testIsPharo
 	self assert: GRPlatform current isPharo.
 	self deny: GRPlatform current isGemStone.

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-*Grease-Tests-Pharo-Core`
	`1`	`+tests`
`2`	`2`	`testIsPharo`
`3`	`3`	`self assert: GRPlatform current isPharo.`
`4`	`4`	`self deny: GRPlatform current isGemStone.`