collapseos/tools/tests/unit/test_parse_z.asm

jp	test

#include "core.asm"
#include "parse.asm"
#include "lib/util.asm"
#include "zasm/util.asm"
#include "lib/parse.asm"
#include "zasm/parse.asm"

; mocks. aren't used in tests
zasmGetPC:
zasmIsFirstPass:
symSelect:
symFind:
symGetVal:
	jp	fail

testNum:	.db 1

s99:		.db "99", 0
s0x99:		.db "0x99", 0
s0x100:		.db "0x100", 0
s0b0101:	.db "0b0101", 0
s0b01010101:	.db "0b01010101", 0
sFoo:		.db "Foo", 0

test:
	ld	hl, 0xffff
	ld	sp, hl

	ld	hl, s99
	call	parseLiteral
	jp	nz, fail
	push	ix \ pop hl
	ld	a, h
	or	a
	jp	nz, fail
	ld	a, l
	cp	99
	jp	nz, fail
	call	nexttest

	ld	hl, s0x100
	call	parseLiteral
	jp	nz, fail
	push	ix \ pop hl
	ld	a, h
	cp	1
	jp	nz, fail
	ld	a, l
	or	a
	jp	nz, fail
	call	nexttest

	ld	hl, sFoo
	call	parseLiteral
	jp	z, fail
	call	nexttest

	ld	hl, s0b0101
	call	parseLiteral
	jp	nz, fail
	push	ix \ pop hl
	ld	a, h
	or	a
	jp	nz, fail
	ld	a, l
	cp	0b0101
	jp	nz, fail
	call	nexttest

	ld	hl, s0b01010101
	call	parseLiteral
	jp	nz, fail
	push	ix \ pop hl
	ld	a, h
	or	a
	jp	nz, fail
	ld	a, l
	cp	0b01010101
	jp	nz, fail
	call	nexttest

	; success
	xor	a
	halt

nexttest:
	ld	a, (testNum)
	inc	a
	ld	(testNum), a
	ret

fail:
	ld	a, (testNum)
	halt
Add unit test for zasm's parse unit 2019-05-17 10:00:30 -04:00			`jp test`

			`#include "core.asm"`
			`#include "parse.asm"`
Fix broken tests Also, make tests run in a *BSD environment 2019-07-19 14:24:35 -04:00			`#include "lib/util.asm"`
Make apps folder into a namespace To straighten out includes and to pave the way into zasm being part of the same "include CFS" as parts, we make zasm includes namespaced. 2019-05-17 20:22:32 -04:00			`#include "zasm/util.asm"`
Fix broken tests Also, make tests run in a *BSD environment 2019-07-19 14:24:35 -04:00			`#include "lib/parse.asm"`
Make apps folder into a namespace To straighten out includes and to pave the way into zasm being part of the same "include CFS" as parts, we make zasm includes namespaced. 2019-05-17 20:22:32 -04:00			`#include "zasm/parse.asm"`
Add unit test for zasm's parse unit 2019-05-17 10:00:30 -04:00
			`; mocks. aren't used in tests`
zasm: add support for "$" symbol Allows for the ".fill x-$" pattern. 2019-05-20 09:17:50 -04:00			`zasmGetPC:`
Add unit test for zasm's parse unit 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`
zasm: fix 3-digit hex parsing 2019-05-17 23:00:57 -04:00			`s0x100: .db "0x100", 0`
zasm: add support for "0b" literals 2019-05-17 10:34:01 -04:00			`s0b0101: .db "0b0101", 0`
			`s0b01010101: .db "0b01010101", 0`
Add unit test for zasm's parse unit 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`
Run unit tests with zasm 2019-05-20 07:50:23 -04:00			`push ix \ pop hl`
			`ld a, h`
Add unit test for zasm's parse unit 2019-05-17 10:00:30 -04:00			`or a`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 07:50:23 -04:00			`ld a, l`
Add unit test for zasm's parse unit 2019-05-17 10:00:30 -04:00			`cp 99`
			`jp nz, fail`
			`call nexttest`

zasm: fix 3-digit hex parsing 2019-05-17 23:00:57 -04:00			`ld hl, s0x100`
			`call parseLiteral`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 07:50:23 -04:00			`push ix \ pop hl`
			`ld a, h`
zasm: fix 3-digit hex parsing 2019-05-17 23:00:57 -04:00			`cp 1`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 07:50:23 -04:00			`ld a, l`
zasm: fix 3-digit hex parsing 2019-05-17 23:00:57 -04:00			`or a`
			`jp nz, fail`
			`call nexttest`

Add unit test for zasm's parse unit 2019-05-17 10:00:30 -04:00			`ld hl, sFoo`
			`call parseLiteral`
			`jp z, fail`
			`call nexttest`

zasm: add support for "0b" literals 2019-05-17 10:34:01 -04:00			`ld hl, s0b0101`
			`call parseLiteral`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 07:50:23 -04:00			`push ix \ pop hl`
			`ld a, h`
zasm: add support for "0b" literals 2019-05-17 10:34:01 -04:00			`or a`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 07:50:23 -04:00			`ld a, l`
zasm: add support for "0b" literals 2019-05-17 10:34:01 -04:00			`cp 0b0101`
			`jp nz, fail`
			`call nexttest`

			`ld hl, s0b01010101`
			`call parseLiteral`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 07:50:23 -04:00			`push ix \ pop hl`
			`ld a, h`
zasm: add support for "0b" literals 2019-05-17 10:34:01 -04:00			`or a`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 07:50:23 -04:00			`ld a, l`
zasm: add support for "0b" literals 2019-05-17 10:34:01 -04:00			`cp 0b01010101`
			`jp nz, fail`
			`call nexttest`

Add unit test for zasm's parse unit 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`