[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testSuperStress testOp,1.1.2.1,1.1.2.2,fUnit_Suite-branch

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

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

Modified Files:
      Tag: fUnit_Suite-branch
	testOp 
Log Message:
Fixed location of test outline, use temp storage instead of location in deprecated suites.testing table.

Index: testOp
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testOp,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -d -r1.1.2.1 -r1.1.2.2
*** testOp	22 Aug 2005 00:41:20 -0000	1.1.2.1
--- testOp	18 Feb 2006 09:41:21 -0000	1.1.2.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testOp
  
! on testOp () {
	if not Frontier.isRuntime () and defined (op.firstSummit) {
		local (i, j, dir);
		local (adr = @testing.testOutline);
		
		new (outlineType, adr);
		edit (adr);
		
		bundle { Çadd five lines
			for i = 1 to 5 {
				op.insert (i, down);
				op.setRefCon (i);
				dir = right;
				for j = 1 to 3 {
					op.insert (i + "." + j, dir);
					dir = down};
				op.go (left, 1)};
			op.firstsummit ();
			assertEqual(op.getLineText(), "", "op is broken");
			op.deleteLine ()};
		
		bundle { Çcheck resulting outline
			local (n = 0);
			op.firstsummit ();
			for i = 1 to 5 {
				assertEqual(op.getLineText(), i, "bad outline");
				n = n + op.getRefCon ();
				op.go (flatdown, 1);
				for j = 1 to 3 {
					assertEqual(op.getlinetext(), i + "." + j, "bad outline");
					n = n + op.getRefCon ();
					op.go (flatdown, 1)}};
			assert(!op.go(flatdown, 1), "too many heads in outline.");
			assertEqual(n, 15, "op.getRefCon or op.setRefCon is broken")};
		
		bundle { Çcheck op.find
			for i = 1 to 5 {
				for j = 1 to 3 {
					op.firstsummit ();
					assert(op.find(i + "." + j), "op.find is broken");
					assertEqual(op.getLineText(), i + "." + j, "op.find is broken")}}};
		
		bundle { Çcheck hoisting
			op.firstSummit ();
			for i = 1 to 5 {
				assertEqual(op.countSummits(), 5, "hoisting is broken.");
				op.hoist ();
				assertEqual(op.countSummits(), 3, "hoisting is broken.");
				op.deHoist ();
				op.go (down, 1)}};
		
		bundle { Çtry editMenu verbs
			editMenu.setFont ("Courier");
			editMenu.setFontSize (10);
			assertEqual(editMenu.getFont(), "Courier", "editMenu getFont or setFont is broken");
			assertEqual(editMenu.getFontSize(), 10, "editMenu getFontSize or setFontSize is broken")};
		
		close (adr);
		delete (adr)}}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testOp
  
! on testOp () {
	if not Frontier.isRuntime () and defined (op.firstSummit) {
		local (i, j, dir);
		local (adr = @fUnit.getTempTableAdr ()^.superStressOutline);
		
		new (outlineType, adr);
		edit (adr);
		
		bundle { Çadd five lines
			for i = 1 to 5 {
				op.insert (i, down);
				op.setRefCon (i);
				dir = right;
				for j = 1 to 3 {
					op.insert (i + "." + j, dir);
					dir = down};
				op.go (left, 1)};
			op.firstsummit ();
			assertEqual(op.getLineText(), "", "op is broken");
			op.deleteLine ()};
		
		bundle { Çcheck resulting outline
			local (n = 0);
			op.firstsummit ();
			for i = 1 to 5 {
				assertEqual(op.getLineText(), i, "bad outline");
				n = n + op.getRefCon ();
				op.go (flatdown, 1);
				for j = 1 to 3 {
					assertEqual(op.getlinetext(), i + "." + j, "bad outline");
					n = n + op.getRefCon ();
					op.go (flatdown, 1)}};
			assert(!op.go(flatdown, 1), "too many heads in outline.");
			assertEqual(n, 15, "op.getRefCon or op.setRefCon is broken")};
		
		bundle { Çcheck op.find
			for i = 1 to 5 {
				for j = 1 to 3 {
					op.firstsummit ();
					assert(op.find(i + "." + j), "op.find is broken");
					assertEqual(op.getLineText(), i + "." + j, "op.find is broken")}}};
		
		bundle { Çcheck hoisting
			op.firstSummit ();
			for i = 1 to 5 {
				assertEqual(op.countSummits(), 5, "hoisting is broken.");
				op.hoist ();
				assertEqual(op.countSummits(), 3, "hoisting is broken.");
				op.deHoist ();
				op.go (down, 1)}};
		
		bundle { Çtry editMenu verbs
			editMenu.setFont ("Courier");
			editMenu.setFontSize (10);
			assertEqual(editMenu.getFont(), "Courier", "editMenu getFont or setFont is broken");
			assertEqual(editMenu.getFontSize(), 10, "editMenu getFontSize or setFontSize is broken")};
		
		close (adr);
		delete (adr)}};

bundle { //debug code
	fUnit.runners.run (parentOf(this^), testCaseToRun: this)}
\ No newline at end of file