[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testSuperStress testString,1.2,1.3,

[creecode <icr...@us...>]

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

Modified Files:
	testString 
Log Message:
added string.xtext(De/En)code

Index: testString
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/testString,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** testString	18 Feb 2006 22:51:11 -0000	1.2
--- testString	13 Mar 2006 08:16:13 -0000	1.3
***************
*** 1,3 ****
! FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.testString
  
! on testString () {
	Çthe following verbs are not tested by this script:
		Çstring.memAvailString ()
		Çstring.timeString ()
		Çstring.dateString ()
	local (s, i);
	bundle { Çstring.isAlpha, etc
		assert(string.isAlpha('a'), "string.isAlpha is broken.");
		assert(string.isAlpha('Z'), "string.isAlpha is broken.");
		assert(!string.isAlpha(' '), "string.isAlpha is broken.");
		assert(!string.isAlpha('0'), "string.isAlpha is broken.");
		assert(!string.isAlpha(','), "string.isAlpha is broken.");
		assert(!string.isNumeric('A'), "string.isNumeric is broken.");
		assert(!string.isNumeric('Z'), "string.isNumeric is broken.");
		assert(!string.isNumeric(' '), "string.isNumeric is broken.");
		assert(string.isNumeric('0'), "string.isNumeric is broken.");
		assert(!string.isNumeric(','), "string.isNumeric is broken.");
		assert(!string.isPunctuation('a'), "string.isPunctuation is broken.");
		assert(!string.isPunctuation('Z'), "string.isPunctuation is broken.");
		assert(!string.isPunctuation(' '), "string.isPunctuation is broken.");
		assert(!string.isPunctuation('0'), "string.isPunctuation is broken.");
		assert(string.isPunctuation(','), "string.isPunctuation is broken.")};
	bundle { Çstring.addCommas
		s = string.addCommas (10249);
		assertEqual(s, "10,249", "string.addCommas is broken.")};
	bundle { Çstring.commentDelete
		assertEqual(string.commentDelete("helloÇthis is a comment"), "hello", "string.commentDelete is broken");
		assertEqual(string.commentDelete("hello//this is a comment"), "hello", "string.commentDelete is broken")};
	bundle { Çstring.filledString
		s = string.filledString ('-', 25);
		assertEqual(sizeof(s), 25, "string.filledString is broken");
		assertEqual(s, "-------------------------", "string.filledString is broken");
		for i = 1 to 25 {
			assertEqual(string.nthChar(s, i), '-', "string.nthChar is broken.")}};
	bundle { Çstring.firstSentence
		assertEqual(string.firstSentence ("Oh the. Buzzing of the. Bees."), "Oh the.", "string.firstSentence is broken")};
	bundle { Çthe word verbs
		ch = string.getWordChar ();
		assertEqual(ch, ' ', "string.getWordChar didn't return a blank.");
		string.setWordChar ('#');
		assertEqual(string.getWordChar(), '#', "the string word verbs are broken");
		assertEqual(string.firstWord("oh#the#buzzing"), "oh", "string.firstWord is broken.");
		assertEqual(string.lastWord("oh#the#buzzing"), "buzzing", "string.lastWord is broken.");
		string.setWordChar (ch); Çrestore the old char
		assertEqual(string.countWords("one two three four five six seven eight"), 8, "string.countWords is broken");
		s = "1 2 3 4 5 6 7 8 9";
		loop (i = 1; i <= string.countWords (s); i++) {
			assertEqual(string.nthWord(s, i), i, "string.nthWord is broken.")}};
	bundle { Çthe field verbs
		assertEqual(string.countFields ("oh#the##buzzing", '#'), 4, "string.countFields is broken.");
		s = "1,,3,,5,,7,,9";
		for i = 1 to string.countFields (s, ',') {
			if i % 2 == 0 {
				assertEqual(string.nthField (s, ',', i), "", "string.nthField is broken.")}
			else {
				assertEqual(string.nthField (s, ',', i), i, "string.nthField is broken.")}}};
	bundle { Çstring.upper, lower, length, nthChar
		s = string.upper ("OhtheBuzzingoftheBees");
		assertEqual(string.length (s), sizeof (s), "string.length is broken");
		for i = 1 to string.length (s) {
			ch = string.nthChar (s, i);
			assert((ch >= 'A') and (ch <= 'Z'), "string.upper is broken.")};
		s = string.lower ("OhtheBuzzingoftheBees");
		for i = 1 to sizeof (s) {
			ch = string.nthChar (s, i);
			assert((ch >= 'a') and (ch <= 'z'), "string.lower is broken.")}};
	bundle { Çstring.popLeading, popTrailing
		s = "ÖÖÖÖxxx"; Çuse extended ascii range
		assertEqual(string.popLeading (s, 'Ö'), "xxx", "string.popLeading is broken.");
		assertEqual(string.popTrailing (s, 'x'), "ÖÖÖÖ", "string.popTrailing is broken.")};
	bundle { Çstring.hex
		assertEqual(string.hex (16), "0x0010", "string.hex is broken.");
		assertEqual(string.hex (10), "0x000A", "string.hex is broken.");
		assertEqual(string.hex (infinity), "0x7FFFFFFF", "string.hex is broken.");
		assertEqual(string.hex (-infinity), "0x80000001", "string.hex is broken.");
		assertEqual(string.hex (33), "0x0021", "string.hex is broken.");
		assertEqual(string.hex (1000000), "0x000F4240", "string.hex is broken.")};
	bundle { Çstring.kBytes
		assertEqual(string.kBytes (98219), "96K", "string.kBytes is broken.")};
	bundle { Çstring.patternMatch
		assertEqual(string.patternMatch ("a", "abcdefg"), 1, "string.patternMatch is broken.");
		assertEqual(string.patternMatch ("d", "abcdefg"), 4, "string.patternMatch is broken.");
		assertEqual(string.patternMatch ("x", "abcdefg"), 0, "string.patternMatch is broken.");
		assertEqual(string.patternMatch ("def", "abcdefg"), 4, "string.patternMatch is broken.")};
	bundle { Çstring.hasSuffix
		assert(string.hasSuffix (".text", "biography.text"), "string.hasSuffix is broken.");
		assert(not string.hasSuffix (".data", "biography.text"), "string.hasSuffix is broken.")};
	bundle { ÇbeginsWith, contains, endsWith
		s = "fun with strings";
		assert((s beginsWith "fun") and not (s beginsWith "with"), "beginsWith is broken");
		assert((s contains "fun") and (s contains "with"), "contains is broken");
		assert(not (s endsWith "with") and (s endsWith "strings"), "endsWith is broken")};
	bundle { Çstring.mid, insert, delete, replace, replaceAll
		s = "more fun with strings";
		assertEqual(string.mid (s, 10, infinity), "with strings", "string.mid is broken");
		assertEqual(string.delete (s, 1, 9), "with strings", "string.delete is broken");
		assertEqual(string.delete ("oh the buzzing", 3, 5), "ohbuzzing", "string.delete is broken");
		assertEqual(string.insert ("test ", s,15), "more fun with test strings", "string.insert is broken");
		assertEqual(string.replace (s, "fun", "???"), "more ??? with strings", "string.replace is broken");
		assertEqual(string.replaceAll (s, "i", ""), "more fun wth strngs", "string.replaceAll is broken");
		assertEqual(string.replaceAll ("aaa", "a", "bb"), "bbbbbb", "string.replaceAll is broken")};
	bundle { Çstrings as arrays
		s = "strings are arrays or characters";
		assertEqual(s [string.length (s)], 's', "string array indexing is broken");
		delete (@s [1]);
		assert(not (s beginsWith 's'), "delete of a string item is broken");
		s [2] = 'o';
		assertEqual(string.firstWord (s), "toings", "string array assignment is broken")};
	bundle { Çescape sequences
		assertEqual(tab + cr, "\t\r", "escape sequences are broken");
		assertEqual(number ('\x1B'), 27, "escape sequences are broken")}};
callScript(@fUnit.testSuperStress.testString, {}, @fUnit.contextForTests)
\ No newline at end of file
--- 1,150 ----
! FrontierVcsFile:2:scpt:suites.fUnit.testSuperStress.testString
  
! on testString () {
! 	«Changes
! 		«3/11/06; 9:05:12 PM by TAC
! 			«added string.xtext(De/En)code
! 	
! 	«the following verbs are not tested by this script:
! 		«string.memAvailString ()
! 		«string.timeString ()
! 		«string.dateString ()
! 	
! 	local (s, i);
! 	
! 	bundle { // string.isAlpha, etc
! 		assert(string.isAlpha('a'), "string.isAlpha is broken.");
! 		assert(string.isAlpha('Z'), "string.isAlpha is broken.");
! 		assert(!string.isAlpha(' '), "string.isAlpha is broken.");
! 		assert(!string.isAlpha('0'), "string.isAlpha is broken.");
! 		assert(!string.isAlpha(','), "string.isAlpha is broken.");
! 		assert(!string.isNumeric('A'), "string.isNumeric is broken.");
! 		assert(!string.isNumeric('Z'), "string.isNumeric is broken.");
! 		assert(!string.isNumeric(' '), "string.isNumeric is broken.");
! 		assert(string.isNumeric('0'), "string.isNumeric is broken.");
! 		assert(!string.isNumeric(','), "string.isNumeric is broken.");
! 		assert(!string.isPunctuation('a'), "string.isPunctuation is broken.");
! 		assert(!string.isPunctuation('Z'), "string.isPunctuation is broken.");
! 		assert(!string.isPunctuation(' '), "string.isPunctuation is broken.");
! 		assert(!string.isPunctuation('0'), "string.isPunctuation is broken.");
! 		assert(string.isPunctuation(','), "string.isPunctuation is broken.")};
! 	
! 	bundle { // string.addCommas
! 		s = string.addCommas (10249);
! 		assertEqual(s, "10,249", "string.addCommas is broken.")};
! 	
! 	bundle { // string.commentDelete
! 		assertEqual(string.commentDelete("hello«this is a comment"), "hello", "string.commentDelete is broken");
! 		assertEqual(string.commentDelete("hello//this is a comment"), "hello", "string.commentDelete is broken")};
! 	
! 	bundle { // string.filledString
! 		s = string.filledString ('-', 25);
! 		assertEqual(sizeof(s), 25, "string.filledString is broken");
! 		assertEqual(s, "-------------------------", "string.filledString is broken");
! 		for i = 1 to 25 {
! 			assertEqual(string.nthChar(s, i), '-', "string.nthChar is broken.")}};
! 	
! 	bundle { // string.firstSentence
! 		assertEqual(string.firstSentence ("Oh the. Buzzing of the. Bees."), "Oh the.", "string.firstSentence is broken")};
! 	
! 	bundle { // the word verbs
! 		ch = string.getWordChar ();
! 		assertEqual(ch, ' ', "string.getWordChar didn't return a blank.");
! 		string.setWordChar ('#');
! 		assertEqual(string.getWordChar(), '#', "the string word verbs are broken");
! 		assertEqual(string.firstWord("oh#the#buzzing"), "oh", "string.firstWord is broken.");
! 		assertEqual(string.lastWord("oh#the#buzzing"), "buzzing", "string.lastWord is broken.");
! 		string.setWordChar (ch); // restore the old char
! 		assertEqual(string.countWords("one two three four five six seven eight"), 8, "string.countWords is broken");
! 		s = "1 2 3 4 5 6 7 8 9";
! 		loop (i = 1; i <= string.countWords (s); i++) {
! 			assertEqual(string.nthWord(s, i), i, "string.nthWord is broken.")}};
! 	
! 	bundle { // the field verbs
! 		assertEqual(string.countFields ("oh#the##buzzing", '#'), 4, "string.countFields is broken.");
! 		s = "1,,3,,5,,7,,9";
! 		for i = 1 to string.countFields (s, ',') {
! 			if i % 2 == 0 {
! 				assertEqual(string.nthField (s, ',', i), "", "string.nthField is broken.")}
! 			else {
! 				assertEqual(string.nthField (s, ',', i), i, "string.nthField is broken.")}}};
! 	
! 	bundle { // string.upper, lower, length, nthChar
! 		s = string.upper ("OhtheBuzzingoftheBees");
! 		assertEqual(string.length (s), sizeof (s), "string.length is broken");
! 		for i = 1 to string.length (s) {
! 			ch = string.nthChar (s, i);
! 			assert((ch >= 'A') and (ch <= 'Z'), "string.upper is broken.")};
! 		s = string.lower ("OhtheBuzzingoftheBees");
! 		for i = 1 to sizeof (s) {
! 			ch = string.nthChar (s, i);
! 			assert((ch >= 'a') and (ch <= 'z'), "string.lower is broken.")}};
! 	
! 	bundle { // string.popLeading, popTrailing
! 		s = "÷÷÷÷xxx"; // use extended ascii range
! 		assertEqual(string.popLeading (s, '÷'), "xxx", "string.popLeading is broken.");
! 		assertEqual(string.popTrailing (s, 'x'), "÷÷÷÷", "string.popTrailing is broken.")};
! 	
! 	bundle { // string.hex
! 		assertEqual(string.hex (16), "0x0010", "string.hex is broken.");
! 		assertEqual(string.hex (10), "0x000A", "string.hex is broken.");
! 		assertEqual(string.hex (infinity), "0x7FFFFFFF", "string.hex is broken.");
! 		assertEqual(string.hex (-infinity), "0x80000001", "string.hex is broken.");
! 		assertEqual(string.hex (33), "0x0021", "string.hex is broken.");
! 		assertEqual(string.hex (1000000), "0x000F4240", "string.hex is broken.")};
! 	
! 	bundle { // string.kBytes
! 		assertEqual(string.kBytes (98219), "96K", "string.kBytes is broken.")};
! 	
! 	bundle { // string.patternMatch
! 		assertEqual(string.patternMatch ("a", "abcdefg"), 1, "string.patternMatch is broken.");
! 		assertEqual(string.patternMatch ("d", "abcdefg"), 4, "string.patternMatch is broken.");
! 		assertEqual(string.patternMatch ("x", "abcdefg"), 0, "string.patternMatch is broken.");
! 		assertEqual(string.patternMatch ("def", "abcdefg"), 4, "string.patternMatch is broken.")};
! 	
! 	bundle { // string.hasSuffix
! 		assert(string.hasSuffix (".text", "biography.text"), "string.hasSuffix is broken.");
! 		assert(not string.hasSuffix (".data", "biography.text"), "string.hasSuffix is broken.")};
! 	
! 	bundle { // beginsWith, contains, endsWith
! 		s = "fun with strings";
! 		assert((s beginsWith "fun") and not (s beginsWith "with"), "beginsWith is broken");
! 		assert((s contains "fun") and (s contains "with"), "contains is broken");
! 		assert(not (s endsWith "with") and (s endsWith "strings"), "endsWith is broken")};
! 	
! 	bundle { // string.mid, insert, delete, replace, replaceAll
! 		s = "more fun with strings";
! 		assertEqual(string.mid (s, 10, infinity), "with strings", "string.mid is broken");
! 		assertEqual(string.delete (s, 1, 9), "with strings", "string.delete is broken");
! 		assertEqual(string.delete ("oh the buzzing", 3, 5), "ohbuzzing", "string.delete is broken");
! 		assertEqual(string.insert ("test ", s,15), "more fun with test strings", "string.insert is broken");
! 		assertEqual(string.replace (s, "fun", "???"), "more ??? with strings", "string.replace is broken");
! 		assertEqual(string.replaceAll (s, "i", ""), "more fun wth strngs", "string.replaceAll is broken");
! 		assertEqual(string.replaceAll ("aaa", "a", "bb"), "bbbbbb", "string.replaceAll is broken")};
! 	
! 	bundle { // strings as arrays
! 		s = "strings are arrays or characters";
! 		assertEqual(s [string.length (s)], 's', "string array indexing is broken");
! 		delete (@s [1]);
! 		assert(not (s beginsWith 's'), "delete of a string item is broken");
! 		s [2] = 'o';
! 		assertEqual(string.firstWord (s), "toings", "string array assignment is broken")};
! 	
! 	bundle { // escape sequences
! 		assertEqual(tab + cr, "\t\r", "escape sequences are broken");
! 		assertEqual(number ('\x1B'), 27, "escape sequences are broken")};
! 	
! 	bundle { // string.xtext(Encode/Decode)
! 		bundle { // encoding
! 			assertEqual (string.xtextEncode ("Hello world"), "Hello+20world", "string.xtextEncode is broken");
! 			assertEqual (string.xtextEncode ("Hello+world"), "Hello+2Bworld", "string.xtextEncode is broken");
! 			assertEqual (string.xtextEncode ("\x0\x1\x2\x3\x4\x5"), "+00+01+02+03+04+05", "string.xtextEncode is broken");
! 			assertEqual (string.xtextEncode ("e=...@ex..."), "e+...@ex...", "string.xtextEncode is broken")};
! 		
! 		bundle { // decoding
! 			assertEqual (string.xtextDecode ("Hello+20world"), "Hello world", "string.xtextDecode is broken");
! 			assertEqual (string.xtextDecode ("Hello+2Bworld"), "Hello+world", "string.xtextDecode is broken");
! 			assertEqual (string.xtextDecode ("+00+01+02+03+04+05"), "\x0\x1\x2\x3\x4\x5", "string.xtextDecode is broken");
! 			assertEqual (string.xtextDecode ("e+...@ex..."), "e=...@ex...", "string.xtextDecode is broken")}}};
! 
! callScript(@fUnit.testSuperStress.testString, {}, @fUnit.contextForTests)
\ No newline at end of file