d6
/
uxn-scm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add some more tests

This commit is contained in:
~d6 2025-02-03 23:21:41 -05:00
parent a2b807922e
commit f7812bb19d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test.scm
View File

@ -78,6 +78,10 @@
(run-test "non-zero exit" "|100 #110f DEO BRK" '() "" 17 "" "") (run-test "non-zero exit" "|100 #110f DEO BRK" '() "" 17 "" "")
(run-test "echo A to stdout" "|100 #4118 DEO #800f DEO BRK" '() "" 0 "A" "") (run-test "echo A to stdout" "|100 #4118 DEO #800f DEO BRK" '() "" 0 "A" "")
(run-test "echo A to stderr" "|100 #4119 DEO #800f DEO BRK" '() "" 0 "" "A") (run-test "echo A to stderr" "|100 #4119 DEO #800f DEO BRK" '() "" 0 "" "A")
(run-test "test SWP" "|100 #4142 SWP #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "AB" "")
(run-test "test DUP" "|100 #41 DUP #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "AA" "")
(run-test "test DEOk" "|100 #41 #18 DEOk DEO #800f DEO BRK" '() "" 0 "AA" "")
(run-test "test DEOkr" "|100 LIT2r 4218 DEOkr DEOr #800f DEO BRK" '() "" 0 "BB" "")
(display "\nsummary: ran ") (display "\nsummary: ran ")
(display tests-ran) (display tests-ran)