Merge pull request SeasideSt#128 from SeasideSt/issue-127

Johan Brichau · web-flow · commit 21562c999ebd · 2021-09-23T20:56:10.000+02:00
fix issue 127 (fileExists: in GemStone reports on existence of direct&hellip;
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/version.st b/repository/Grease-Core.package/GRPlatform.class/instance/version.st
@@ -2,5 +2,5 @@ version info
 version
 	"Answer the Grease version"
 
-	^ (GRVersion major: 1 minor: 7 revision: 3)
+	^ (GRVersion major: 1 minor: 7 revision: 5)
 		yourself
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st
@@ -1,3 +1,3 @@
 file-library
 fileExists: aString
-	^ (FileDirectory forFileName: aString) exists
+	^ GsFile existsOnServer: aString
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st
@@ -0,0 +1,9 @@
+tests-filestreams
+testFileExists
+	| theFileName |
+	self 
+		writeToFile: 'test' 
+		withFileNameDo:[ :fileName |
+			self assert: (GRPlatform current fileExists: fileName).
+			theFileName := fileName ].
+	self deny: (GRPlatform current fileExists: theFileName)
