We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8dc71f1 commit f08a6dfCopy full SHA for f08a6df
3 files changed
tests/runtime/cases/lti8.bas
@@ -0,0 +1,34 @@
1
+#include "lib/tst_framework.bas"
2
+
3
+DIM i AS Byte = -128
4
+DIM j AS Byte
5
+DIM ii, jj AS Integer
6
+DIM Counter as ULong = 0
7
8
+INIT("Testing (byte) < (byte) [LTi8]")
9
10
+DO
11
+ j = -128
12
+ ii = i
13
14
+ DO
15
+ jj = j
16
+ If (i < j) XOR (ii < jj) THEN
17
+ PRINT i; "<"; j; " = "; (i < j); " ";
18
+ REPORT_FAIL
19
+ End If
20
21
+ Counter = Counter + 1
22
+ j = j + 1
23
+ LOOP UNTIL j = -128
24
25
+ i = i + 1
26
+LOOP UNTIL i = -128
27
28
+IF Counter <> 65536 THEN
29
+ PRINT "Iterations: "; Counter; " ";
30
31
+ELSE
32
+ REPORT_OK
33
+END IF
34
tests/runtime/expected/lti8.tzx.scr
6.75 KB
tests/runtime/lti8.bas
0 commit comments