commit 4d0f3c0

Devie Lu Linvega  ·  2025-12-23 20:25:58 +0000 UTC
parent 44e2e3b 
Test delete failure state
1 files changed,  +4, -1
M etc/examples/file.tal
M etc/examples/file.tal
+4, -1 
 1@@ -62,7 +62,10 @@
 2 	;&name .File/name DEO2
 3 	#0002 .File/length DEO2
 4 	;&null-buf .File/stat DEO2
 5-	;&null-buf LDA2 LIT2 "!! EQU2 AND JMP2r
 6+	;&null-buf LDA2 LIT2 "!! EQU2 AND
 7+	( | try failure )
 8+	#01 .File/delete DEO
 9+	.File/success DEI2 #0000 EQU2 AND JMP2r
10 
11 @file/test-write-of ( -- pass )
12 	;&name .File/name DEO2