Max/kichikuou_xsystem35-sdl2
1
0
Fork 0
mirror of https://github.com/kichikuou/xsystem35-sdl2.git synced 2026-09-22 22:48:08 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add a test for stack commands

Browse Source
This commit is contained in:
kichikuou
2023-02-10 21:30:02 +09:00
parent ae8becc4a3
commit 878bea69d6
6 changed files with 66 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/System39.ain
BIN
View File
Binary file not shown.
test/stack.adv
+58
View File
@@ -0,0 +1,58 @@
MS FILE,"stack.adv":
const word STACK_TOP_ATTR = 0:
const word NUM_PAGE_CALLS = 1:
const word NUM_LABEL_CALLS = 2:
const word NUM_VAR_PUSHES = 3:
const word NUM_LABEL_CALLS_AFTER_PAGE_CALL = 4:
const word NUM_VAR_PUSHES_AFTER_CALL = 5:
UR D01:
~AssertEquals D01[STACK_TOP_ATTR], 0, __LINE__:
~AssertEquals D01[NUM_PAGE_CALLS], 1, __LINE__:
~AssertEquals D01[NUM_LABEL_CALLS], 0, __LINE__:
~AssertEquals D01[NUM_VAR_PUSHES], 0, __LINE__:
~TestGlobalReturnFromLocalFunc:
%0:
**TestGlobalReturnFromLocalFunc:
UR D01:
~AssertEquals D01[STACK_TOP_ATTR], 0, __LINE__:
~AssertEquals D01[NUM_PAGE_CALLS], 2, __LINE__:
~AssertEquals D01[NUM_LABEL_CALLS], 0, __LINE__:
~AssertEquals D01[NUM_LABEL_CALLS_AFTER_PAGE_CALL], 0, __LINE__:
\LocalFunc:
; Unreachable
~Fail __LINE__:
%0:
*LocalFunc:
UR D01:
~AssertEquals D01[STACK_TOP_ATTR], 0, __LINE__:
~AssertEquals D01[NUM_PAGE_CALLS], 2, __LINE__:
~AssertEquals D01[NUM_LABEL_CALLS], 1, __LINE__:
~AssertEquals D01[NUM_LABEL_CALLS_AFTER_PAGE_CALL], 1, __LINE__:
~NestedGlobalFunc:
%0: ; This returns from TestGlobalReturnFromLocalFunc!
**NestedGlobalFunc:
US D01, 20:
UR D01:
~AssertEquals D01[STACK_TOP_ATTR], 0, __LINE__:
~AssertEquals D01[NUM_PAGE_CALLS], 3, __LINE__:
~AssertEquals D01[NUM_LABEL_CALLS], 1, __LINE__:
~AssertEquals D01[NUM_LABEL_CALLS_AFTER_PAGE_CALL], 0, __LINE__:
~AssertEquals D01[NUM_VAR_PUSHES], 20, __LINE__:
~AssertEquals D01[NUM_VAR_PUSHES_AFTER_CALL], 20, __LINE__:
\NestedLocalFunc:
%0:
*NestedLocalFunc:
UR D01:
~AssertEquals D01[STACK_TOP_ATTR], 0, __LINE__:
~AssertEquals D01[NUM_PAGE_CALLS], 3, __LINE__:
~AssertEquals D01[NUM_LABEL_CALLS], 2, __LINE__:
~AssertEquals D01[NUM_LABEL_CALLS_AFTER_PAGE_CALL], 1, __LINE__:
~AssertEquals D01[NUM_VAR_PUSHES], 20, __LINE__:
~AssertEquals D01[NUM_VAR_PUSHES_AFTER_CALL], 0, __LINE__:
\0:
test/test.adv
+1
View File
@@ -11,6 +11,7 @@
%#array.adv:
%#strvar.adv:
%#stack.adv:
HH0,tests_passed: ' tests passed' R
HH0,tests_failed: ' tests failed' R
test/test.hed
+1
View File
@@ -3,6 +3,7 @@ test.adv
util.adv
array.adv
strvar.adv
stack.adv
#DLLHeader
ShString.HEL
test/testSA.ALD
BIN
View File
Binary file not shown.
test/util.adv
+6
View File
@@ -27,3 +27,9 @@ const word FILE = 1:
' actual: "' X actual: '"'
R
%0:
**Fail line:
inc tests_failed:
'[FAIL] ' X FILE: ':' HH0,line:
R
%0: