RegressionTests__IntegerTest.st
changeset 2428 fee50b3ccfa8
parent 2397 4ad7fc96b77d
child 2455 594c867063b7
--- a/RegressionTests__IntegerTest.st	Wed Nov 27 11:16:27 2019 +0100
+++ b/RegressionTests__IntegerTest.st	Wed Nov 27 22:47:15 2019 +0100
@@ -4232,12 +4232,16 @@
                                                 "/      1 0 1 0                
      self assert:(2r0011 bitInterleaveWith:2r1010) == 2r10001101.
      self assert:(2r10001101 bitDeinterleave:2) = #(2r0011 2r1010).
+     self assert:(2r00110011 bitInterleaveWith:2r10101010) == 2r1000110110001101.
+     self assert:(2r0011001100110011 bitInterleaveWith:2r1010101010101010) = 2r10001101100011011000110110001101.
 
                                                 "/                   0  0  1  1                
                                                 "/                  1  0  1  0                
                                                 "/                 1  1  0  1                
      self assert:(2r0011 bitInterleaveWith:2r1010 and:2r1101) == 2r110100011101.
      self assert:(2r110100011101 bitDeinterleave:3) = #(2r0011 2r1010 2r1101).
+     self assert:(2r00110011 bitInterleaveWith:2r10101010 and:2r11011101) == 2r110100011101110100011101.
+     self assert:(2r0011001100110011 bitInterleaveWith:2r1010101010101010 and:2r1101110111011101) = 2r110100011101110100011101110100011101110100011101.
 
     "Created: / 04-06-2019 / 01:16:09 / Claus Gittinger"
 !