collapseos/tools/tests/unit/test_parse.asm

jp	test

#include "core.asm"
#include "parse.asm"

zasmGetPC:
	ret

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

	ld	hl, saB
	call	parseHexPair
	jp	c, fail
	cp	0xab
	jp	nz, fail
	call	nexttest

	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
Add the concept of unit tests Will be much much easier to tests new core routines without having to re-create their context first. Also, extract parse.asm from core.asm 2019-05-17 23:33:20 +10:00			`jp test`

			`#include "core.asm"`
			`#include "parse.asm"`

zasm: add support for "$" symbol Allows for the ".fill x-$" pattern. 2019-05-20 23:17:50 +10:00			`zasmGetPC:`
			`ret`

Add the concept of unit tests Will be much much easier to tests new core routines without having to re-create their context first. Also, extract parse.asm from core.asm 2019-05-17 23:33:20 +10:00			`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`

Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`ld hl, saB`
Add the concept of unit tests Will be much much easier to tests new core routines without having to re-create their context first. Also, extract parse.asm from core.asm 2019-05-17 23:33:20 +10:00			`call parseHexPair`
			`jp c, fail`
			`cp 0xab`
			`jp nz, fail`
			`call nexttest`

Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`ld hl, sFoo`
Add the concept of unit tests Will be much much easier to tests new core routines without having to re-create their context first. Also, extract parse.asm from core.asm 2019-05-17 23:33:20 +10:00			`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`