commit 8546331
Devie Lu Linvega
·
2025-12-23 19:19:04 +0000 UTC
parent 46b564c
Improved file tests
1 files changed,
+20,
-49
+20,
-49
1@@ -6,24 +6,11 @@
2 |100
3
4 @on-reset ( -> )
5- file/test-create <print-res>
6- file/test-append <print-res>
7- file/test-load <print-res>
8- file/test-stat <print-res>
9- BRK
10- #0004 .File/success DEI2 NEQ2 ?fail
11- ;file/a1 LDA2 ;file/a2 LDA2 NEQ2 ?fail
12- ;dict/load str/<print>
13- ;file/b1 LDA2 ;file/b2 LDA2 NEQ2 ?fail
14- ;dict/append str/<print>
15- ;file/stat-buf file/<stat>
16- ;file/stat-hs LDA2 LIT2 "00 NEQ2 ?fail
17- ;file/stat-ls LDA2 LIT2 "04 NEQ2 ?fail
18- ;dict/stat str/<print>
19- file/<delete>
20- ;file/null-buf file/<stat>
21- ;file/null-buf LDA2 LIT2 "!! NEQ2 ?fail
22- ;dict/delete str/<print>
23+ file/test-create test/<print>
24+ file/test-append test/<print>
25+ file/test-load test/<print>
26+ file/test-stat test/<print>
27+ file/test-delete test/<print>
28 #800f DEO
29 BRK
30
31@@ -61,37 +48,21 @@
32 ( b ) ;file/stat-ls LDA2 LIT2 "04 EQU2 AND JMP2r
33 JMP2r
34
35-@<print-res> ( pass -- )
36- ?{ ;dict/fail !str/<print> }
37- ;dict/pass !str/<print>
38-
39-@fail ( -> )
40- ;dict/failed str/<print>
41- #010f DEO
42- BRK
43-
44-(
45-@|File )
46-
47-@file/<stat> ( buf* -- )
48- ;&name .File/name DEO2
49- #0004 .File/length DEO2
50- ;file/stat-buf .File/stat DEO2
51- JMP2r
52-
53-@file/<delete> ( -- )
54+@file/test-delete ( -- pass )
55+ ;dict/delete str/<print>
56 ;&name .File/name DEO2
57 #01 .File/delete DEO
58- JMP2r
59-
60- &name "test.txt $1
61-
62-(
63-@|Utils )
64+ .File/success DEI2 #0001 EQU2
65+ ( | stat )
66+ ;&name .File/name DEO2
67+ #0002 .File/length DEO2
68+ ;file/null-buf .File/stat DEO2
69+ ;file/null-buf LDA2 LIT2 "!! EQU2 AND JMP2r
70
71-@test ( f -- )
72+@test/<print> ( pass -- )
73 ?{ ;dict/fail !str/<print> }
74- ;dict/pass !str/<print>
75+ ;dict/pass
76+ ( >> )
77
78 @str/<print> ( str* -- )
79 LDAk DUP ?{ POP POP2 JMP2r }
80@@ -101,17 +72,17 @@
81 (
82 @|Data )
83
84-@dict/failed "File: 20 "fail 0a $1
85- &create "File/create: 20 $1
86+@dict/create "File/create: 20 $1
87 &append "File/append: 20 $1
88 &load "File/load: 20 $1
89 &stat "File/stat: 20 $1
90- &delete "File/delete: 20 "pass 0a $1
91+ &delete "File/delete: 20 $1
92 &fail "fail 0a $1
93 &pass "pass 0a $1
94
95-@file/data &a1 1234 &b1 5678
96+@file/a1 1234 &b1 5678
97 ( load buf ) &load-buf &a2 $2 &b2 $2
98 ( stat buf ) &stat-buf &stat-hs $2 &stat-ls $2
99 ( null buf ) &null-buf $4
100+ &name "test.txt $1
101