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

more tests

This commit is contained in:
~d6 2025-02-04 00:20:49 -05:00
parent bd510a228e
commit 6f9fe3a1fd
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test.scm
View File

@ -81,10 +81,14 @@
(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 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" "")
(run-test "test SWP" "|100 #40 #4142 SWP #18 DEO #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "AB@" "")
(run-test "test DUP" "|100 #40 #41 DUP #18 DEO #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "AA@" "")
(run-test "test DUPk" "|100 #4042 DUPk #18 DEO #18 DEO #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "BBB@" "")
(run-test "test DUP2" "|100 #40 #4318 DUP2 DEO DEO #18 DEO #800f DEO BRK" '() "" 0 "CC@" "")
(run-test "test DEOk" "|100 #4041 #18 DEOk DEO #18 DEO #800f DEO BRK" '() "" 0 "AA@" "")
(run-test "test DEOkr" "|100 #40 LIT2r 4218 DEOkr DEOr #18 DEO #800f DEO BRK" '() "" 0 "BB@" "")
(run-test "test ROT" "|100 #4041 #4342 ROT #18 DEO #18 DEO #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "ABC@" "")
(run-test "test SWP2" "|100 #40 #4241 #4443 SWP2 #18 DEO #18 DEO #18 DEO #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "ABCD@" "")
(display "\nsummary: ran ")
(display tests-ran)