commit 767d950

Devine Lu Linvega  ·  2026-06-24 22:41:23 +0000 UTC
parent 1884d00 
Improved tests
5 files changed,  +44, -8
M etc/tests/console.tal
M etc/tests/datetime.tal
M etc/tests/file.tal
M etc/tests/perifs.tal
M etc/tests/system.tal
M etc/tests/console.tal
+11, -1 
 1@@ -1,13 +1,23 @@
 2-( printf "ghi" | uxncli console.rom "abc" "def" )
 3+( 54K . printf "ghi" | uxncli console.rom "abc" "def" )
 4 
 5 |10 @Console/vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 6+|0050 @Varvara/version
 7 
 8 |100
 9 
10 @on-reset ( -> )
11+	;meta #06 DEO2
12 	;on-console .Console/vector DEO2
13 	BRK
14 
15+@meta 00
16+	( name ) "Console 20 "Device 20 "Test(80K) 0a
17+	( details ) "Testing 20 "Program 0a
18+	( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
19+	( date ) "24 20 "Jun 20 "2026 00
20+	( . ) 01
21+	( - ) 56 =Varvara/version
22+
23 @on-console ( -> )
24 	.Console/type DEI .Console/read DEI
25 	( inc ) [ LIT2 &ptr =expect ] INC2k INC2 ,&ptr STR2
M etc/tests/datetime.tal
+11, -1 
 1@@ -1,11 +1,13 @@
 2-( usage: uxncli datetime.rom )
 3+( 54K . Datetime Test )
 4 
 5 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 6 |c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
 7+|0050 @Varvara/version
 8 
 9 |100
10 
11 @on-reset ( -> )
12+	;meta #06 DEO2
13 	.DateTime/year DEI2k dec/<print>
14 	[ LIT "- ] .Console/write DEO
15 	INC INC DEIk INC <print-dec-pad>
16@@ -39,6 +41,14 @@
17 	#800f DEO
18 	BRK
19 
20+@meta 00
21+	( name ) "Datetime 20 "Device 20 "Test(80K) 0a
22+	( details ) "Testing 20 "Program 0a
23+	( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
24+	( date ) "24 20 "Jun 20 "2026 00
25+	( . ) 01
26+	( - ) 56 =Varvara/version
27+
28 @<print-dec-pad> ( byte -- )
29 	#0a DIVk dec/<emit>
30 	DIVk MUL SUB
M etc/tests/file.tal
+4, -3 
 1@@ -27,9 +27,10 @@
 2 	BRK
 3 
 4 @meta 00
 5-	( ) "File 20 "Device(79K) 20 "Test 0a
 6-	( ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
 7-	( ) "16 20 "Jun 20 "2026 00
 8+	( name ) "File 20 "Device 20 "Test(80K) 0a
 9+	( details ) "Testing 20 "Program 0a
10+	( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
11+	( date ) "24 20 "Jun 20 "2026 00
12 	( . ) 01
13 	( - ) 56 =Varvara/version
14
M etc/tests/perifs.tal
+2, -2 
 1@@ -34,9 +34,9 @@
 2 	BRK
 3 
 4 @meta 00 "Perifs 0a
 5-	( details ) "A 20 "Peripherals 20 "Test 0a
 6+	( details ) "A 20 "Peripherals 20 "Test(80K) 0a
 7 	( author ) "By 20 "Hundred 20 "Rabbits 0a
 8-	( date ) "13 20 "Jun 20 "2026 00
 9+	( date ) "24 20 "Jun 20 "2026 00
10 	( . ) 02
11 	( - ) 56 =Varvara/version
12 	( - ) 83 =appicon
M etc/tests/system.tal
+16, -1 
 1@@ -1,11 +1,18 @@
 2-( uxncli system.rom )
 3+( 54K . System Device Tests )
 4 
 5 |00 @System/vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
 6 |10 @Console/vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 7+|0050 @Varvara/version
 8 
 9 |100
10 
11 @on-reset ( -> )
12+	;meta #06 DEO2
13+	( | Halt recover )
14+	[ LIT2 80 -System/state ] DEO
15+	[ LIT2 01 -System/state ] DEO
16+	[ LIT2 00 -System/state ] DEO
17+	( | )
18 	#800f DEO
19 	system/test-wst ;dict/wst ROT <test>
20 	system/test-rst ;dict/rst ROT <test>
21@@ -19,6 +26,14 @@
22 	;dict/over #0000 LDA #ffff LDA #8888 EQU2 <test>
23 	BRK
24 
25+@meta 00
26+	( name ) "System 20 "Device 20 "Test(80K) 0a
27+	( details ) "Testing 20 "Program 0a
28+	( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
29+	( date ) "24 20 "Jun 20 "2026 00
30+	( . ) 01
31+	( - ) 56 =Varvara/version
32+
33 (
34 @|test )
35