skipfail.p
| 1 |
DISPLAY "Some checks for equality:" SKIP. |
|---|---|
| 2 |
|
| 3 |
RUN test0 (INPUT ?, INPUT ?). |
| 4 |
RUN test0 (INPUT "0x1", INPUT "0x1"). |
| 5 |
RUN test0 (INPUT "0x01", INPUT "0X01"). |
| 6 |
RUN test0 (INPUT "0X01", INPUT "001"). |
| 7 |
RUN test0 (INPUT "0x0A", INPUT "0x0A"). |
| 8 |
RUN test0 (INPUT "0x1a", INPUT "0x1a"). |
| 9 |
RUN test0 (INPUT "0x1234567def", INPUT "0x1234567890abcdef"). |
| 10 |
RUN test0 (INPUT "0xffffff0", INPUT "0xffffff0"). |
| 11 |
RUN test0 (INPUT "0x01ef", INPUT "0x01"). |
| 12 |
RUN test0 (INPUT "0xffffff", INPUT "0xffffff"). |
| 13 |
RUN test0 (INPUT "0x1000000", INPUT ?). |
| 14 |
RUN test0 (INPUT "0xffffff", INPUT "0xfffff"). |
| 15 |
|
| 16 |
PAUSE. |
| 17 |
/* end of test program */ |
| 18 |
|
| 19 |
PROCEDURE test0: |
| 20 |
DEFINE INPUT PARAMETER p1 AS CHARACTER. |
| 21 |
DEFINE INPUT PARAMETER p2 AS CHARACTER. |
| 22 |
|
| 23 |
DISPLAY p1 (IF p1 = p2 THEN "Equal" ELSE "Different") SKIP |
| 24 |
WITH NO-LABELS NO-BOX. |
| 25 |
END PROCEDURE. |
| 26 |
|