[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/contextForTests abort,1.1,1.2, assert,1.1,1.2, assertEqual,1.1,1.2, assertErrors,1.1,1.2, assertNotEqual,1.1,1.2, getStackDump,1.1,1.2,

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/contextForTests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27969/contextForTests

Added Files:
	abort assert assertEqual assertErrors assertNotEqual 
	getStackDump 
Log Message:
Merge changes from fUnit_Suite-branch.

--- NEW FILE: assertNotEqual ---
FrontierVcsFile:1:scpt:suites.fUnit.contextForTests.assertNotEqual

on assertNotEqual (parm1, parm2, message = "") {
	local (restOfMessage = "\"" + string(parm1) + "\" is equal to \"" + string(parm2) + "\".");
	if message {
		assert(parm1 != parm2, message + " (" + restOfMessage + ")")}
	else {
		assert(parm1 != parm2, restOfMessage)}}
--- NEW FILE: getStackDump ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: assertErrors ---
FrontierVcsFile:1:scpt:suites.fUnit.contextForTests.assertErrors

on assertErrors (scriptAdr, errorFragment = nil, failMessage = nil) {
	try {
		scriptAdr^()}
	else {
		if errorFragment {
			if tryError contains errorFragment {
				return} // success
			else {
				getStackDump();
				local (errorMessage ="assertErrors' script gave the wrong error. assertError was looking for \"" + errorFragment + "\", but could not find it in the error message \"" + tryError + "\".");
				if failMessage {
					scriptError(failMessage + " (" + errorMessage + ")")}
				else {
					scriptError(errorMessage)}}}
		else { // errored and no more detail to check
			return}};
	// didn't script error at all
	getStackDump();
	if failMessage {
		scriptError(failMessage + " (Didn't error at all.)")}
	else {
		scriptError("assertErrors' script did not error.")}}
--- NEW FILE: assert ---
FrontierVcsFile:1:scpt:suites.fUnit.contextForTests.assert

on assert (result, message = nil) {
	if result {
		return}
	else {
		if message {
			scriptError(message)}
		else {
			scriptError("Assertion failed")}}}
--- NEW FILE: abort ---
FrontierVcsFile:1:scpt:suites.fUnit.contextForTests.abort

on abort (reason) {
	scriptError("[aborted]" + reason)}
--- NEW FILE: assertEqual ---
FrontierVcsFile:1:scpt:suites.fUnit.contextForTests.assertEqual

on assertEqual (parm1, parm2, message = "") {
	local (restOfMessage = "\"" + string(parm1) + "\" is not equal to \"" + string(parm2) + "\".");
	if message {
		assert(parm1 == parm2, message + " (" + restOfMessage + ")")}
	else {
		assert(parm1 == parm2, restOfMessage)}}