collapseos/tools/tests/unit/test_util_z.asm

jp	test

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

testNum:	.db 1
sFoo:		.db "foo", 0

test:
	ld	hl, 0xffff
	ld	sp, hl

	ld	de, 12
	ld	bc, 4
	call	multDEBC
	ld	a, l
	cp	48
	jp	nz, fail
	call	nexttest

	ld	hl, sFoo
	call	strlen
	cp	3
	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 multiplication expressions 2019-05-18 12:22:10 +10:00			`jp test`

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

			`testNum: .db 1`
zasm: clarify strlen's API 2019-07-23 23:28:39 +10:00			`sFoo: .db "foo", 0`
zasm: add multiplication expressions 2019-05-18 12:22:10 +10:00
			`test:`
			`ld hl, 0xffff`
			`ld sp, hl`

			`ld de, 12`
			`ld bc, 4`
			`call multDEBC`
			`ld a, l`
			`cp 48`
			`jp nz, fail`
			`call nexttest`

zasm: clarify strlen's API 2019-07-23 23:28:39 +10:00			`ld hl, sFoo`
			`call strlen`
			`cp 3`
			`jp nz, fail`
			`call nexttest`

zasm: add multiplication expressions 2019-05-18 12:22:10 +10:00			`; success`
			`xor a`
			`halt`

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

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