# HG changeset patch # User Claus Gittinger # Date 1574891235 -3600 # Node ID fee50b3ccfa8b6a33823fdfe1c277c2b92ffeebe # Parent 7d730212d1f0a810701fdc125270a776d591cbe6 #QUALITY by cg class: RegressionTests::IntegerTest changed: #testBitInterleaving diff -r 7d730212d1f0 -r fee50b3ccfa8 RegressionTests__IntegerTest.st --- 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" !