PathListsTest.Mod

MODULE PathListsTest;

IMPORT PathLists, T := Tests;

VAR ts : T.TestSet;

PROCEDURE TestEncodeDecode() : BOOLEAN;
    VAR test, ok : BOOLEAN; src : ARRAY 1024 OF CHAR;
        pl : PathLists.PathList;
BEGIN test := TRUE;
    src := "/bin:/usr/bin:/usr/local/bin:/home/jane.doe/bin";
    PathLists.Decode(src, pl, ok);
    T.ExpectedBool(TRUE, ok, "Expected to decode src", test);
    RETURN test
END TestEncodeDecode;

PROCEDURE TestLengthSetDelimiterFind() : BOOLEAN;
    VAR test : BOOLEAN; 
BEGIN test := TRUE;
    T.ExpectedBool(TRUE, FALSE, "TestLengthSetDelimiterFind() not implemented.", test);
    RETURN test
END TestLengthSetDelimiterFind;

PROCEDURE TestPrepend() : BOOLEAN;
    VAR test : BOOLEAN;
BEGIN test := TRUE;
    T.ExpectedBool(TRUE, FALSE, "TestPrepend() not implemented.", test);
    RETURN test
END TestPrepend;

PROCEDURE TestAppend() : BOOLEAN;
    VAR test : BOOLEAN;
BEGIN test := TRUE;
    T.ExpectedBool(TRUE, FALSE, "TestAppend() not implemented. ", test);
    RETURN test
END TestAppend;

PROCEDURE TestCut() : BOOLEAN;
    VAR test : BOOLEAN;
BEGIN test := TRUE; 
    T.ExpectedBool(TRUE, FALSE, "TestCut() not implemented. ", test);
    RETURN test
END TestCut;

PROCEDURE TestApply() : BOOLEAN;
    VAR test : BOOLEAN;
BEGIN test := TRUE;
    T.ExpectedBool(TRUE,FALSE, "TestApply() not implemented.", test);
    RETURN test
END TestApply;

BEGIN
    T.Init(ts, "Test PathLists");
    T.Add(ts, TestEncodeDecode);
    T.Add(ts, TestLengthSetDelimiterFind);
    T.Add(ts, TestPrepend);
    T.Add(ts, TestAppend);
    T.Add(ts, TestCut);
    T.Add(ts, TestApply);
    ASSERT(T.Run(ts));
END PathListsTest.