Kestrel-3

Artifact bb2eca919d1ea5cc028aa5a5287f2b03cd55bb0f33226e8d7e2225ec424db80b:

• File dev/src/bcpl/assemrv/bud.b — part of check-in [af4b7000f7] at 2019-08-25 19:16:55 on branch trunk — Start on dynamic vector type. Major refactoring into smaller modules. Inconvenience from lack of shared libraries is showing. (user: kc5tja size: 1015)

/**************************************************************
 *
 * BCPL Unit-Test Driver -- AssemRV's Standard Unit Test Engine
 *
 **************************************************************/


LET start() = VALOF {
    LET result1, tl = 0, testlist()
    testid := -1

    FOR i = 1 TO tl!0 DO result1 := (tl!i)(result1)

    TEST result1
    THEN writef("*nFAILED; grep tag is *"AND %s*"*n*n", testid)
    ELSE writef("*nPASSED*n*n")

    // If needed, each test procedure sets the result2 global.
    RESULTIS result1
}

AND EQ(actual, expected, field) = VALOF {
    UNLESS actual = expected DO {
        writef("FAILED: Expected value #x%16x (%n); got value #x%16x (%n)*n", expected, expected, actual, actual)
	result2 := err_field + field
    }
    RESULTIS actual = expected
}

AND NEQ(actual, expected, field) = VALOF {
    IF actual = expected DO {
        writef("FAILED: Did NOT expect value #x%16x (%n) ", expected, expected)
	result2 := err_field + field
    }
    RESULTIS actual ~= expected
}