commit 1daf64f
Devie Lu Linvega
·
2025-12-23 20:28:08 +0000 UTC
parent 4d0f3c0
Added stat test for missing file
1 files changed,
+7,
-2
+7,
-2
1@@ -51,8 +51,12 @@
2 ;&stat-buf .File/stat DEO2
3 ( success ) .File/success DEI2 #0004 EQU2
4 ( a ) ;&stat-hs LDA2 LIT2 "00 EQU2 AND
5- ( b ) ;&stat-ls LDA2 LIT2 "04 EQU2 AND JMP2r
6- JMP2r
7+ ( b ) ;&stat-ls LDA2 LIT2 "04 EQU2 AND
8+ ( | try missing file )
9+ ;&unknown-name .File/name DEO2
10+ #0002 .File/length DEO2
11+ ;&stat-buf .File/stat DEO2
12+ ;&stat-buf LDA2 LIT2 "!! EQU2 AND JMP2r
13
14 @file/test-delete ( -- pass )
15 ;&name .File/name DEO2
16@@ -121,4 +125,5 @@
17 ( stat buf ) &stat-buf &stat-hs $2 &stat-ls $2
18 ( null buf ) &null-buf $4
19 &name "test.txt $1
20+ &unknown-name "abcdefghj $1
21