Merge pull request #128 from SeasideSt/issue-127

fix issue 127 (fileExists: in GemStone reports on existence of direct…
SeasideSt · Sep 23, 2021 · 21562c9 · 21562c9
2 parents ee61205 + 99b0213
commit 21562c9
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 2 deletions.
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)