Added tests for stdlib stack functions. Fixed some small bugs.

[vvhitespace] / stdlib_tests / 1001_stackrotate.pvvs

diff --git a/stdlib_tests/1001_stackrotate.pvvs b/stdlib_tests/1001_stackrotate.pvvs
new file mode 100644 (file)
index 0000000..9a38f03
--- /dev/null
+++ b/stdlib_tests/1001_stackrotate.pvvs
@@ -0,0 +1,28 @@
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTTTTSTSSN    | PUSH 244
+SSSTTTTSSTTN    | PUSH 243
+SSSTTTTSSTSN    | PUSH 242
+
+SSSTTTSN        | PUSH 14
+NSTTSTSN        | JSR > 1010 (stackrotate)
+SSSTSSSN        | PUSH 8
+NSTTSTSN        | JSR > 1010 (stackrotate)
+SSSTSN          | PUSH 2
+NSTTSTSN        | JSR > 1010 (stackrotate)
+
+SSSTTSTN        | PUSH 13
+NSTTTTSSTN      | JSR > 111001 (dumpstack)
+NNN             | DIE
+
+#include <stack.pvvs>
+#include <debug.pvvs>