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

(stdlib) Added tests

This commit is contained in:
Devine Lu Linvega 2023-04-10 15:09:17 -07:00
parent fda853b99f
commit 5a07354e04
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
cli/stdlib/stdlib.tal
View File

@ -15,20 +15,22 @@ BRK
JMP2r JMP2r
@tests @tests [
=test-dec1 =test-dec1 =test-dec2 =test-dec3 =test-dec4
=test-dec2 =test-hex1 =test-hex2 =test-hex3 =test-hex4
=test-hex1 ] &end
=test-hex2
&end
( (
@|tests ) @|tests )
@test-dec1 ;dict/dec1 sdec #1234 EQU2 JMP2r @test-dec1 ;dict/dec1 sdec #1234 EQU2 JMP2r
@test-dec2 ;dict/dec2 sdec #0123 EQU2 JMP2r @test-dec2 ;dict/dec2 sdec #0123 EQU2 JMP2r
@test-dec3 ;dict/dec3 sdec #0000 EQU2 JMP2r
@test-dec4 ;dict/dec4 sdec #0000 EQU2 JMP2r
@test-hex1 ;dict/hex1 shex #12c0 EQU2 JMP2r @test-hex1 ;dict/hex1 shex #12c0 EQU2 JMP2r
@test-hex2 ;dict/hex2 shex #034f EQU2 JMP2r @test-hex2 ;dict/hex2 shex #034f EQU2 JMP2r
@test-hex3 ;dict/dec3 sdec #0000 EQU2 JMP2r
@test-hex4 ;dict/dec4 sdec #0000 EQU2 JMP2r
( (
@|stdlib ) @|stdlib )
@ -61,15 +63,20 @@ JMP2r
@chex ( c -- val|ff ) @chex ( c -- val|ff )
LIT "0 SUB DUP #09 GTH JMP JMP2r LIT "0 SUB DUP #09 GTH [ JMP JMP2r ]
#27 SUB DUP #0f GTH JMP JMP2r #27 SUB DUP #0f GTH [ JMP JMP2r ]
POP #ff POP #ff
JMP2r JMP2r
@dict @dict [
&dec1 "4660 $1 &dec1 "4660 $1
&dec2 "291 $1 &dec2 "291 $1
&dec3 "0 $1
&dec4 "q2x*63? $1
&hex1 "12c0 $1 &hex1 "12c0 $1
&hex2 "34f $1 &hex2 "34f $1
&hex3 "0 $1
&hex4 "q2x*63? $1
]