X Tutup
Skip to content

Commit 17da932

Browse files
author
Johan Brichau
committed
Refactor test for write:toFile:inFolder:
1 parent f20c01f commit 17da932

File tree

5 files changed

+27
-32
lines changed

5 files changed

+27
-32
lines changed

‎repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteEmptyFileInFolderBinary.st‎

Lines changed: 0 additions & 8 deletions
This file was deleted.

‎repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteEmptyFileInFolderText.st‎

Lines changed: 0 additions & 8 deletions
This file was deleted.

‎repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderBinary.st‎

Lines changed: 0 additions & 8 deletions
This file was deleted.

‎repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderText.st‎

Lines changed: 0 additions & 8 deletions
This file was deleted.

‎repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteToFileInFolder.st‎

Lines changed: 27 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,27 @@
1+
tests-files
2+
testWriteToFileInFolder
3+
4+
| bytes text |
5+
bytes := ByteArray new.
6+
self
7+
writeToFile: bytes
8+
withFileNameDo:[ :fileName |
9+
self assert: (GRPlatform current contentsOfFile: fileName binary: true) equals: bytes ].
10+
11+
bytes := #[80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110].
12+
self
13+
writeToFile: bytes
14+
withFileNameDo:[ :fileName |
15+
self assert:(GRPlatform current contentsOfFile: fileName binary: true) equals: bytes ].
16+
17+
text := String new.
18+
self
19+
writeToFile: text
20+
withFileNameDo:[ :fileName |
21+
self assert: (GRPlatform current contentsOfFile: fileName binary: false) equals: text ].
22+
23+
text := 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn'.
24+
self
25+
writeToFile: text
26+
withFileNameDo:[ :fileName |
27+
self assert: (GRPlatform current contentsOfFile: fileName binary: false) equals: text ]

0 commit comments

Comments
 (0)
X Tutup