collapseos/tools/tests/unit/test_parse_z.asm

99 lines
1.2 KiB
NASM
Raw Normal View History

2019-05-17 10:00:30 -04:00
jp test
#include "core.asm"
#include "parse.asm"
#include "lib/util.asm"
#include "zasm/util.asm"
#include "lib/parse.asm"
#include "zasm/parse.asm"
2019-05-17 10:00:30 -04:00
; mocks. aren't used in tests
zasmGetPC:
2019-05-17 10:00:30 -04:00
zasmIsFirstPass:
symSelect:
symFind:
symGetVal:
jp fail
testNum: .db 1
s99: .db "99", 0
s0x99: .db "0x99", 0
2019-05-17 23:00:57 -04:00
s0x100: .db "0x100", 0
2019-05-17 10:34:01 -04:00
s0b0101: .db "0b0101", 0
s0b01010101: .db "0b01010101", 0
2019-05-17 10:00:30 -04:00
sFoo: .db "Foo", 0
test:
ld hl, 0xffff
ld sp, hl
ld hl, s99
call parseLiteral
jp nz, fail
2019-05-20 07:50:23 -04:00
push ix \ pop hl
ld a, h
2019-05-17 10:00:30 -04:00
or a
jp nz, fail
2019-05-20 07:50:23 -04:00
ld a, l
2019-05-17 10:00:30 -04:00
cp 99
jp nz, fail
call nexttest
2019-05-17 23:00:57 -04:00
ld hl, s0x100
call parseLiteral
jp nz, fail
2019-05-20 07:50:23 -04:00
push ix \ pop hl
ld a, h
2019-05-17 23:00:57 -04:00
cp 1
jp nz, fail
2019-05-20 07:50:23 -04:00
ld a, l
2019-05-17 23:00:57 -04:00
or a
jp nz, fail
call nexttest
2019-05-17 10:00:30 -04:00
ld hl, sFoo
call parseLiteral
jp z, fail
call nexttest
2019-05-17 10:34:01 -04:00
ld hl, s0b0101
call parseLiteral
jp nz, fail
2019-05-20 07:50:23 -04:00
push ix \ pop hl
ld a, h
2019-05-17 10:34:01 -04:00
or a
jp nz, fail
2019-05-20 07:50:23 -04:00
ld a, l
2019-05-17 10:34:01 -04:00
cp 0b0101
jp nz, fail
call nexttest
ld hl, s0b01010101
call parseLiteral
jp nz, fail
2019-05-20 07:50:23 -04:00
push ix \ pop hl
ld a, h
2019-05-17 10:34:01 -04:00
or a
jp nz, fail
2019-05-20 07:50:23 -04:00
ld a, l
2019-05-17 10:34:01 -04:00
cp 0b01010101
jp nz, fail
call nexttest
2019-05-17 10:00:30 -04:00
; success
xor a
halt
nexttest:
ld a, (testNum)
inc a
ld (testNum), a
ret
fail:
ld a, (testNum)
halt