Added tests for flow control IMP.

[vvhitespace] / tests / 4004_flowcontrol_jump_if_tos_is_negative.pvvs

diff --git a/tests/4004_flowcontrol_jump_if_tos_is_negative.pvvs b/tests/4004_flowcontrol_jump_if_tos_is_negative.pvvs
new file mode 100644 (file)
index 0000000..8517cd6
--- /dev/null
+++ b/tests/4004_flowcontrol_jump_if_tos_is_negative.pvvs
@@ -0,0 +1,10 @@
+# This test verifies the flow control IMP for jumping if TOS is negative.
+
+SSSTSSSSSTN     | ST: Push +65 (ASCII A)
+SSTTN           | ST: Push -1
+NTTTSTSTSN      | FC: BLZ -> '42'
+NNN             | FC: Terminate program
+NSSVTSTSTSN     | FC: Mark label '42'
+SNN             | ST: Drop TOS
+TNSS            | IO: Output character
+NNN             | FC: Terminate program