[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testSuperStress testExternalDatabaseAccess,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-serv21858/testSuperStress

Modified Files:
      Tag: fUnit_Suite-branch
	testExternalDatabaseAccess 
Log Message:
Fixed file path of test root for Mac OS X.

Index: testExternalDatabaseAccess
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/Attic/testExternalDatabaseAccess,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -d -r1.1.2.1 -r1.1.2.2
*** testExternalDatabaseAccess	22 Aug 2005 00:41:20 -0000	1.1.2.1
--- testExternalDatabaseAccess	18 Feb 2006 11:31:14 -0000	1.1.2.2
***************
*** 1,3 ****
  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.")}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testExternalDatabaseAccess
  
! on testExternalDatabaseAccess () {
	local (f = file.getSpecialFolderPath ("", "desktop folder", 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.")};

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