|
|
@@ -0,0 +1,47 @@ |
|
|
|
;; 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) |