X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/e5b4dad90ea7fbc4cbe1be5ac7f5c7b77b433b29..519b6ab41c6a7c2abd44c9dcffb2a9b63c762442:/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
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