[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