Skip to content

Commit f08a6df

Browse files
committed
Added test LTI8
1 parent 8dc71f1 commit f08a6df

3 files changed

Lines changed: 34 additions & 33 deletions

File tree

tests/runtime/cases/lti8.bas

Lines changed: 34 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -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+
REPORT_FAIL
31+
ELSE
32+
REPORT_OK
33+
END IF
34+
6.75 KB
Binary file not shown.

tests/runtime/lti8.bas

Lines changed: 0 additions & 33 deletions
This file was deleted.

0 commit comments

Comments
 (0)