X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/c6e2791fac7c7b29257588f99d350371d2e10627..d8954ff0eef3998b84815d6f05bea317a4fd3f41:/stdlib_tests/1003_deepdup.pvvs

diff --git a/stdlib_tests/1003_deepdup.pvvs b/stdlib_tests/1003_deepdup.pvvs
new file mode 100644
index 0000000..ead3319
--- /dev/null
+++ b/stdlib_tests/1003_deepdup.pvvs
@@ -0,0 +1,26 @@
+SSSTTTTSTSSN    | PUSH 244
+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
+SSSTN           | PUSH 1
+
+@SSSTTTSN        | PUSH 14
+SSSTTSTN        | PUSH 13
+NSTTTSSN        | JSR > 1100 (deepdup)
+SSSTSN          | PUSH 2
+NSTTTSSN        | JSR > 1100 (deepdup)
+
+SSSTTTSN        | PUSH 14
+NSTTTTSSTN      | JSR > 111001 (dumpstack)
+NNN             | DIE
+
+#include <stack.pvvs>
+#include <debug.pvvs>