Add GRPlatform>>sizeOfFile:

Johan Brichau · Johan Brichau · commit 5ba98abe4d82 · 2023-12-23T12:56:42.000+01:00
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st b/repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st
@@ -0,0 +1,4 @@
+files
+sizeOfFile: aString
+
+	self subclassResponsibility
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st
@@ -0,0 +1,4 @@
+files
+sizeOfFile: aString
+
+	^ aString asFileReference size
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st
@@ -0,0 +1,9 @@
+tests-files
+testSizeOfFile
+	| theFileName |
+	self
+		writeToFile: 'test me'
+		withFileNameDo:[ :fileName |
+			self assert: (GRPlatform current sizeOfFile: fileName) equals: 7.
+			theFileName := fileName ].
+	self deny: (GRPlatform current fileExists: theFileName)

-Original file line number
+Diff line change
@@ @@ -0,0 +1,4 @@ @@
 +files
 +sizeOfFile: aString
++
 +	self subclassResponsibility