From ec58aa1c619f762ef3d2dcd212ad7b87f804afeb Mon Sep 17 00:00:00 2001
From: Aaron Taylor <ataylor@subgeniuskitty.com>
Date: Sun, 28 Jul 2019 14:04:06 -0700
Subject: [PATCH] Added stdlib tests for slurp and spew.

---
 stdlib_tests/2001_spew.pvvs  | 16 ++++++++++++++++
 stdlib_tests/2002_slurp.pvvs | 19 +++++++++++++++++++
 stdlib_tests/vv_test.py      |  2 ++
 3 files changed, 37 insertions(+)
 create mode 100644 stdlib_tests/2001_spew.pvvs
 create mode 100644 stdlib_tests/2002_slurp.pvvs

diff --git a/stdlib_tests/2001_spew.pvvs b/stdlib_tests/2001_spew.pvvs
new file mode 100644
index 0000000..8d89bc1
--- /dev/null
+++ b/stdlib_tests/2001_spew.pvvs
@@ -0,0 +1,16 @@
+SSSTTTTSTSSN    | PUSH 244
+SSSTTTTSSTTN    | PUSH 243
+SSSTTTTSSTSN    | PUSH 242
+
+SSSTSSSSSN      | PUSH 32 (address)
+SSSTSN          | PUSH 2 (count)
+NSTTTTTTN       | JSR > 11111 (spew)
+
+SSSTSSSTSN      | PUSH 34 (end address)
+SSSTSSSSSN      | PUSH 32 (start address)
+NSTTTTSSSN      | JSR > 111000 (dumpheap)
+
+NNN             | DIE
+
+#include <heap.pvvs>
+#include <debug.pvvs>
diff --git a/stdlib_tests/2002_slurp.pvvs b/stdlib_tests/2002_slurp.pvvs
new file mode 100644
index 0000000..7c36df3
--- /dev/null
+++ b/stdlib_tests/2002_slurp.pvvs
@@ -0,0 +1,19 @@
+SSSTTTTSTSSN    | PUSH 244
+SSSTTTTSSTTN    | PUSH 243
+SSSTTTTSSTSN    | PUSH 242
+
+SSSTSSSSSN      | PUSH 32 (address)
+SSSTSN          | PUSH 2 (count)
+NSTTTTTTN       | JSR > 11111 (spew)
+
+SSSTSSSSSN      | PUSH 32 (address)
+SSSTSN          | PUSH 2 (count)
+NSTTTTTSN       | JSR > 11110 (slurp)
+
+SSSTTN          | PUSH 3 (count)
+NSTTTTSSTN      | JSR > 111001 (dumpstack)
+
+NNN             | DIE
+
+#include <heap.pvvs>
+#include <debug.pvvs>
diff --git a/stdlib_tests/vv_test.py b/stdlib_tests/vv_test.py
index a14468d..5e2fd9e 100755
--- a/stdlib_tests/vv_test.py
+++ b/stdlib_tests/vv_test.py
@@ -23,6 +23,8 @@ tests = [
         ['1001_stackrotate', '', 'TOS:\n14:\t+1\n13:\t+244\n12:\t+1\n11:\t+1\n10:\t+1\n9:\t+1\n8:\t+1\n7:\t+243\n6:\t+1\n5:\t+1\n4:\t+1\n3:\t+1\n2:\t+1\n1:\t+242\n'],
         ['1002_stackrotatereverse', '', 'TOS:\n14:\t+1\n13:\t+244\n12:\t+1\n11:\t+1\n10:\t+1\n9:\t+1\n8:\t+1\n7:\t+1\n6:\t+1\n5:\t+1\n4:\t+1\n3:\t+1\n2:\t+1\n1:\t+1\n'],
         ['1003_deepdup', '', 'TOS:\n15:\t+1\n14:\t+244\n13:\t+1\n12:\t+1\n11:\t+1\n10:\t+1\n9:\t+1\n8:\t+1\n7:\t+1\n6:\t+1\n5:\t+1\n4:\t+1\n3:\t+1\n2:\t+1\n1:\t+244\n'],
+        ['2001_spew', '', '32:\t+242\n33:\t+243\n34:\t+244\n'],
+        ['2002_slurp', '', 'TOS:\n3:\t+242\n2:\t+243\n1:\t+244\n'],
         ] 
 
 for test in tests:
-- 
2.20.1