Move filestream tests from Pharo-specific tests package to the common tests package so we execute the tests on all platforms

Johan Brichau · Johan Brichau · commit 517e32e4ae0c · 2020-07-03T11:24:59.000+02:00
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st b/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st
@@ -2,7 +2,7 @@ processes
 thisContext
 	"Answer the current activation of a method execution or block activation.
 	
-	For dialects with a thisContext variable and implementation can lock like this.
+	For dialects with a thisContext variable and implementation can look like this.
 	
 	^ thisContext sender"
 	self subclassResponsibility
diff --git a/repository/Grease-Core.package/monticello.meta/categories.st b/repository/Grease-Core.package/monticello.meta/categories.st
@@ -1,5 +1,5 @@
 SystemOrganization addCategory: #'Grease-Core'!
-SystemOrganization addCategory: #'Grease-Core-Collections'!
-SystemOrganization addCategory: #'Grease-Core-Exceptions'!
-SystemOrganization addCategory: #'Grease-Core-Text'!
-SystemOrganization addCategory: #'Grease-Core-Utilities'!
+SystemOrganization addCategory: 'Grease-Core-Collections'!
+SystemOrganization addCategory: 'Grease-Core-Exceptions'!
+SystemOrganization addCategory: 'Grease-Core-Text'!
+SystemOrganization addCategory: 'Grease-Core-Utilities'!
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st
@@ -1,4 +1,4 @@
-tests
+tests-filestreams
 testReadWriteToFileInFolderBinary
 	| bytes |
 	bytes := #(80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110) asByteArray.
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderText.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderText.st
@@ -1,4 +1,4 @@
-tests
+tests-filestreams
 testReadWriteToFileInFolderText
 	| text |
 	text := 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn'.
diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st
@@ -0,0 +1,12 @@
+*Grease-Tests-Pharo-Core
+writeToFile: aStringOrByteArray withFileNameDo: aBlock
+	| fileName directory |
+	fileName :=  'GRPharoPlatformTest'.
+	directory := FileSystem disk workingDirectory.
+	[ GRPlatform current
+		write: aStringOrByteArray
+		toFile: fileName
+		inFolder: directory fullName.
+	aBlock value: directory fullName,GRPlatform current pathSeparator,fileName
+		] ensure: [
+			(directory / fileName) delete ]

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-tests`
	`1`	`+tests-filestreams`
`2`	`2`	`testReadWriteToFileInFolderBinary`
`3`	`3`	`\| bytes \|`
`4`	`4`	`bytes := #(80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110) asByteArray.`