added test for ZnRingBuffer>>writeAllOn:

SeasideSt · Mar 17, 2024 · 27c8905 · 27c8905
1 parent 166a98c
commit 27c8905
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testWriteAllOn.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testWriteAllOn.st
@@ -0,0 +1,16 @@
+tests
+testWriteAllOn
+
+	| buffer temporaryFile |
+	buffer := GRPlatform current ringBufferClass on: (ByteArray new: 2).
+	buffer
+		at: 1 put: 128;
+		at: 2 put: 129.
+	temporaryFile := GRPlatform current newTemporaryFile.
+	[
+		GRPlatform current
+			writeFileStreamOn: temporaryFile
+			do: [ :strm | buffer writeAllOn: strm ]
+			binary: true.
+		self assert: (GRPlatform current contentsOfFile: temporaryFile binary: true) equals: #[128 129]
+	] ensure: [ GRPlatform current deleteFile: temporaryFile ]