commit fd86518
Devie Lu Linvega
·
2025-12-23 19:21:50 +0000 UTC
parent 8546331
File test will error on failure
1 files changed,
+3,
-3
+3,
-3
1@@ -6,12 +6,12 @@
2 |100
3
4 @on-reset ( -> )
5+ #800f DEO
6 file/test-create test/<print>
7 file/test-append test/<print>
8 file/test-load test/<print>
9 file/test-stat test/<print>
10 file/test-delete test/<print>
11- #800f DEO
12 BRK
13
14 @file/test-create ( -- pass )
15@@ -60,13 +60,13 @@
16 ;file/null-buf LDA2 LIT2 "!! EQU2 AND JMP2r
17
18 @test/<print> ( pass -- )
19- ?{ ;dict/fail !str/<print> }
20+ ?{ #010f DEO ;dict/fail !str/<print> }
21 ;dict/pass
22 ( >> )
23
24 @str/<print> ( str* -- )
25 LDAk DUP ?{ POP POP2 JMP2r }
26- #18 DEO
27+ .Console/write DEO
28 INC2 !/<print>
29
30 (