SF.net SVN: frontierkernel: [1188] ODBs/trunk/frontierRoot/suites/fUnit/testBugs/testOpFindNext129CharLimit.fvc

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

Revision: 1188
Author:   andreradke
Date:     2006-04-04 11:33:26 -0700 (Tue, 04 Apr 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1188&view=rev

Log Message:
-----------
Added fUnit test case for bug in op.findNext where if failed to locate search patterns longer than 129 chars.[bug #1463056]

Added Paths:
-----------
    ODBs/trunk/frontierRoot/suites/fUnit/testBugs/testOpFindNext129CharLimit.fvc
Added: ODBs/trunk/frontierRoot/suites/fUnit/testBugs/testOpFindNext129CharLimit.fvc
===================================================================
--- ODBs/trunk/frontierRoot/suites/fUnit/testBugs/testOpFindNext129CharLimit.fvc	                        (rev 0)
+++ ODBs/trunk/frontierRoot/suites/fUnit/testBugs/testOpFindNext129CharLimit.fvc	2006-04-04 18:33:26 UTC (rev 1188)
@@ -0,0 +1,30 @@
+FrontierVcsFile:2:scpt:suites.fUnit.testBugs.testOpFindNext129CharLimit
+
+on testOpFindNext129CharLimit () {
+	«Bug Report
+		«op.findNext fails if the search pattern is longer than 129 chars
+		«More: http://sourceforge.net/tracker/index.php?func=detail&aid=1463056&group_id=120666&atid=687798
+	
+	on check (numChars) {
+		local (i, flfound, s = "", adroutline = @temp.fUnitTestOutline);
+		for i = 1 to 10 {
+			s = s + string.getRandomPassword (numChars + random (-10, 10)) + cr};
+		local (pat = string.getRandomPassword (numChars));
+		s = s + pat + cr;
+		s = s + string.getRandomPassword (random (0,10)) + pat + string.getRandomPassword (random (0,10)) + cr;
+		for i = 1 to 10 {
+			s = s + string.getRandomPassword (numChars + random (-10, 10)) + cr};
+		op.newOutlineObject (s, adroutline);
+		target.set (adroutline);
+		op.firstSummit ();
+		flfound = op.findNext (pat, false);
+		target.clear ();
+		assert (flfound)};
+	
+	check (128);
+	check (129);
+	check (130);
+	check (random (1, 255))};
+
+bundle { //debug code
+	fUnit.runners.run (parentOf(this^), testCaseToRun: this)}
\ No newline at end of file


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.