Fix: truncating to empty files failed

Also don't resume from defaultAction which is forbidden by the Smalltalk ANSI standard.

Author: j4yk

src/FS-Core.package/FSResolutionRequest.class/instance/defaultAction.st

@@ -3,4 +3,4 @@ defaultAction
 	| filedir ref |
 	filedir := UIManager default chooseDirectory: 'Where is ', origin, '?'.
 	ref := filedir ifNotNil: [FileSystem disk referenceTo: filedir fullName].
-	self resume: ref
+	^ ref

src/FS-Core.package/FSResolutionRequest.class/methodProperties.json

@@ -2,5 +2,5 @@
 	"class" : {
 		"for:" : "cwp 10/27/2009 10:13" },
 	"instance" : {
-		"defaultAction" : "jr 3/2/2017 17:38",
+		"defaultAction" : "jr 3/6/2019 20:12",
 		"origin:" : "cwp 10/27/2009 10:22" } }

src/FS-Disk.package/FSFileHandle.class/instance/truncateTo..st

@@ -1,5 +1,5 @@
 public
 truncateTo: anInteger
-	Primitives setPosition: id to: anInteger - 1.
+	Primitives setPosition: id to: (anInteger - 1 clampLow: 0).
 	Primitives truncate: id to: anInteger.
 	self reopen

src/FS-Disk.package/FSFileHandle.class/methodProperties.json

@@ -14,4 +14,4 @@
 		"registerForFinalization" : "jr 4/17/2017 16:34",
 		"size" : "cwp 7/22/2009 07:44",
 		"startUp" : "cwp 11/20/2009 16:48",
-		"truncateTo:" : "jr 10/1/2017 17:27" } }
+		"truncateTo:" : "jr 6/15/2020 00:35" } }

src/FS-Tests-AnsiStreams.package/.squot-contents

@@ -1,4 +1,4 @@
-{
+SquotTrackedObjectMetadata {
 	#objectClassName : #PackageInfo,
 	#serializer : #SquotCypressCodeSerializer
 }

src/FS-Tests-AnsiStreams.package/FSWriteStreamTest.class/instance/testTruncateEmpty.st

@@ -0,0 +1,8 @@
+tests
+testTruncateEmpty
+	stream 
+		nextPutAll: #(42 43 44 45 46);
+		flush;
+		position: 0;
+		truncate.
+	self assert: self contents isEmpty.

src/FS-Tests-AnsiStreams.package/FSWriteStreamTest.class/instance/testTruncateToEmpty.st

@@ -0,0 +1,6 @@
+tests
+testTruncateToEmpty
+	stream nextPutAll: #(42 43 44 45 46).
+	stream flush.
+	stream truncateTo: 0.
+	self assert: self contents isEmpty.

src/FS-Tests-AnsiStreams.package/FSWriteStreamTest.class/methodProperties.json

@@ -20,4 +20,6 @@
 		"testTab" : "cwp 7/29/2009 21:56",
 		"testTabRepeat" : "CamilloBruni 8/12/2011 14:40",
 		"testTruncate" : "jr 4/13/2017 15:47",
-		"testTruncateTo" : "cwp 10/15/2009 21:50" } }
+		"testTruncateEmpty" : "jr 6/15/2020 00:29",
+		"testTruncateTo" : "cwp 10/15/2009 21:50",
+		"testTruncateToEmpty" : "jr 6/15/2020 00:30" } }

src/FS-Tests-Core.package/FSHandleTest.class/instance/testTruncateEmpty.st

@@ -0,0 +1,7 @@
+tests
+testTruncateEmpty
+	| out |
+	out := #(1 2 3 4 5) asByteArray.
+	handle at: 1 write: out startingAt: 1 count: 5.
+	handle truncateTo: 0.
+	self assert: 0 equals: handle size

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

@@ -19,4 +19,5 @@
 		"testSizeAfterGrow" : "cwp 7/29/2009 22:11",
 		"testSizeNoGrow" : "cwp 7/29/2009 22:13",
 		"testTruncate" : "jr 10/1/2017 02:23",
+		"testTruncateEmpty" : "jr 6/15/2020 00:30",
 		"testWriteStream" : "cwp 7/28/2009 22:40" } }