M tests/binary.min → tests/binary.min

@@ -10,6 +10,10 @@ 
   (2 3 bitor 3 ==) assert
 
   (2 3 bitxor 1 ==) assert
+
+  (2 3 shl 16 ==) assert
+
+  (16 3 shr 2 ==) assert
   
   report
   clear-stack