From 9c88539c987533cf1d54d90029ae209031d98d62 Mon Sep 17 00:00:00 2001
From: Aaron Taylor <ataylor@subgeniuskitty.com>
Date: Wed, 7 Aug 2019 12:47:14 -0700
Subject: [PATCH] Added tests for stdlib subroutine `strlen`.

---
 stdlib_tests/4001_strlen.pvvs | 14 ++++++++++++++
 stdlib_tests/vv_test.py       |  1 +
 2 files changed, 15 insertions(+)
 create mode 100644 stdlib_tests/4001_strlen.pvvs

diff --git a/stdlib_tests/4001_strlen.pvvs b/stdlib_tests/4001_strlen.pvvs
new file mode 100644
index 0000000..7c0e0af
--- /dev/null
+++ b/stdlib_tests/4001_strlen.pvvs
@@ -0,0 +1,14 @@
+A"Hello World"
+SSSTSSSSSN      | PUSH 32 (address)
+SSSTSTTN        | PUSH 11 (count)
+NSTTTTTTN       | JSR > 11111 (spew)
+
+SSSTSSSSSN      | PUSH 32 (address)
+NSTTSSSSSN      | JSR > 100000 (strlen)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+NNN             | DIE
+
+#include <stdio.pvvs>
+#include <heap.pvvs>
+#include <string.pvvs>
diff --git a/stdlib_tests/vv_test.py b/stdlib_tests/vv_test.py
index 368a166..a121659 100755
--- a/stdlib_tests/vv_test.py
+++ b/stdlib_tests/vv_test.py
@@ -36,6 +36,7 @@ tests = [
         ['3004_and', '', '+0+0+1+1+42'],
         ['3005_or', '', '+0+1+1-1-1'],
         ['3006_xor', '', '+0+1+0-2-1'],
+        ['4001_strlen', '', '+11'],
         ] 
 
 for test in tests:
-- 
2.20.1