Fix: truncating of write stream did not set position to the new end

Author: j4yk

src/FS-AnsiStreams.package/FSWriteStream.class/instance/truncateTo..st

@@ -1,3 +1,4 @@
 file
 truncateTo: anInteger
+	self position: anInteger.
 	handle truncateTo: anInteger

src/FS-AnsiStreams.package/FSWriteStream.class/methodProperties.json

@@ -31,4 +31,4 @@
 		"tab:" : "CamilloBruni 8/12/2011 14:24",
 		"truncate" : "jr 4/13/2017 15:45",
 		"truncate:" : "jr 12/13/2020 23:49",
-		"truncateTo:" : "cwp 10/15/2009 21:49" } }
+		"truncateTo:" : "jr 12/20/2021 21:31" } }

src/FS-Tests-Core.package/FileSystemTest.class/instance/testWriteStreamTruncateAndContinue.st

@@ -0,0 +1,11 @@
+tests-references
+testWriteStreamTruncateAndContinue
+	| reference |
+	self delete: (reference := filesystem workingDirectory / 'griffle').
+	reference writeStreamDo: [ :stream | stream nextPutAll: 'griffle' ].
+	self assert: (reference writeStreamDo:
+		[ :stream |
+		stream truncate: 3.
+		stream nextPutAll: 'bonk'.
+		true ]).
+	self assert: 'gribonk' equals: (reference readStreamDo: [ :stream | stream contents ]).

src/FS-Tests-Core.package/FileSystemTest.class/methodProperties.json

@@ -45,4 +45,5 @@
 		"testWriteStreamDo" : "sd 2/11/2011 18:21",
 		"testWriteStreamDoIfPresent" : "sd 2/11/2011 18:21",
 		"testWriteStreamIfPresent" : "sd 2/11/2011 18:21",
-		"testWriteStreamTruncate" : "jr 12/14/2020 00:23" } }
+		"testWriteStreamTruncate" : "jr 12/14/2020 00:23",
+		"testWriteStreamTruncateAndContinue" : "jr 12/20/2021 21:34" } }