collapseos/tools/tests/unit/test_basic_parse.asm

jp	test

.inc "core.asm"
.inc "str.asm"
.inc "lib/util.asm"
.inc "lib/ari.asm"
.inc "lib/parse.asm"
.equ	EXPR_PARSE	parseLiteral
.inc "lib/expr.asm"
.inc "basic/parse.asm"

test:
	ld	sp, 0xffff

	call	testParseThruth

	; success
	xor	a
	halt

testParseThruth:
	ld	hl, .t1
	call	.true
	ld	hl, .t2
	call	.true
	ld	hl, .t3
	call	.true
	ld	hl, .t4
	call	.true
	ld	hl, .t5
	call	.true
	ld	hl, .t6
	call	.true
	ld	hl, .t7
	call	.true
	ld	hl, .t8
	call	.true

	ld	hl, .f1
	call	.false
	ld	hl, .f2
	call	.false
	ld	hl, .f3
	call	.false
	ld	hl, .f4
	call	.false
	ld	hl, .f5
	call	.false
	ld	hl, .f6
	call	.false

	ld	hl, .e1
	call	.error
	ret

.true:
	call	parseTruth
	jp	nz, fail
	or	a
	jp	z, fail
	jp	nexttest

.false:
	call	parseTruth
	jp	nz, fail
	or	a
	jp	nz, fail
	jp	nexttest

.error:
	call	parseTruth
	jp	z, fail
	jp	nexttest

.t1:	.db	"42", 0
.t2:	.db	"42+4=50-4", 0
.t3:	.db	"1<2", 0
.t4:	.db	"2>1", 0
.t5:	.db	"2>=1", 0
.t6:	.db	"2>=2", 0
.t7:	.db	"1<=2", 0
.t8:	.db	"2<=2", 0
.f1:	.db	"42-42", 0
.f2:	.db	"42+4=33+2", 0
.f3:	.db	"2<2", 0
.f4:	.db	"1>2", 0
.f5:	.db	"1>=2", 0
.f6:	.db	"2<=1", 0
.e1:	.db	"foo", 0

testNum:	.db 1

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

fail:
	ld	a, (testNum)
	halt

; used as RAM
sandbox: