collapseos/tools/tests/unit/test_parse.asm

67 lines
694 B
NASM
Raw Normal View History

jp test
#include "core.asm"
#include "parse.asm"
testNum: .db 1
sFoo: .db "Foo", 0
saB: .db "aB", 0
s99: .db "99", 0
test:
ld hl, 0xffff
ld sp, hl
ld a, '8'
call parseHex
jp c, fail
cp 8
jp nz, fail
call nexttest
ld a, 'e'
call parseHex
jp c, fail
cp 0xe
jp nz, fail
call nexttest
ld a, 'x'
call parseHex
jp nc, fail
call nexttest
ld hl, s99
call parseHexPair
jp c, fail
cp 0x99
jp nz, fail
call nexttest
2019-05-20 07:50:23 -04:00
ld hl, saB
call parseHexPair
jp c, fail
cp 0xab
jp nz, fail
call nexttest
2019-05-20 07:50:23 -04:00
ld hl, sFoo
call parseHexPair
jp nc, fail
call nexttest
; success
xor a
halt
nexttest:
ld a, (testNum)
inc a
ld (testNum), a
ret
fail:
ld a, (testNum)
halt