collapseos/tools/tests/unit/test_parse_z.asm

.equ	RAMSTART	0x4000
; declare DIREC_LASTVAL manually so that we don't have to include directive.asm
.equ	DIREC_LASTVAL	RAMSTART

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:
symFindVal:
	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

.equ	FOO		0x42
.equ	BAR		@+1
	ld	a, BAR
	cp	0x43
	jp	nz, fail
	call	nexttest

	; success
	xor	a
	halt

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

fail:
	ld	a, (testNum)
	halt
zasm: add "last value" symbol (@) 2019-10-05 10:26:21 +10:00			`.equ RAMSTART 0x4000`
			`; declare DIREC_LASTVAL manually so that we don't have to include directive.asm`
			`.equ DIREC_LASTVAL RAMSTART`

Add unit test for zasm's parse unit 2019-05-18 00:00:30 +10:00			`jp test`

			`#include "core.asm"`
			`#include "parse.asm"`
Fix broken tests Also, make tests run in a *BSD environment 2019-07-20 04:24:35 +10: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-18 10:22:32 +10:00			`#include "zasm/util.asm"`
Fix broken tests Also, make tests run in a *BSD environment 2019-07-20 04:24:35 +10: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-18 10:22:32 +10:00			`#include "zasm/parse.asm"`
Add unit test for zasm's parse unit 2019-05-18 00:00:30 +10:00
			`; mocks. aren't used in tests`
zasm: add support for "$" symbol Allows for the ".fill x-$" pattern. 2019-05-20 23:17:50 +10:00			`zasmGetPC:`
Add unit test for zasm's parse unit 2019-05-18 00:00:30 +10:00			`zasmIsFirstPass:`
			`symSelect:`
zasm: fix bug with registry selection During expression parsing, if a local label was parsed, it would select the local registry and keep that selection, making subsequent global labels register in the wrong place. 2019-07-21 08:07:52 +10:00			`symFindVal:`
Add unit test for zasm's parse unit 2019-05-18 00:00:30 +10:00			`jp fail`

			`testNum: .db 1`

			`s99: .db "99", 0`
			`s0x99: .db "0x99", 0`
zasm: fix 3-digit hex parsing 2019-05-18 13:00:57 +10:00			`s0x100: .db "0x100", 0`
zasm: add support for "0b" literals 2019-05-18 00:34:01 +10:00			`s0b0101: .db "0b0101", 0`
			`s0b01010101: .db "0b01010101", 0`
Add unit test for zasm's parse unit 2019-05-18 00:00:30 +10: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 21:50:23 +10:00			`push ix \ pop hl`
			`ld a, h`
Add unit test for zasm's parse unit 2019-05-18 00:00:30 +10:00			`or a`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`ld a, l`
Add unit test for zasm's parse unit 2019-05-18 00:00:30 +10:00			`cp 99`
			`jp nz, fail`
			`call nexttest`

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

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

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

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

zasm: add "last value" symbol (@) 2019-10-05 10:26:21 +10:00			`.equ FOO 0x42`
			`.equ BAR @+1`
			`ld a, BAR`
			`cp 0x43`
			`jp nz, fail`
			`call nexttest`

Add unit test for zasm's parse unit 2019-05-18 00:00:30 +10:00			`; success`
			`xor a`
			`halt`

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

			`fail:`
			`ld a, (testNum)`
			`halt`