commit 898b19d

Added test for 79K Varvara

 1@@ -1,11 +1,13 @@
 2-( uxncli file.rom )
 3+( 54K . File Test )
 4 
 5 |10 @Console/vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 6 |a0 @File/vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
 7+|004f @Varvara/version
 8 
 9 |100
10 
11 @on-reset ( -> )
12+	;meta #06 DEO2
13 	#800f DEO
14 	;dict/write file/test-write <test>
15 	;dict/append file/test-append <test>
16@@ -16,11 +18,20 @@
17 	;dict/write-of file/test-write-of <test>
18 	;dict/read-of file/test-read-of <test>
19 	;dict/stat-of file/test-stat-of <test>
20+	( | dir )
21+	;dict/dir-spacer file/test-dir-spacer <test>
22 	( | cleanup )
23 	;file/name .File/name DEO2
24 	#01 .File/delete DEO
25 	BRK
26 
27+@meta 00
28+	( ) "File 20 "Device(79K) 20 "Test 0a
29+	( ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
30+	( ) "16 20 "Jun 20 "2026 00
31+	( . ) 01
32+	( - ) 56 =Varvara/version
33+
34 (
35 @|Tests )
36 
37@@ -89,6 +100,14 @@
38 	#fffe .File/stat DEO2
39 	.File/success DEI2 #0002 EQU2 JMP2r
40 
41+@file/test-dir-spacer ( -- pass )
42+	;&dirpath .File/name DEO2
43+	#0200 .File/length DEO2
44+	;&dirbuf .File/read DEO2
45+	;&dirbuf #0004 ADD2 LDA #09 EQU JMP2r
46+
47+	&dirpath ". 00
48+
49 (
50 @|Helpers )
51 
52@@ -117,6 +136,7 @@
53 	&write-of "File/write(overflow): 20 $1
54 	&read-of "File/read(overflow): 20 $1
55 	&stat-of "File/stat(overflow): 20 $1
56+	&dir-spacer "File/dir(spacer): 20 $1
57 	&fail "fail 0a $1
58 	&pass "pass 0a $1
59 
60@@ -125,5 +145,5 @@
61 	( stat buf ) &stat-buf &stat-hs $2 &stat-ls $2
62 	( null buf ) &null-buf $4
63 	&name "test.txt $1
64-	&unknown-name "abcdefghj $1
65+	&unknown-name "abcdefghj $1 &dirbuf $200
66