collapseos/tools/tests/unit/test_lib_fmt.asm

jp	test

.inc "core.asm"
.inc "lib/util.asm"
.inc "lib/ari.asm"
.inc "lib/fmt.asm"

stdioPutC:
	ret

test:
	ld	sp, 0xffff

	call	testFmtDecimal
	call	testFmtDecimalS

	; success
	xor	a
	halt

testFmtDecimal:
	ld	ix, .t1
	call	.test
	ld	ix, .t2
	call	.test
	ld	ix, .t3
	call	.test
	ld	ix, .t4
	call	.test
	ld	ix, .t5
	call	.test
	ret
.test:
	ld	e, (ix)
	ld	d, (ix+1)
	ld	hl, sandbox
	call	fmtDecimal
	ld	hl, sandbox
	push	ix \ pop de
	inc	de \ inc de
	call	strcmp
	jp	nz, fail
	jp	nexttest
.t1:
	.dw 1234
	.db "1234", 0
.t2:
	.dw 9999
	.db "9999", 0
.t3:
	.dw 0
	.db "0", 0
.t4:
	.dw 0x7fff
	.db "32767", 0
.t5:
	.dw 0xffff
	.db "65535", 0

testFmtDecimalS:
	ld	ix, .t1
	call	.test
	ld	ix, .t2
	call	.test
	ret
.test:
	ld	e, (ix)
	ld	d, (ix+1)
	ld	hl, sandbox
	call	fmtDecimalS
	ld	hl, sandbox
	push	ix \ pop de
	inc	de \ inc de
	call	strcmp
	jp	nz, fail
	jp	nexttest
.t1:
	.dw 1234
	.db "1234", 0
.t2:
	.dw 0-1234
	.db "-1234", 0

testNum:	.db 1

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

fail:
	ld	a, (testNum)
	halt

; used as RAM
sandbox:
basic: add a print cmd It can only print a decimal literal. But still, that's a big step because I hadn't implemented decimal formatting yet. 2019-11-19 05:40:23 +11:00			`jp test`

			`.inc "core.asm"`
			`.inc "lib/util.asm"`
			`.inc "lib/ari.asm"`
			`.inc "lib/fmt.asm"`

basic: add puth command 2019-12-10 06:15:43 +11:00			`stdioPutC:`
			`ret`
basic: add a print cmd It can only print a decimal literal. But still, that's a big step because I hadn't implemented decimal formatting yet. 2019-11-19 05:40:23 +11:00
			`test:`
			`ld sp, 0xffff`

			`call testFmtDecimal`
basic: add support for signed integers 2019-11-24 06:56:23 +11:00			`call testFmtDecimalS`
basic: add a print cmd It can only print a decimal literal. But still, that's a big step because I hadn't implemented decimal formatting yet. 2019-11-19 05:40:23 +11:00
			`; success`
			`xor a`
			`halt`

			`testFmtDecimal:`
			`ld ix, .t1`
			`call .test`
			`ld ix, .t2`
			`call .test`
			`ld ix, .t3`
			`call .test`
			`ld ix, .t4`
			`call .test`
			`ld ix, .t5`
			`call .test`
			`ret`
			`.test:`
			`ld e, (ix)`
			`ld d, (ix+1)`
			`ld hl, sandbox`
			`call fmtDecimal`
			`ld hl, sandbox`
			`push ix \ pop de`
			`inc de \ inc de`
			`call strcmp`
			`jp nz, fail`
			`jp nexttest`
			`.t1:`
			`.dw 1234`
			`.db "1234", 0`
			`.t2:`
			`.dw 9999`
			`.db "9999", 0`
			`.t3:`
			`.dw 0`
			`.db "0", 0`
			`.t4:`
			`.dw 0x7fff`
			`.db "32767", 0`
			`.t5:`
			`.dw 0xffff`
			`.db "65535", 0`

basic: add support for signed integers 2019-11-24 06:56:23 +11:00			`testFmtDecimalS:`
			`ld ix, .t1`
			`call .test`
			`ld ix, .t2`
			`call .test`
			`ret`
			`.test:`
			`ld e, (ix)`
			`ld d, (ix+1)`
			`ld hl, sandbox`
			`call fmtDecimalS`
			`ld hl, sandbox`
			`push ix \ pop de`
			`inc de \ inc de`
			`call strcmp`
			`jp nz, fail`
			`jp nexttest`
			`.t1:`
			`.dw 1234`
			`.db "1234", 0`
			`.t2:`
			`.dw 0-1234`
			`.db "-1234", 0`

basic: add puth command 2019-12-10 06:15:43 +11:00			`testNum: .db 1`

basic: add a print cmd It can only print a decimal literal. But still, that's a big step because I hadn't implemented decimal formatting yet. 2019-11-19 05:40:23 +11:00			`nexttest:`
			`ld a, (testNum)`
			`inc a`
			`ld (testNum), a`
			`ret`

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

			`; used as RAM`
			`sandbox:`