diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/buf.tl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/012/buf.tl b/tests/012/buf.tl index 128b3566..3dfdabc6 100644 --- a/tests/012/buf.tl +++ b/tests/012/buf.tl @@ -564,3 +564,14 @@ (mvtest (buf-binary-width (buf-ash #b'01' i)) (succ i) (width (uint-buf (buf-ash #b'01' i))) (succ i))) + +(mtest + (buf-xor-pattern #b'' 0) #b'' + (buf-xor-pattern #b'00000000000000' #xcafe13) #b'13cafe13cafe13' + (buf-xor-pattern #b'00000000000000' #x-cafe13) #b'cafe13cafe13ca' + (buf-xor-pattern #b'aa5500' 255) #b'55aaff' + (buf-xor-pattern #b'ff550000ff' #b'ff00') #b'ffaa00ffff' + (buf-xor-pattern #b'0000000000000000 00000000000000' #x1122334455667788) + #b'2233445566778811 22334455667788' + (buf-xor-pattern #b'0000000000000000 00000000000000' #x-1122334455667788) + #b'1122334455667788 11223344556677') |