X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/6e942bd8524e9393f61a0358a0282b2641f9d3d7..665e21b4427f40fd8317001b144be66b313955e8:/tests/1004_stack_drop.pvvs

diff --git a/tests/1004_stack_drop.pvvs b/tests/1004_stack_drop.pvvs
new file mode 100644
index 0000000..55dd6b6
--- /dev/null
+++ b/tests/1004_stack_drop.pvvs
@@ -0,0 +1,7 @@
+# This test verifies stack IMP drop.
+
+SSSTSSSSSTN     | ST: Push +65 (ASCII A)
+SSSTSSSSTSN     | ST: Push +66 (ASCII B)
+SNN             | ST: Discard TOS
+TNSS            | IO: Output character
+NNN             | FC: Terminate program