added a method to the gemstone core tests package (but needed to monkey in the filetree format directly because of the package file name convention violation)

Johan Brichau · Johan Brichau · commit 9541cd8f4518 · 2020-07-03T15:47:22.000+02:00
diff --git a/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st b/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st
@@ -0,0 +1,12 @@
+*grease-tests-gemstone-core
+writeToFile: aStringOrByteArray withFileNameDo: aBlock
+  | fileName directory |
+  fileName := 'GRGemStonePlatformTest'.
+  directory := ServerFileDirectory default.
+  [ 
+  GRPlatform current
+    write: aStringOrByteArray
+    toFile: fileName
+    inFolder: directory fullName.
+  aBlock value: directory fullName , GRPlatform current pathSeparator , fileName ]
+    ensure: [ directory deleteFileNamed: fileName ]
diff --git a/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "GRPlatformTest" }
diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st b/repository/Grease-Tests-GemStone-Core.v32.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st
@@ -0,0 +1,12 @@
+*grease-tests-gemstone-core
+writeToFile: aStringOrByteArray withFileNameDo: aBlock
+  | fileName directory |
+  fileName := 'GRGemStonePlatformTest'.
+  directory := ServerFileDirectory default.
+  [ 
+  GRPlatform current
+    write: aStringOrByteArray
+    toFile: fileName
+    inFolder: directory fullName.
+  aBlock value: directory fullName , GRPlatform current pathSeparator , fileName ]
+    ensure: [ directory deleteFileNamed: fileName ]
diff --git a/repository/Grease-Tests-GemStone-Core.v32.package/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-GemStone-Core.v32.package/GRPlatformTest.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "GRPlatformTest" }
