blob: f0f8e45c27324213da441ae58f0e516c0b74b8a2 (
plain)
1
2
3
4
5
6
7
|
function unit test () = {
test_assert ("rotate0", (0x99 <<< 0) == 0x99); (* XXX fails on interp *)
test_assert ("rotate3", (0x99 <<< 3) == 0xcc);
test_assert ("rotate7", (0x99 <<< 7) == 0xcc);
test_assert ("rotate8", (0x99 <<< 8) == 0x99);
}
|
