--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__StreamUpToTests.st	Fri Sep 26 15:28:24 2014 +0200
@@ -0,0 +1,102 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#StreamUpToTests
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-regression'
+!
+
+!StreamUpToTests class methodsFor:'documentation'!
+
+documentation
+"
+    documentation to be added.
+
+    [author:]
+        ca
+
+    [instance variables:]
+
+    [class variables:]
+
+    [see also:]
+
+"
+! !
+
+!StreamUpToTests methodsFor:'initialize / release'!
+
+setUp
+    "common setup - invoked before testing."
+
+    super setUp
+!
+
+tearDown
+    "common cleanup - invoked after testing."
+
+    super tearDown
+! !
+
+!StreamUpToTests methodsFor:'tests'!
+
+test1_Array
+    self assert:( #( $a $b $c $d ) readStream upTo:$c  ) = #($a "16r61" $b "16r62").
+    self assert:( #( $a $b $c $d ) readStream upTo:$c; position  ) = 3          .
+    self assert:( #( $a $b $c $d ) readStream upTo:$1  ) = #($a "16r61" $b "16r62" $c "16r63" $d "16r64")    .
+    self assert:( #( $a $b $c $d ) readStream upTo:$1; position  ) = 4          .
+
+    self assert:( #( $a $b $c $d ) readStream upTo:$a  ) = #().
+    self assert:( #( $a $b $c $d ) readStream upTo:$a; position  ) = 1.
+
+    self assert:( #( $a $b $c $d ) readStream next; upTo:$c  ) = #($b "16r62")  .
+    self assert:( #( $a $b $c $d ) readStream next; upTo:$c; position  ) = 3    .
+    self assert:( #( $a $b $c $d ) readStream next; upTo:$1  ) = #($b "16r62" $c "16r63" $d "16r64") .
+    self assert:( #( $a $b $c $d ) readStream next; upTo:$1; position  ) = 4    .
+
+    self assert:( #( $a $b $c $d $a $b $c $d ) readStream next:3; upTo:$c  ) = #( $d $a $b)  .
+    self assert:( #( $a $b $c $d $a $b $c $d ) readStream next:3; upTo:$c; position  ) = 7.
+
+    self assert:( #( $a $b $c $d $e $f) readStream readLimit:5; upTo:$c  ) = #($a "16r61" $b "16r62") .
+    self assert:( #( $a $b $c $d $e $f) readStream readLimit:5; upTo:$c; position  ) = 3             .
+    self assert:( #( $a $b $c $d $e $f) readStream readLimit:5; upTo:$1  ) = #($a "16r61" $b "16r62" $c  "16r63" $d "16r64" $e "16r65").
+    self assert:( #( $a $b $c $d $e $f) readStream readLimit:5; upTo:$1; position  ) = 5   .
+!
+
+test1_String
+    self assert:( 'abcd' readStream upTo:$c  ) = 'ab'.
+    self assert:( 'abcd' readStream upTo:$c; position  ) = 3.
+    self assert:( 'abcd' readStream upTo:$1  ) = 'abcd'.   
+    self assert:( 'abcd' readStream upTo:$1; position  ) = 4.
+
+    self assert:( 'abcd' readStream upTo:$a  ) = ''.
+    self assert:( 'abcd' readStream upTo:$a; position  ) = 1.
+
+
+    self assert:( 'abcd' readStream next; upTo:$c  ) = 'b'  .
+    self assert:( 'abcd' readStream next; upTo:$c; position  ) = 3.
+    self assert:( 'abcd' readStream next; upTo:$1  ) = 'bcd' .
+    self assert:( 'abcd' readStream next; upTo:$1; position  ) = 4.
+
+    self assert:( 'abcdabcd' readStream next:3; upTo:$c  ) = 'dab'  .
+    self assert:( 'abcdabcd' readStream next:3; upTo:$c; position  ) = 7.
+
+    self assert:( 'abcdef' readStream readLimit:5; upTo:$c  ) = 'ab' .
+    self assert:( 'abcdef' readStream readLimit:5; upTo:$c; position  ) = 3.
+    self assert:( 'abcdef' readStream readLimit:5; upTo:$1  ) = 'abcde'.
+    self assert:( 'abcdef' readStream readLimit:5; upTo:$1; position  ) = 5.
+! !
+
+!StreamUpToTests class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
+! !
+