Add logical XOR test case

Author: boriel

tests/runtime/cases/xor.bas

@@ -0,0 +1,70 @@
+#include "lib/tst_framework.bas"
+
+INIT("Test logical XOR")
+
+DIM a as uByte = 5
+DIM b as UByte = 0
+
+if a xor b then
+  SHOW_OK: PRINT
+else SHOW_ERROR: PRINT
+END IF
+
+if a xor a then
+  SHOW_ERROR: PRINT
+ELSE SHOW_OK: PRINT
+END IF
+
+DIM a0 as Uinteger = 5
+DIM b0 as UInteger = 0
+
+if a0 xor b0 then
+  SHOW_OK: PRINT
+else SHOW_ERROR: PRINT
+END IF
+
+if a0 xor a0 then
+  SHOW_ERROR: PRINT
+ELSE SHOW_OK: PRINT
+END IF
+
+DIM a1 as ULONG = 5
+DIM b1 as ULONG = 0
+
+if a1 xor b1 then
+  SHOW_OK: PRINT
+else SHOW_ERROR: PRINT
+END IF
+
+if a1 xor a1 then
+  SHOW_ERROR: PRINT
+ELSE SHOW_OK: PRINT
+END IF
+
+DIM a2 as Fixed = 5
+DIM b2 as Fixed = 0
+
+if a2 xor b2 then
+  SHOW_OK: PRINT
+else SHOW_ERROR: PRINT
+END IF
+
+if a2 xor a2 then
+  SHOW_ERROR: PRINT
+ELSE SHOW_OK: PRINT
+END IF
+
+DIM a3 as Float = 5
+DIM b3 as Float = 0
+
+if a3 xor b3 then
+  SHOW_OK: PRINT
+else SHOW_ERROR: PRINT
+END IF
+
+if a3 xor a3 then
+  SHOW_ERROR: PRINT
+ELSE SHOW_OK: PRINT
+END IF
+
+FINISH