O2Testing

Module for unit testing.

Reference to tests folder for usage.

Types

TEST* =
    RECORD
        title : ARRAY 64 OF CHAR;
        current : ARRAY 64 OF CHAR;
        tests : LONGINT;
        failed : LONGINT;
        local : LONGINT;
        localfailed : LONGINT
    END;

Procedures

Initialize

PROCEDURE Initialize* (VAR test: TEST; title: ARRAY OF CHAR);

Begin

Begin local module tests

PROCEDURE Begin* (VAR test: TEST; name: ARRAY OF CHAR);

End

End local module tests and print out statistics

PROCEDURE End* (VAR test: TEST);

Finalize

Finalize tests and print out total statistics

PROCEDURE Finalize* (VAR test: TEST);

Assert

Assert procedure.

PROCEDURE Assert* (VAR test: TEST; b: BOOLEAN; file : ARRAY OF CHAR; id: INTEGER) ;