diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st index f02a8289..a4c49df3 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st @@ -1,13 +1,20 @@ tests-files testNewTemporaryFile - | temporaryFile | + | temporaryFile1 temporaryFile2 | [ - temporaryFile := GRPlatform current newTemporaryFile. + temporaryFile1 := GRPlatform current newTemporaryFile. + temporaryFile2 := GRPlatform current newTemporaryFile. GRPlatform current - writeFileStreamOn: temporaryFile + writeFileStreamOn: temporaryFile1 do: [ :str | str nextPutAll: 'test temporary' ] binary: false. - self assert: (GRPlatform current fileExists: temporaryFile) - ] ensure: [ GRPlatform current deleteFile: temporaryFile ]. - self deny: (GRPlatform current fileExists: temporaryFile) \ No newline at end of file + GRPlatform current + writeFileStreamOn: temporaryFile2 + do: [ :str | str nextPutAll: #[116 101 115 116 32 116 101 109 112 111 114 97 114 121] ] + binary: true. + self assert: (GRPlatform current fileExists: temporaryFile1). + self deny: (GRPlatform current localNameOf: temporaryFile1) equals: (GRPlatform current localNameOf: temporaryFile2) + ] ensure: [ GRPlatform current deleteFile: temporaryFile1. GRPlatform current deleteFile: temporaryFile2 ]. + self deny: (GRPlatform current fileExists: temporaryFile1). + self deny: (GRPlatform current fileExists: temporaryFile2) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Core.package/monticello.meta/categories.st index ee8a55f5..7e8202de 100644 --- a/repository/Grease-Tests-Core.package/monticello.meta/categories.st +++ b/repository/Grease-Tests-Core.package/monticello.meta/categories.st @@ -1 +1 @@ -SystemOrganization addCategory: #'Grease-Tests-Core'! +self packageOrganizer ensurePackage: #'Grease-Tests-Core' withTags: #()!