commit fcacc46
Devie Lu Linvega
·
2025-12-23 19:57:22 +0000 UTC
parent b4a7928
Improved file tests
1 files changed,
+5,
-5
+5,
-5
1@@ -9,7 +9,7 @@
2 #800f DEO
3 ;dict/create file/test-create <test>
4 ;dict/append file/test-append <test>
5- ;dict/load file/test-load <test>
6+ ;dict/read file/test-read <test>
7 ;dict/stat file/test-stat <test>
8 ;dict/delete file/test-delete <test>
9 BRK
10@@ -30,10 +30,10 @@
11 ;&b1 .File/write DEO2
12 .File/success DEI2 #0002 EQU2 JMP2r
13
14-@file/test-load ( -- pass )
15+@file/test-read ( -- pass )
16 ;&name .File/name DEO2
17 ( 4+2 ) #0006 .File/length DEO2
18- ;&load-buf .File/read DEO2
19+ ;&read-buf .File/read DEO2
20 ( success ) .File/success DEI2 #0004 EQU2
21 ( a ) ;&a1 LDA2 ;&a2 LDA2 EQU2 AND
22 ( b ) ;&b1 LDA2 ;&b2 LDA2 EQU2 AND JMP2r
23@@ -79,14 +79,14 @@
24
25 @dict/create "File/create: 20 $1
26 &append "File/append: 20 $1
27- &load "File/load: 20 $1
28+ &read "File/read: 20 $1
29 &stat "File/stat: 20 $1
30 &delete "File/delete: 20 $1
31 &fail "fail 0a $1
32 &pass "pass 0a $1
33
34 @file/a1 1234 &b1 5678
35- ( load buf ) &load-buf &a2 $2 &b2 $2
36+ ( read buf ) &read-buf &a2 $2 &b2 $2
37 ( stat buf ) &stat-buf &stat-hs $2 &stat-ls $2
38 ( null buf ) &null-buf $4
39 &name "test.txt $1