Added test for memsrch subroutine.

diff --git a/stdlib_tests/2006_memsrch.pvvs b/stdlib_tests/2006_memsrch.pvvs
new file mode 100644 (file)
index 0000000..df8575b
--- /dev/null
+++ b/stdlib_tests/2006_memsrch.pvvs
@@ -0,0 +1,18 @@
+@ Push '42' onto heap[32]-heap[33].
+SSSTSTSTSN      | PUSH 42 (pattern)
+SSSTSSSSSN      | PUSH 32 (address)
+SSSTN           | PUSH 1 (count)
+NSTTTSSSN       | JSR > 11000 (memset)
+
+@ This comparison should return true.
+SSSTSTSTSN      | PUSH 42 (pattern)
+SSSTSSSN        | PUSH 8 (count)
+SSSSTTTSSN      | PUSH 28 (address)
+NSTTTTSSN       | JSR > 11100 (memsrch)
+
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+NNN             | DIE
+
+#include <heap.pvvs>
+#include <stdio.pvvs>

diff --git a/stdlib_tests/vv_test.py b/stdlib_tests/vv_test.py
index cf09690..6cfa0bd 100755 (executable)
--- a/stdlib_tests/vv_test.py
+++ b/stdlib_tests/vv_test.py
@@ -28,6 +28,7 @@ tests = [
         ['2003_memset', '', '32:\t+42\n33:\t+42\n'],
         ['2004_memcpy', '', '34:\t+42\n35:\t+42\n'],
         ['2005_memcmp', '', '+1'],
         ['2003_memset', '', '32:\t+42\n33:\t+42\n'],
         ['2004_memcpy', '', '34:\t+42\n35:\t+42\n'],
         ['2005_memcmp', '', '+1'],

+        ['2006_memsrch', '', '+32'],

         ] 
 
 for test in tests:
         ] 
 
 for test in tests: