frontierkernel-commits — Mailing list for Subversion commit messages.

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants miscAppleScript,NONE,1.1.2.1 miscUserTalk,NONE,1.1.2.1 miscXCMD,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	miscAppleScript miscUserTalk miscXCMD 
Log Message:
fUnit Suite initial import

--- NEW FILE: miscXCMD ---
FrontierVcsFile:1:data:suites.fUnit.originalSuperStressRemnants.miscXCMD

WEZDTmAOAABYRkNOAIAAAAAAAABB+v/uTnFOcWAAAFROVv8ALwwgbgAIQ+7/AHA/IthRyP/8KG4ADEHu/wApSABQOXwABwBMLywASCBfTpAtbABwABAoX05eIF9QT07QIG8ABCAvAAhCZ6nuIF9QT07QTlb/AEKnPzwAGKiPSG7/AE66/9xCpy8uAAhIbv8ATrr/jiBuAAghXwBCTl4un051hG1haW4AAAA=
--- NEW FILE: miscAppleScript ---
FrontierVcsFile:1:scpt:suites.fUnit.originalSuperStressRemnants.miscAppleScript

on miscAppleScript of x from y between z -- AppleScript test for testing.scripts.OSA
	return |string.kBytes| (|testing.miscUserTalk| (first item of x, y, z))
end
--- NEW FILE: miscUserTalk ---
(This appears to be a binary file; contents omitted.)

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/engine initializeResultsTable,NONE,1.1.2.1 isTestSuite,NONE,1.1.2.1 runTestSuite,NONE,1.1.2.1 isTestCase,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	initializeResultsTable isTestSuite runTestSuite isTestCase 
Log Message:
fUnit Suite initial import

--- NEW FILE: runTestSuite ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: isTestCase ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: isTestSuite ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: initializeResultsTable ---
FrontierVcsFile:1:scpt:suites.fUnit.engine.initializeResultsTable

on initializeResultsTable (tblAdr) {
	new (tableType, tblAdr);
	new (tableType, @tblAdr^.passed);
	new (tableType, @tblAdr^.failed);
	new (tableType, @tblAdr^.aborted)}

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testExamples name,NONE,1.1.2.1 about,NONE,1.1.2.1 testSimple,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	name about testSimple 
Log Message:
fUnit Suite initial import

--- NEW FILE: testSimple ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: about ---
FrontierVcsFile:1:wptx:suites.fUnit.testExamples.about

This is an example test suite for fUnit, demonstrating the simplest possible test assertions.

It is expected that some of these tests will fail; they are supposed to.

These examples are documented in fUnit.documentation, under the heading "Testing By Example".
--- NEW FILE: name ---
FrontierVcsFile:1:TEXT:suites.fUnit.testExamples.name

Example Test Suite

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testSuperStress testLoops,NONE,1.1.2.1 testMisc,NONE,1.1.2.1 testCase,NONE,1.1.2.1 testTypeOf,NONE,1.1.2.1 testLists,NONE,1.1.2.1 testSys,NONE,1.1.2.1 testTryElse,NONE,1.1.2.1 testMath,NONE,1.1.2.1 name,NONE,1.1.2.1 testObjects,NONE,1.1.2.1 testLocalDatabaseAccess,NONE,1.1.2.1 testOp,NONE,1.1.2.1 testLocals,NONE,1.1.2.1 testThreads,NONE,1.1.2.1 testString,NONE,1.1.2.1 testExternalDatabaseAccess,NONE,1.1.2.1 testMacFileHandling,NONE,1.1.2.1 description,NONE,1.1.2.1 testClock,NONE,1.1.2.1 testNesting,NONE,1.1.2.1 testXML,NONE,1.1.2.1 testGarbageCollection,NONE,1.1.2.1 testSizeOf,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	testLoops testMisc testCase testTypeOf testLists testSys 
	testTryElse testMath name testObjects testLocalDatabaseAccess 
	testOp testLocals testThreads testString 
	testExternalDatabaseAccess testMacFileHandling description 
	testClock testNesting testXML testGarbageCollection testSizeOf 
Log Message:
fUnit Suite initial import

--- NEW FILE: testXML ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testLocals ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testLocals

on testLocals () {
	local (a = 1, b = 2, c = 3);
	bundle {
		local (a = 4, b = 5, c = 6);
		assertEqual(a+b+c, 15, "a+b+c should equal 15.  Instead it equals " + (a+b+c) + ".")};
	assertEqual(a+b+c, 6, "a+b+c should equal 6.  Instead it equals " + (a+b+c) + ".")}
--- NEW FILE: testMath ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testClock ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testNesting ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testNesting

on testNesting () {
	local (username = user.prefs.name);
	on xxx (name) {
		return (string.lower (name))};
	if (xxx (username) != string.lower (username)) {
		scriptError ("Local handlers feature is broken.")};
	bundle {
		on xxx (name) {
			return (string.upper (username))};
		if (xxx (username) != string.upper (username)) {
			scriptError ("Local handlers feature is broken.")}}}
--- NEW FILE: testSizeOf ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testSizeOf

on testSizeOf () {
	local (e = "sizeof is broken.");
	assertEqual(sizeof('A'), 1, e);
	assertEqual(sizeof('XXXX'), 4, e);
	assertEqual(sizeof(true), 1, e);
	assertEqual(sizeof(number(1)), 4, e);
	assertEqual(sizeof("123456789"), 9, e);
	assertEqual(sizeof(clock.now()), 4, e);
	assertEqual(sizeof(up), 1, e);
	assertEqual(sizeof(@system.misc), 11, e);
	assertEqual(sizeof(point.set(12, 24)), 4, e);
	assertEqual(sizeof(single(1)), 4, e);
	assertEqual(sizeof(double(2)), 10, e);
	if (sys.os () == osMacOS) {
		assertEqual(sizeof(fixed), 4, e);
		assertEqual(sizeof(rectangle.set(12, 24, 36, 48)), 8, e)}}
--- NEW FILE: testString ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testMacFileHandling ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testMisc ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testTryElse ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: description ---
FrontierVcsFile:1:wptx:suites.fUnit.testSuperStress.description

These test scripts are derived from the SuperStress test suites as referenced at http://kernel.scripting.com/discuss/msgReader$43?mode=day .

Because I am a Windows developer, I was not able to convert and test the Apple aspects of the stress test suite. If you are a mac developer, please help me out by doing so and removing this message. As I convert them I am deleting them, so anything left in fUnit.testing is yet to be converted.

The following changes to SuperStress, beyond the use of assert*, have been made:

* testClock does not copy the code that checked root's children and asserted their creating and modification time were between 1990 and 2000. It is replaced by code that creates an object in the scratchpad, checks that the creation time is within a second of now, waits a second, modifies the value, and checks that the modification time has changed. (It keeps the check on Frontier.isRuntime because I don't know what that is.)
* testMacOSXFileHandling has been converted, but since I can't run it the original has been left behind in case I made an error. I may have screwed up the initial test for OS, too. A couple of tests that look like they should run have been uncommented. "time consuming stuff every 4 calls or so" has been promoted to every call for obvious reasons. There is a test that looks broken in "bundle // test 5.0.1 verbs", checking for osMacOS to see if the line feed is \n; seems incomplete.
* testLists has a Mac-specific chunk, though I don't see what is Mac specific about it and it passes on my Frontier so I've added an "|| 1" to the if clause. If no one tells me otherwise a later release will remove the if so the code always runs.
* testMisc has a mac-only portion I didn't translate.
--- NEW FILE: testOp ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testObjects ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testSys ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testLocalDatabaseAccess ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testLists ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testExternalDatabaseAccess ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testExternalDatabaseAccess

on testExternalDatabaseAccess () {
	local (f = file.getSpecialFolderPath ("", "desktop", false) + "testing.root");
	local (x, n, s = "scratchpad");
	if not file.exists (f) {
		db.new (f)};
	db.open (f, false);
	if not db.defined (f, s) {
		db.newTable (f, s)};
	n = db.countItems (f, s);
	if n == 0 {
		db.setValue (f, s + ".test", user.prefs)};
	s = s + '.' + db.getNthItem (f, s, 1);
	x = db.getValue (f, s);
	db.setValue (f, "scratchpad.bTable", x);
	db.save (f);
	db.close (f);
	db.open (f, true);
	x = db.getValue (f, "scratchpad.bTable");
	db.close (f);
	file.delete (f);
	assertEqual(string(x), string(user.prefs), "The db verbs are broken.")}
--- NEW FILE: testLoops ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testCase ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testCase

on testCase () {
	local (i, ct);
	ct = 0;
	for i = 1 to 8 {
		case i {
			1 {
				ct = ct + 1};
			2 {
				ct = ct + 10};
			3;
			7 {
				ct = ct + 100};
			4;
			8 {
				ct = ct + 1000};
			5 {
				ct = ct + 10000}}
		else {
			ct = ct + 100000}};
	assertEqual(ct, 112211)}
--- NEW FILE: testThreads ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: name ---
FrontierVcsFile:1:TEXT:suites.fUnit.testSuperStress.name

SuperStress
--- NEW FILE: testTypeOf ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testTypeOf

on testTypeOf () {
	on testIt (val, type) {
		assertEqual(typeOf(val), type, "typeOf (" + string (val) + ") should have been '" + type + "', but was '" + typeOf (val) + "\'.")};
	testIt ('A', charType);
	testIt ('XXXX', string4Type);
	testIt (true, booleanType);
	testIt (number (1), longType);
	testIt ("123456789", stringType);
	testIt (clock.now (), dateType);
	testIt (up, directionType);
	testIt (@system.misc, addressType);
	testIt (point.set (12, 24), pointType);
	testIt (rectangle.set (12, 24, 36, 48), rectType);
	testIt (single (1), singleType);
	testIt (double (2), doubleType);
	if (sys.os() == osMacOS) {
		testIt (objectModel.high, enumeratorType);
		testIt (fixed (3), fixedType)};
	testIt ({}, listType);
	testIt (record ({}), recordType);
	assertEqual(typeOf(system), tableType, "typeOf is broken")}
--- NEW FILE: testGarbageCollection ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testGarbageCollection

on testGarbageCollection () {
	// a loop that really stresses garbage collection
	local (i, s, t);
	for i = 1 to 10 {
		s = "a" + "a" + "a" + "a" + "a" + "a" + "a" + "a" + "a" + "a" + "a" + "a" + "a" + "a";
		t = "z" + "z" + "z" + "z" + "z" + "z" + "z" + "z" + "z" + "z" + "z" + "z" + "z" + "z";
		assertEqual(sizeof(s), sizeof(t), "Something is wrong with the tmpstack.")}}

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testSuiteSkeleton description,NONE,1.1.2.1 name,NONE,1.1.2.1 setup,NONE,1.1.2.1 teardown,NONE,1.1.2.1 testScript,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	description name setup teardown testScript 
Log Message:
fUnit Suite initial import

--- NEW FILE: teardown ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuiteSkeleton.teardown

on teardown (setupParam) {
	return}
--- NEW FILE: setup ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuiteSkeleton.setup

on setup () {
	return}
--- NEW FILE: description ---
FrontierVcsFile:1:TEXT:suites.fUnit.testSuiteSkeleton.description

The description of the suite.
--- NEW FILE: name ---
FrontierVcsFile:1:TEXT:suites.fUnit.testSuiteSkeleton.name

The name of the suite.
--- NEW FILE: testScript ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuiteSkeleton.testScript

on testScript (setupParam = nil) {
	assert(1)}

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit2/testSetupFailure setup,NONE,1.1.2.1 testDummy,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	setup testDummy 
Log Message:
fUnit Suite initial import

--- NEW FILE: testDummy ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit2.testSetupFailure.testDummy

on testDummy (setupParm = nil) {
	1 == 1} // dummy test so setup runs
--- NEW FILE: setup ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit2.testSetupFailure.setup

on setup () {
	scriptError ("Setup failed.")}

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit2/testTearDownFailure testDummy,NONE,1.1.2.1 teardown,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	testDummy teardown 
Log Message:
fUnit Suite initial import

--- NEW FILE: teardown ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit2.testTearDownFailure.teardown

on teardown (setupParm = nil) {
	scriptError("teardown failed")}
--- NEW FILE: testDummy ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit2.testTearDownFailure.testDummy

on testDummy (setupParm = nil) {
	1 == 1} // dummy test to make sure we execute the teardown

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit/testSetup name,NONE,1.1.2.1 setup,NONE,1.1.2.1 testSetup,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	name setup testSetup 
Log Message:
fUnit Suite initial import

--- NEW FILE: testSetup ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit.testSetup.testSetup

on testSetup (setupParm) {
	assertEqual(setupParm, 33, "setup is not working in fUnit.")}
--- NEW FILE: setup ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit.testSetup.setup

on setup () {
	return 33}
--- NEW FILE: name ---
FrontierVcsFile:1:TEXT:suites.fUnit.testfUnit.testSetup.name

Test Setup

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants/scripts iac,NONE,1.1.2.1 OSA,NONE,1.1.2.1 rez,NONE,1.1.2.1 file,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	iac OSA rez file 
Log Message:
fUnit Suite initial import

--- NEW FILE: rez ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: OSA ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: iac ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: file ---
(This appears to be a binary file; contents omitted.)

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit testfUnitFailures,NONE,1.1.2.1 name,NONE,1.1.2.1 description,NONE,1.1.2.1 testAssertNotEqual,NONE,1.1.2.1 testAbort,NONE,1.1.2.1 testAssert,NONE,1.1.2.1 testAssertEqual,NONE,1.1.2.1 testAssertErrors,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	testfUnitFailures name description testAssertNotEqual 
	testAbort testAssert testAssertEqual testAssertErrors 
Log Message:
fUnit Suite initial import

--- NEW FILE: testfUnitFailures ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: testAssertEqual ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit.testAssertEqual

on testAssertEqual () {
	assertEqual(1, 1);
	on failWOMessage() {
		assertEqual(1, 2)};
	assertErrors(@failWOMessage, "1");
	assertErrors(@failWOMessage, "2");
	on failWMessage() {
		assertEqual(1, 2, "My message")};
	assertErrors(@failWMessage, "1");
	assertErrors(@failWMessage, "2");
	assertErrors(@failWMessage, "My message")}
--- NEW FILE: testAssertErrors ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit.testAssertErrors

on testAssertErrors () {
	on error1() {
		scriptError("My error message.")};
	assertErrors(@error1);
	assertErrors(@error1, "error message");
	on error2() {
		// we have to get crazy because we're trying to use the framework to test itself
		assertErrors(@error1, "not in message")};
	assertErrors(@error2, "not in message");
	assertErrors(@error2, "error message");
	on error3() {
		assertErrors(@error1, "not in message", "my custom message")};
	assertErrors(@error3, "not in message");
	assertErrors(@error3, "my custom message");
	on noError() {
		return};
	on error4() {
		assertErrors(@noError)};
	assertErrors(@error4, "did not error");
	on error5() {
		assertErrors(@noError, failMessage: "fail message")};
	assertErrors(@error5, "fail message")};
callScript(@fUnit.testfUnit.testAssertErrors, {}, @fUnit.contextForTests)
--- NEW FILE: description ---
FrontierVcsFile:1:TEXT:suites.fUnit.testfUnit.description

This test suite tests the functionality of fUnit itself.
--- NEW FILE: testAssert ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit.testAssert

on testAssert () {
	assert(1 == 1);
	on errorWithoutMessage() {
		assert(false)};
	assertErrors(@errorWithoutMessage);
	on errorWithMessage() {
		assert(false, "This is my error")};
	assertErrors(@errorWithMessage, "is my error")}
--- NEW FILE: testAssertNotEqual ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit.testAssertNotEqual

on testAssertNotEqual () {
	assertNotEqual(1, 2);
	on failWOMessage() {
		assertNotEqual(1, 1)};
	assertErrors(@failWOMessage, "1");
	on failWMessage() {
		assertNotEqual(1, 1, "My message")};
	assertErrors(@failWMessage, "1");
	assertErrors(@failWMessage, "My message")}
--- NEW FILE: testAbort ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit.testAbort

on testAbort () {
	abort("This test should show as aborted.")}
--- NEW FILE: name ---
FrontierVcsFile:1:TEXT:suites.fUnit.testfUnit.name

fUnit Test Suite

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit/testTeardown setup,NONE,1.1.2.1 testToRun,NONE,1.1.2.1 name,NONE,1.1.2.1 teardown,NONE,1.1.2.1

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	setup testToRun name teardown 
Log Message:
fUnit Suite initial import

--- NEW FILE: teardown ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit.testTeardown.teardown

on teardown (setupParm) {
	if setupParm^.value != 2 {
		scriptError ("teardown isn't working, or is not receiving parameters correctly.")}}
--- NEW FILE: setup ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit.testTeardown.setup

on setup () {
	local (tblAdr = fUnit.getTempTableAdr());
	tblAdr^.value = 1;
	return tblAdr}
--- NEW FILE: name ---
FrontierVcsFile:1:TEXT:suites.fUnit.testfUnit.testTeardown.name

Test tear down
--- NEW FILE: testToRun ---
FrontierVcsFile:1:scpt:suites.fUnit.testfUnit.testTeardown.testToRun

on testToRun (setupParm) {
	setupParm^.value = setupParm^.value + 1;
	assertEqual(setupParm^.value, 2, "setup can't pass table addresses correctly")}

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

[creedon <icr...@us...>]

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

Added Files:
      Tag: fUnit_Suite-branch
	assertNotEqual getStackDump assert abort assertErrors 
	assertEqual 
Log Message:
fUnit Suite initial import

--- 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)}}

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testSuperStress - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testSuiteSkeleton - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuiteSkeleton added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testGlobalSuite - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testGlobalSuite added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit2/testTearDownFailure - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testfUnit2/testTearDownFailure added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit2/testSetupFailure - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testfUnit2/testSetupFailure added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit2 - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testfUnit2 added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit/testTeardown - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testfUnit/testTeardown added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit/testSetup - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testfUnit/testSetup added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testfUnit - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testfUnit added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testExamples - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testExamples added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/runners - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/runners added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants/scripts - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants/scripts added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'

[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants/data - New directory

[creedon <icr...@us...>]

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

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/originalSuperStressRemnants/data added to the repository
--> Using per-directory sticky tag `fUnit_Suite-branch'