X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/8b4ce1c2f80eb7b5fc7d5a727d016ef2cb3c6123..fe5f81e63bd2e8a262166a13d6311f2d1054ec9f:/stdlib_tests/3002_lshift.pvvs

diff --git a/stdlib_tests/3002_lshift.pvvs b/stdlib_tests/3002_lshift.pvvs
index 57beaad..c4650b2 100644
--- 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)
 
+@ 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