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 AA|") 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 AA|")) 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|")) ]]> 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|")) ]]> 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 AA|") 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 AA|")) 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) ]]>