vhUnitTest.TestCase 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,"") ]]> 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,"") ]]> 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,"") ]]> 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,"") ]]> 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,"") ]]>