Index: vhUnitTest/TECH/StreamUtils/Replace/Test.cls.xml
===================================================================
diff -u -r1543 -r3482
--- vhUnitTest/TECH/StreamUtils/Replace/Test.cls.xml	(.../Test.cls.xml)	(revision 1543)
+++ vhUnitTest/TECH/StreamUtils/Replace/Test.cls.xml	(.../Test.cls.xml)	(revision 3482)
@@ -5,33 +5,189 @@
 
 <Method name="Test">
 <Implementation><![CDATA[
-
 	set Stream = ##class(%GlobalCharacterStream).%New()	
 	#dim Counter As %Integer = 0
 	for Counter= 1 : 1 : 25 { 
-		do Stream.WriteLine("This is a test line the line number is "_Counter)
+		Do Stream.WriteLine("This is a test line the line number is "_Counter)
 	}
 	
 	#dim StreamSize As %Integer = Stream.Size
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15"),"")
 	
-	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15"),"")
+	Do ##class(TECH.StreamUtils).Replace(Stream,"line number is 15","line number is 99")
+	Do $$$AssertEquals(Stream.Size,StreamSize,"")	
 	
-	do ##class(TECH.StreamUtils).Replace(Stream,"line number is 15","line number is 99")
-	do $$$AssertEquals(Stream.Size,StreamSize,"")	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15"),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 99"),"")
 	
-	do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15"),"")
-	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 99"),"")
+	Do ##class(TECH.StreamUtils).Replace(Stream," ","*")
+	Do $$$AssertEquals(Stream.Size,StreamSize,"")	
 	
-	do ##class(TECH.StreamUtils).Replace(Stream," ","*")
-	do $$$AssertEquals(Stream.Size,StreamSize,"")	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream," "),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line*number*is*11"),"")
 	
-	do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream," "),"")
-	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line*number*is*11"),"")
+	Do ##class(TECH.StreamUtils).Replace(Stream,"*","**")
+	Do $$$AssertNotEquals(Stream.Size,StreamSize,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test in de eerste blok van 32K">
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()	
+	#dim Counter As %Integer = 0
+	for Counter= 1 : 1 : 990 { 
+		Do Stream.Write("This is a test line the line number is "_Counter _ "|")
+	}
 	
-	do ##class(TECH.StreamUtils).Replace(Stream,"*","**")
-	do $$$AssertNotEquals(Stream.Size,StreamSize,"")
+	#dim StreamSize As %Integer = Stream.Size
+	
+	Do $$$AssertTrue(StreamSize > 33000)
+	
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15|"),"")
+	
+	Do ##class(TECH.StreamUtils).Replace(Stream,"line number is 15|","line number is 99|")
+	Do $$$AssertEquals(Stream.Size,StreamSize,"")	
+	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15|"),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 99|"),"")
+	
+	Do ##class(TECH.StreamUtils).Replace(Stream," ","*")
+	Do $$$AssertEquals(Stream.Size,StreamSize,"")	
+	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream," "),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line*number*is*11|"),"")
+	
+	;Do ##class(TECH.StreamUtils).Replace(Stream,"*","**")
+	;Do $$$AssertNotEquals(Stream.Size,StreamSize,"")
 ]]></Implementation>
 </Method>
+
+<Method name="Test in de eerste blok van 32K en maak deze groter maar niet meer dan 768 extra">
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()	
+	#dim Counter As %Integer = 0
+	for Counter= 1 : 1 : 990 { 
+		Do Stream.Write("This is a test line the line number is "_Counter _ "|")
+	}
+	
+	#dim StreamSize As %Integer = Stream.Size
+	
+	Do $$$AssertTrue(StreamSize > 33000)
+	
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15|"),"")
+	
+	Do ##class(TECH.StreamUtils).Replace(Stream,"line number is 15|","line number is 99 en nog wa erbij|")
+	Do $$$AssertEquals(Stream.Size,StreamSize+16,"")	
+	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15|"),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 99 en nog wa erbij|"),"")
+	
+	Do ##class(TECH.StreamUtils).Replace(Stream," ","*")
+	Do $$$AssertEquals(Stream.Size,StreamSize+16,"")	
+	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream," "),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line*number*is*11|"),"")
+	
+	;Do ##class(TECH.StreamUtils).Replace(Stream,"*","**")
+	;Do $$$AssertNotEquals(Stream.Size,StreamSize,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test in de 2de blok van 32K">
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()	
+	#dim Counter As %Integer = 0
+	for Counter= 1 : 1 : 990 { 
+		Do Stream.Write("This is a test line the line number is "_Counter _ "|")
+	}
+	
+	#dim StreamSize As %Integer = Stream.Size
+	
+	Do $$$AssertTrue(StreamSize > 33000)
+	
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 900|"),"")
+	
+	Do ##class(TECH.StreamUtils).Replace(Stream,"line number is 900|","line number is 999|")
+	Do $$$AssertEquals(Stream.Size,StreamSize,"")	
+	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 900|"),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 999|"),"")
+	
+	Do ##class(TECH.StreamUtils).Replace(Stream," ","*")
+	Do $$$AssertEquals(Stream.Size,StreamSize,"")	
+	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream," "),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line*number*is*11|"),"")
+	
+	;Do ##class(TECH.StreamUtils).Replace(Stream,"*","**")
+	;Do $$$AssertNotEquals(Stream.Size,StreamSize,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test groter dan 32K en alles op 1 lijn in de 2 blokken">
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()	
+	#dim Counter As %Integer = 0
+	for Counter= 1 : 1 : 990 { 
+		Do Stream.Write("This is a test line the line number is "_Counter _ "|")
+	}
+	
+	#dim StreamSize As %Integer = Stream.Size
+	
+	Do $$$AssertTrue(StreamSize > 33000)
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15|"),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 900|"),"")
+	
+	Do ##class(TECH.StreamUtils).Replace(Stream,"line number is 15|","line number is 99|")
+	Do ##class(TECH.StreamUtils).Replace(Stream,"line number is 900|","line number is 999|")
+	Do $$$AssertEquals(Stream.Size,StreamSize,"")	
+	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15|"),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 99|"),"")
+	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 900|"),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 999|"),"")
+
+
+	Do ##class(TECH.StreamUtils).Replace(Stream," ","*")
+	Do $$$AssertEquals(Stream.Size,StreamSize,"")	
+	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream," "),"")
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line*number*is*11|"),"")
+
+	Do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line*number*is*999|"),"")
+
+	
+	;Do ##class(TECH.StreamUtils).Replace(Stream,"*","**")
+	;Do $$$AssertNotEquals(Stream.Size,StreamSize,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test stream verandert niet indien niets gereplaced wordt">
+<Implementation><![CDATA[
+	; indien de blokken van 32000 met writeline worden weggeschreven, faalt deze test.
+	set Stream = ##class(%GlobalCharacterStream).%New()	
+	#dim Counter As %Integer = 0
+	for Counter= 1 : 1 : 990 { 
+		Do Stream.Write("This is a test line the line number is "_Counter _ "|")
+	}
+	
+	#dim StreamSize As %Integer = Stream.Size
+	
+	Do $$$AssertTrue(StreamSize > 33000)
+	
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"Dit staat er niet in"),"")
+	
+	Do ##class(TECH.StreamUtils).Replace(Stream,"Dit staat er niet in","line number is koekoe|")
+
+	Do $$$AssertEquals(Stream.Size,StreamSize,"")		
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"Dit staat er niet in"),"")
+	Do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is koekoe|"),"")
+
+	
+	Do $$$AssertEquals(Stream.Size,StreamSize,"")
+]]></Implementation>
+</Method>
 </Class>