commit 7868e05

Devine Lu Linvega  ·  2025-08-21 17:46:13 +0000 UTC
parent f8453cb 
Standardizing tests
3 files changed,  +15, -8
M etc/examples/file.tal
M etc/examples/system.tal
M makefile
M etc/examples/file.tal
+8, -2 
 1@@ -10,14 +10,17 @@
 2 	file/<load>
 3 	#0004 .File/success DEI2 NEQ2 ?fail
 4 	;file/a1 LDA2 ;file/a2 LDA2 NEQ2 ?fail
 5+	;dict/load str/<print>
 6 	;file/b1 LDA2 ;file/b2 LDA2 NEQ2 ?fail
 7+	;dict/append str/<print>
 8 	;file/stat-buf file/<stat>
 9 	;file/stat-hs LDA2 LIT2 "00 NEQ2 ?fail
10 	;file/stat-ls LDA2 LIT2 "04 NEQ2 ?fail
11+	;dict/stat str/<print>
12 	file/<delete>
13 	;file/null-buf file/<stat>
14 	;file/null-buf LDA2 LIT2 "!! NEQ2 ?fail
15-	;dict/passed str/<print>
16+	;dict/delete str/<print>
17 	#800f DEO
18 	BRK
19 
20@@ -71,7 +74,10 @@
21 @|Data )
22 
23 @dict/failed "File: 20 "fail 0a $1
24-	&passed "File: 20 "pass 0a $1
25+	&load "File/load: 20 "pass 0a $1
26+	&append "File/append: 20 "pass 0a $1
27+	&stat "File/stat: 20 "pass 0a $1
28+	&delete "File/delete: 20 "pass 0a $1
29 
30 @file/data &a1 1234 &b1 5678
31 	( load buf ) &load-buf &a2 $2 &b2 $2
M etc/examples/system.tal
+5, -5 
 1@@ -48,12 +48,12 @@
 2 	POP2r EQU2 JMP2r
 3 
 4 @dict
 5-	&cpyl "Expansion/cpyl: 20 $1
 6-	&cpyr "Expansion/cpyr: 20 $1
 7-	&fill "Expansion/fill: 20 $1
 8-	&over "Expansion/overflow: 20 $1
 9+	&cpyl "System/cpyl: 20 $1
10+	&cpyr "System/cpyr: 20 $1
11+	&fill "System/fill: 20 $1
12+	&over "System/overflow: 20 $1
13 	&pass "pass 0a $1
14-	&fail "FAIL 0a $1
15+	&fail "fail 0a $1
16 
17 @buf  [ "......[hello]..... $1 ]
18 @res1 [ "...[hello]lo]..... $1 ]
M makefile
+2, -1 
 1@@ -86,7 +86,8 @@ bin/uxn11-debug: src/uxn11.c
 2 
 3 # Tests
 4 
 5-tests: bin/test_opcodes.rom bin/system.rom bin/uxncli bin/drifblim.rom
 6+tests: bin/test_opcodes.rom bin/system.rom bin/console.rom bin/file.rom bin/uxncli bin/drifblim.rom
 7+
 8 bin/test_opcodes.rom: etc/tests/opctest.tal
 9 	@ bin/uxncli bin/drifblim.rom etc/tests/opctest.tal bin/test_opcodes.rom
10