commit 44e2e3b
Devie Lu Linvega
·
2025-12-23 20:18:09 +0000 UTC
parent c6a7b38
Added stat overflow test
1 files changed,
+19,
-0
+19,
-0
1@@ -14,6 +14,11 @@
2 ;dict/delete file/test-delete <test>
3 ( | overflows )
4 ;dict/write-of file/test-write-of <test>
5+ ;dict/read-of file/test-read-of <test>
6+ ;dict/stat-of file/test-stat-of <test>
7+ ( | cleanup )
8+ ;file/name .File/name DEO2
9+ #01 .File/delete DEO
10 BRK
11
12 (
13@@ -65,6 +70,18 @@
14 #fffe .File/write DEO2
15 .File/success DEI2 #0002 EQU2 JMP2r
16
17+@file/test-read-of ( -- pass )
18+ ;&name .File/name DEO2
19+ #0002 .File/length DEO2
20+ #ffff .File/read DEO2
21+ .File/success DEI2 #0001 EQU2 JMP2r
22+
23+@file/test-stat-of ( -- pass )
24+ ;&name .File/name DEO2
25+ #0004 .File/length DEO2
26+ #fffe .File/stat DEO2
27+ .File/success DEI2 #0002 EQU2 JMP2r
28+
29 (
30 @|Helpers )
31
32@@ -91,6 +108,8 @@
33 &stat "File/stat: 20 $1
34 &delete "File/delete: 20 $1
35 &write-of "File/write(overflow): 20 $1
36+ &read-of "File/read(overflow): 20 $1
37+ &stat-of "File/stat(overflow): 20 $1
38 &fail "fail 0a $1
39 &pass "pass 0a $1
40