Updated tests for `lshift` subroutine.

diff --git a/stdlib_tests/3002_lshift.pvvs b/stdlib_tests/3002_lshift.pvvs
index 57beaad..c4650b2 100644 (file)
--- a/stdlib_tests/3002_lshift.pvvs
+++ b/stdlib_tests/3002_lshift.pvvs
@@ -22,6 +22,18 @@ SSSTTTTTTN      | PUSH +63
 NSTTSTTSTN      | JSR > 101101 (lshift)
 NSTTSSTN        | JSR > 1001 (print number from stack)
 
 NSTTSTTSTN      | JSR > 101101 (lshift)
 NSTTSSTN        | JSR > 1001 (print number from stack)
 

+@ Shift all ones until a single one remains.
+SSTTN           | PUSH -1
+SSSTTTTTTN      | PUSH +63
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Shift all ones to all zeros.
+SSTTN           | PUSH -1
+SSSTSSSSSSN     | PUSH +64
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+

 @ All done.
 NNN             | DIE
 
 @ All done.
 NNN             | DIE
 

diff --git a/stdlib_tests/vv_test.py b/stdlib_tests/vv_test.py
index 87f3ca4..aa5bda0 100755 (executable)
--- a/stdlib_tests/vv_test.py
+++ b/stdlib_tests/vv_test.py
@@ -31,7 +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'],
+        ['3002_lshift', '', '+1+2+4611686018427387904-9223372036854775808-9223372036854775808+0'],

         ['3003_rshift', '', '+1+1+1-4611686018427387903-576460752303423478-1-1'],
         ] 
 
         ['3003_rshift', '', '+1+1+1-4611686018427387903-576460752303423478-1-1'],
         ]