From 48f401f4eb5b02591d73947617b3d6aff14e8907 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Thu, 23 Sep 2021 20:30:59 +0200 Subject: [PATCH 1/3] fix issue 127 (fileExists: in GemStone reports on existence of directory, not the file) --- .../GRGemStonePlatform.class/instance/fileExists..st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st index 3ba20dce..f5f8c691 100644 --- 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 \ No newline at end of file + ^ GsFile existsOnServer: aString \ No newline at end of file From ba95d23ba127dc8ae52503702003df45c2f5b8c2 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Thu, 23 Sep 2021 20:41:55 +0200 Subject: [PATCH 2/3] Added test for fileExists: --- .../GRPlatformTest.class/instance/testFileExists.st | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st new file mode 100644 index 00000000..5d7796bc --- /dev/null +++ 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) \ No newline at end of file From 99b0213ad62645f4f9d750d5b4e31288368777a0 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Thu, 23 Sep 2021 20:43:17 +0200 Subject: [PATCH 3/3] version 1.7.5 --- .../Grease-Core.package/GRPlatform.class/instance/version.st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/version.st b/repository/Grease-Core.package/GRPlatform.class/instance/version.st index b8628c03..c721c9a6 100644 --- 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 \ No newline at end of file