Added test for `lshift` subroutine from stdlib.

diff --git a/stdlib_tests/3002_lshift.pvvs b/stdlib_tests/3002_lshift.pvvs
new file mode 100644 (file)
index 0000000..57beaad
--- /dev/null
+++ b/stdlib_tests/3002_lshift.pvvs
@@ -0,0 +1,29 @@
+@ Shift by zero.
+SSSTN           | PUSH +1
+SSSSN           | PUSH 0
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Shift by one.
+SSSTN           | PUSH +1
+SSSTN           | PUSH +1
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Shift by 62.
+SSSTN           | PUSH +1
+SSSTTTTTSN      | PUSH +62
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Shift by 63.
+SSSTN           | PUSH +1
+SSSTTTTTTN      | PUSH +63
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ All done.
+NNN             | DIE
+
+#include <logic.pvvs>
+#include <stdio.pvvs>

diff --git a/stdlib_tests/vv_test.py b/stdlib_tests/vv_test.py
index bc8d27c..353c176 100755 (executable)
--- a/stdlib_tests/vv_test.py
+++ b/stdlib_tests/vv_test.py
@@ -31,6 +31,7 @@ tests = [
         ['2006_memsrch', '', '+32'],
         ['2007_memrand', '', ''],
         ['3001_not', '', '-1+0-6148914691236517206+6148914691236517205'],
         ['2006_memsrch', '', '+32'],
         ['2007_memrand', '', ''],
         ['3001_not', '', '-1+0-6148914691236517206+6148914691236517205'],

+        ['3002_lshift', '', '+1+2+4611686018427387904-9223372036854775808'],

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