From 3cc491aaca9ac463c2c086c4ca17df4577e7f090 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Thu, 11 Dec 2025 14:24:24 +0100 Subject: [PATCH] Fix test on Windows platforms (make it cross-platform) --- .../GRPlatformTest.class/instance/testSourceCodeStringOf.st | 5 +++-- .../GRPharoPlatformTest.class/instance/testIsPharo.st | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st index 64a5c334..13d1e453 100644 --- 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' \ No newline at end of file + self subclassResponsibility') \ No newline at end of file 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 index da5e9af5..1677c4d6 100644 --- 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.