Change ZnRingBuffer>>writeAllOn: to an implementation that works for …

…a -ring- (duh) and rename it to nextPutAllOn:

repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/README.md

@@ -2,8 +2,7 @@ I am an implementation of a ring buffer, i.e. a buffer where the start index can
 
 I buffer a fixed amount of data and provide array like access to it.
 
-Users use me mostly like an array. My only interesting method is #moveStartTo:, which moves the start index of the
-buffer to the specified position. Example:
+Users use me mostly like an array. My only interesting method is #moveStartTo:, which moves the start index of the buffer to the specified position. Example:
 
 buffer
 	at: 1 put: 1;

repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/nextPutAllOn..st

@@ -0,0 +1,4 @@
+private
+nextPutAllOn: aStream
+
+	self do: [ :element | aStream nextPut: element ]

repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/properties.json

@@ -1,5 +1,5 @@
 {
-	"commentStamp" : "mml 07/26/2019 15:33",
+	"commentStamp" : "JohanBrichau 3/19/2024 07:31",
 	"super" : "Object",
 	"category" : "Seaside-Zinc-Core",
 	"classinstvars" : [ ],

repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st

@@ -36,7 +36,7 @@ parseMultiPartFieldWithoutLengthWithBoundary: aBoundary writeOn: writer
 					If not we have to check for the next boundary candidate as we might have loaded the next boundary partially."
 					buffer = aBoundary ] ]
 		ifNil: [
-			buffer writeAllOn: writer.
+			buffer nextPutAllOn: writer.
 			stream atEnd
 				ifFalse: [
 					"#next:into: answers a copy of the buffer if not enough bytes could be read.

repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testNextPutAllOn.st

@@ -0,0 +1,28 @@
+tests
+testNextPutAllOn
+
+	| buffer temporaryFile |
+	buffer := GRPlatform current ringBufferClass on: (ByteArray new: 4).
+	buffer
+		at: 1 put: 128;
+		at: 2 put: 129;
+		at: 3 put: 130;
+		at: 4 put: 131.
+	temporaryFile := GRPlatform current newTemporaryFile.
+	[
+		GRPlatform current
+			writeFileStreamOn: temporaryFile
+			do: [ :strm | buffer nextPutAllOn: strm ]
+			binary: true.
+		self assert: (GRPlatform current contentsOfFile: temporaryFile binary: true) equals: #[128 129 130 131]
+	] ensure: [ GRPlatform current deleteFile: temporaryFile ].
+
+	buffer moveStartTo: 3.
+	temporaryFile := GRPlatform current newTemporaryFile.
+	[
+		GRPlatform current
+			writeFileStreamOn: temporaryFile
+			do: [ :strm | buffer nextPutAllOn: strm ]
+			binary: true.
+		self assert: (GRPlatform current contentsOfFile: temporaryFile binary: true) equals: #[130 131 128 129]
+	] ensure: [ GRPlatform current deleteFile: temporaryFile ].