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

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

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

Added Files:
	name setup teardown testToRun 
Log Message:
Merge changes from fUnit_Suite-branch.

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