summaryrefslogtreecommitdiff
path: root/src/test/lib/tests/test_rotate.sail
diff options
context:
space:
mode:
Diffstat (limited to 'src/test/lib/tests/test_rotate.sail')
-rw-r--r--src/test/lib/tests/test_rotate.sail7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/test/lib/tests/test_rotate.sail b/src/test/lib/tests/test_rotate.sail
new file mode 100644
index 00000000..f0f8e45c
--- /dev/null
+++ b/src/test/lib/tests/test_rotate.sail
@@ -0,0 +1,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);
+}
+