mescc: Support rshift, have guile-mini-mes pass math test.
[mes.git] / scaffold / t.c
index 0a620d6761ae3ecd1d42097d7c44a4f2f42c3dac..459c61782b99dfe7c536d02eb5e20e3e62024293 100644 (file)
@@ -219,9 +219,22 @@ math_test ()
   puts ("t: 3 << 4\n");
   if (3 << 4 != 48) return 3 << 4;
 
+  puts ("t: 48 >> 3\n");
+  if (48 >> 4 != 3) return 48 >> 4;
+
+  puts ("t: 10 >> 1\n");
+  if (10 >> 1 != 5) return 10 >> 1;
+
   puts ("t: 1 | 4\n");
   if ((1 | 4) != 5) return 1 | 4;
 
+  i = -3;
+  puts ("t: -i\n");
+  if (-i != 3) return -i;
+
+  puts ("t: -1 + 2\n");
+  if (-1 + 2 != 1) return -1 + 2;
+
   return read_test ();
 }
 
@@ -566,6 +579,9 @@ test (char *p)
   puts ("t: 1 << 3\n");
   if (1 << 3 != 8) return 1;
 
+  puts ("t: 8 >> 3\n");
+  if (8 >> 3 != 1) return 1;
+
   puts ("t: 8 / 4\n");
   if (8 / 4 != 2) return 1;