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