;; Copyright (C) 2014-2015 Ben Kurtovic <ben.kurtovic@gmail.com>
;; Released under the terms of the MIT License. See LICENSE for details.

; ----- CRATER UNIT TESTING SUITE ---------------------------------------------

; This file contains test cases for basic arithmetic operations on registers,
; without involving memory or control flow.

.include	"_header.asm"

test:
	ld	a, 0
	ld	b, 0
	ld	c, 0
	ld	d, 0
	ld	e, 0
	ld	h, 0
	ld	l, 0
	emu	rassert(a=$00, b=$00, c=$00, d=$00, e=$00, h=$00, l=$00)

	inc	a
	emu	rassert(a=$01, b=$00, c=$00, d=$00, e=$00, h=$00, l=$00)
	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

	inc	b
	emu	rassert(a=$01, b=$01, c=$00, d=$00, e=$00, h=$00, l=$00)
	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

	inc	c
	emu	rassert(a=$01, b=$01, c=$01, d=$00, e=$00, h=$00, l=$00)
	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

	inc	d
	emu	rassert(a=$01, b=$01, c=$01, d=$01, e=$00, h=$00, l=$00)
	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

	inc	e
	emu	rassert(a=$01, b=$01, c=$01, d=$01, e=$01, h=$00, l=$00)
	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

	inc	h
	emu	rassert(a=$01, b=$01, c=$01, d=$01, e=$01, h=$01, l=$00)
	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

	inc	l
	emu	rassert(a=$01, b=$01, c=$01, d=$01, e=$01, h=$01, l=$01)
	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)