added tests for file reading

Johan Brichau · Johan Brichau · commit ed57cb0ee54e · 2014-11-08T12:21:38.000+01:00
diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st
@@ -0,0 +1,7 @@
+tests
+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.
+	self 
+		writeToFile: bytes 
+		withFileNameDo:[:fileName | self assert: (bytes = (GRPlatform current contentsOfFile: fileName binary: true)) ] 
diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderText.st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderText.st
@@ -0,0 +1,7 @@
+tests
+testReadWriteToFileInFolderText
+	| text |
+	text := 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn'.
+	self 
+		writeToFile: text 
+		withFileNameDo:[:fileName | self assert: (text = (GRPlatform current contentsOfFile: fileName binary: false)) ] 
diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderBinary.st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderBinary.st
diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderText.st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/testWriteToFileInFolderText.st
diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/writeToFile.withFileNameDo..st b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/instance/writeToFile.withFileNameDo..st
@@ -1,11 +1,12 @@
 private
-writeToFile: aStringOrByteArray
+writeToFile: aStringOrByteArray withFileNameDo: aBlock
 	| fileName directory |
 	fileName :=  'GRPharoPlatformTest'.
 	directory := FileSystem disk workingDirectory.
 	[ GRPlatform current
 		write: aStringOrByteArray
 		toFile: fileName
-		inFolder: directory fullName
+		inFolder: directory fullName.
+	aBlock value: directory fullName,GRPlatform current pathSeparator,fileName
 		] ensure: [
 			(directory / fileName) delete ]
diff --git a/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/methodProperties.json b/repository/Grease-Tests-Pharo20-Core.package/GRPharoPlatformTest.class/methodProperties.json
@@ -7,6 +7,6 @@
 		"testFullName" : "jf 10/6/2008 14:37",
 		"testGreaseIntegerOnCharacter" : "pmm 12/26/2010 21:44",
 		"testMessageSendValueWithPossibleArguments" : "jf 12/18/2009 12:29",
-		"testWriteToFileInFolderBinary" : "pmm 1/22/2012 16:09",
-		"testWriteToFileInFolderText" : "pmm 1/22/2012 15:54",
-		"writeToFile:" : "pmm 8/4/2012 12:58" } }
+		"testReadWriteToFileInFolderBinary" : "JohanBrichau 11/8/2014 10:34",
+		"testReadWriteToFileInFolderText" : "JohanBrichau 11/8/2014 10:33",
+		"writeToFile:withFileNameDo:" : "JohanBrichau 11/8/2014 10:33" } }
diff --git a/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/version b/repository/Grease-Tests-Pharo20-Core.package/monticello.meta/version
@@ -1 +1 @@
-(name 'Grease-Tests-Pharo20-Core-pmm.11' message 'Issue 792: 	Issue encoding a non-ascii character preceded by an xml-unsafe one- https://code.google.com/p/seaside/issues/detail?id=792' id '3247b811-bdef-473a-aa2d-473a532ec629' date '21 May 2014' time '9:32:12.009306 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.10' message 'Issue 789:	Running WAFilelibraryTest on Pharo3 leaves Seaside-Tests-Core package in a dirty state	https://code.google.com/p/seaside/issues/detail?id=789' id 'e3e4c2eb-cef7-4168-aeae-7a57490aa2b1' date '19 April 2014' time '5:31:18.877112 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.9' message 'move GRCountingStream from Pharo-only package to Core' id 'b89fed14-cf86-4d07-829c-cbdcea6da4f4' date '16 February 2014' time '9:30:04.97327 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.8' message 'Issue 770: 	ScaledDecimal rendering supporthttp://code.google.com/p/seaside/issues/detail?id=770' id '6e6bd71a-439c-4902-a68d-e1af63451f40' date '15 September 2013' time '12:28:07.009 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.7' message '- bring #doSilently: back' id '906ba423-0a76-410e-8e76-1f9df06cf8cc' date '12 September 2013' time '6:04:53.713 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.6' message '- fix URLs' id 'ff0b9dc6-d275-4f59-8a5b-a01e9cff4ec6' date '12 September 2013' time '4:01:56.23633 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.5' message '- fix compilation' id 'd299e09d-7488-4996-801a-ba125ebef913' date '12 September 2013' time '11:26:02.540867 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.4' message 'GRUtf8CodecTest.testCodecUtf8ShortestForm is an expected failure' id '8f5f9382-81d9-41d4-92b7-69628deaab25' date '22 August 2013' time '8:00:55.046 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.3' message '- ???' id 'e4ea84af-efd3-48cb-83b5-cacb0a234bf7' date '19 August 2012' time '10:13:51.278 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.2' message '- change package name' id 'fadba33c-472e-4ea1-a210-fc25fee25c8e' date '4 August 2012' time '1:10:10.314 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.1' message '- bump' id '4feb168a-ce43-4b92-bdf2-d83c8c5d2405' date '4 August 2012' time '1:06:42.944 pm' author 'pmm' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
+(name 'Grease-Tests-Pharo20-Core-JohanBrichau.12' message 'Added tests for file reading' id '6b2eb7ec-5ea0-4109-b85f-940c6156b6d4' date '8 November 2014' time '10:39:38.553637 am' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.11' message 'Issue 792: 	Issue encoding a non-ascii character preceded by an xml-unsafe one- https://code.google.com/p/seaside/issues/detail?id=792' id '3247b811-bdef-473a-aa2d-473a532ec629' date '21 May 2014' time '9:32:12.009306 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.10' message 'Issue 789:	Running WAFilelibraryTest on Pharo3 leaves Seaside-Tests-Core package in a dirty state	https://code.google.com/p/seaside/issues/detail?id=789' id 'e3e4c2eb-cef7-4168-aeae-7a57490aa2b1' date '19 April 2014' time '5:31:18.877112 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.9' message 'move GRCountingStream from Pharo-only package to Core' id 'b89fed14-cf86-4d07-829c-cbdcea6da4f4' date '16 February 2014' time '9:30:04.97327 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.8' message 'Issue 770: 	ScaledDecimal rendering supporthttp://code.google.com/p/seaside/issues/detail?id=770' id '6e6bd71a-439c-4902-a68d-e1af63451f40' date '15 September 2013' time '12:28:07.009 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.7' message '- bring #doSilently: back' id '906ba423-0a76-410e-8e76-1f9df06cf8cc' date '12 September 2013' time '6:04:53.713 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.6' message '- fix URLs' id 'ff0b9dc6-d275-4f59-8a5b-a01e9cff4ec6' date '12 September 2013' time '4:01:56.23633 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.5' message '- fix compilation' id 'd299e09d-7488-4996-801a-ba125ebef913' date '12 September 2013' time '11:26:02.540867 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.4' message 'GRUtf8CodecTest.testCodecUtf8ShortestForm is an expected failure' id '8f5f9382-81d9-41d4-92b7-69628deaab25' date '22 August 2013' time '8:00:55.046 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.3' message '- ???' id 'e4ea84af-efd3-48cb-83b5-cacb0a234bf7' date '19 August 2012' time '10:13:51.278 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.2' message '- change package name' id 'fadba33c-472e-4ea1-a210-fc25fee25c8e' date '4 August 2012' time '1:10:10.314 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.1' message '- bump' id '4feb168a-ce43-4b92-bdf2-d83c8c5d2405' date '4 August 2012' time '1:06:42.944 pm' author 'pmm' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())

Original file line number	Diff line number	Diff line change
`@@ -1 +1 @@`
`1`		-(name 'Grease-Tests-Pharo20-Core-pmm.11' message 'Issue 792: Issue encoding a non-ascii character preceded by an xml-unsafe one- https://code.google.com/p/seaside/issues/detail?id=792' id '3247b811-bdef-473a-aa2d-473a532ec629' date '21 May 2014' time '9:32:12.009306 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.10' message 'Issue 789: Running WAFilelibraryTest on Pharo3 leaves Seaside-Tests-Core package in a dirty state https://code.google.com/p/seaside/issues/detail?id=789' id 'e3e4c2eb-cef7-4168-aeae-7a57490aa2b1' date '19 April 2014' time '5:31:18.877112 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.9' message 'move GRCountingStream from Pharo-only package to Core' id 'b89fed14-cf86-4d07-829c-cbdcea6da4f4' date '16 February 2014' time '9:30:04.97327 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.8' message 'Issue 770: ScaledDecimal rendering supporthttp://code.google.com/p/seaside/issues/detail?id=770' id '6e6bd71a-439c-4902-a68d-e1af63451f40' date '15 September 2013' time '12:28:07.009 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.7' message '- bring #doSilently: back' id '906ba423-0a76-410e-8e76-1f9df06cf8cc' date '12 September 2013' time '6:04:53.713 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.6' message '- fix URLs' id 'ff0b9dc6-d275-4f59-8a5b-a01e9cff4ec6' date '12 September 2013' time '4:01:56.23633 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.5' message '- fix compilation' id 'd299e09d-7488-4996-801a-ba125ebef913' date '12 September 2013' time '11:26:02.540867 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.4' message 'GRUtf8CodecTest.testCodecUtf8ShortestForm is an expected failure' id '8f5f9382-81d9-41d4-92b7-69628deaab25' date '22 August 2013' time '8:00:55.046 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.3' message '- ???' id 'e4ea84af-efd3-48cb-83b5-cacb0a234bf7' date '19 August 2012' time '10:13:51.278 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.2' message '- change package name' id 'fadba33c-472e-4ea1-a210-fc25fee25c8e' date '4 August 2012' time '1:10:10.314 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.1' message '- bump' id '4feb168a-ce43-4b92-bdf2-d83c8c5d2405' date '4 August 2012' time '1:06:42.944 pm' author 'pmm' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
	`1`	+(name 'Grease-Tests-Pharo20-Core-JohanBrichau.12' message 'Added tests for file reading' id '6b2eb7ec-5ea0-4109-b85f-940c6156b6d4' date '8 November 2014' time '10:39:38.553637 am' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.11' message 'Issue 792: Issue encoding a non-ascii character preceded by an xml-unsafe one- https://code.google.com/p/seaside/issues/detail?id=792' id '3247b811-bdef-473a-aa2d-473a532ec629' date '21 May 2014' time '9:32:12.009306 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.10' message 'Issue 789: Running WAFilelibraryTest on Pharo3 leaves Seaside-Tests-Core package in a dirty state https://code.google.com/p/seaside/issues/detail?id=789' id 'e3e4c2eb-cef7-4168-aeae-7a57490aa2b1' date '19 April 2014' time '5:31:18.877112 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.9' message 'move GRCountingStream from Pharo-only package to Core' id 'b89fed14-cf86-4d07-829c-cbdcea6da4f4' date '16 February 2014' time '9:30:04.97327 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.8' message 'Issue 770: ScaledDecimal rendering supporthttp://code.google.com/p/seaside/issues/detail?id=770' id '6e6bd71a-439c-4902-a68d-e1af63451f40' date '15 September 2013' time '12:28:07.009 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.7' message '- bring #doSilently: back' id '906ba423-0a76-410e-8e76-1f9df06cf8cc' date '12 September 2013' time '6:04:53.713 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.6' message '- fix URLs' id 'ff0b9dc6-d275-4f59-8a5b-a01e9cff4ec6' date '12 September 2013' time '4:01:56.23633 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.5' message '- fix compilation' id 'd299e09d-7488-4996-801a-ba125ebef913' date '12 September 2013' time '11:26:02.540867 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-JohanBrichau.4' message 'GRUtf8CodecTest.testCodecUtf8ShortestForm is an expected failure' id '8f5f9382-81d9-41d4-92b7-69628deaab25' date '22 August 2013' time '8:00:55.046 pm' author 'JohanBrichau' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.3' message '- ???' id 'e4ea84af-efd3-48cb-83b5-cacb0a234bf7' date '19 August 2012' time '10:13:51.278 am' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.2' message '- change package name' id 'fadba33c-472e-4ea1-a210-fc25fee25c8e' date '4 August 2012' time '1:10:10.314 pm' author 'pmm' ancestors ((name 'Grease-Tests-Pharo20-Core-pmm.1' message '- bump' id '4feb168a-ce43-4b92-bdf2-d83c8c5d2405' date '4 August 2012' time '1:06:42.944 pm' author 'pmm' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())