'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 7 November 2004 at 7:29:30 pm'! "Change Set: ReadStreamTest-bp Date: 6 November 2004 Author: Bernhard Pieber This Change Set adds the class ReadStreamTest which implements an SUnit test for the method upToAll:."! TestCase subclass: #ReadStreamTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Streams-Tests'! !ReadStreamTest methodsFor: 'as yet unclassified' stamp: 'bp 10/29/2004 05:57'! streamOn: collection upToAll: subcollection ^(ReadStream on: collection) upToAll: subcollection! ! !ReadStreamTest methodsFor: 'as yet unclassified' stamp: 'bp 10/29/2004 06:01'! streamOn: collection upToAll: subcollection1 upToAll: subcollection2 ^(ReadStream on: collection) upToAll: subcollection1; upToAll: subcollection2! ! !ReadStreamTest methodsFor: 'as yet unclassified' stamp: 'bp 10/29/2004 06:16'! testUpToAll self assert: (self streamOn: 'abcdefgh' upToAll: 'cd') = 'ab'. self assert: (self streamOn: 'abcdefgh' upToAll: 'cd' upToAll: 'gh') = 'ef'. self assert: (self streamOn: '' upToAll: '') = ''. self assert: (self streamOn: 'a' upToAll: '') = ''. self assert: (self streamOn: 'a' upToAll: 'a') = ''. self assert: (self streamOn: 'a' upToAll: 'b') = 'a'. self assert: (self streamOn: 'ab' upToAll: '') = ''. self assert: (self streamOn: 'ab' upToAll: 'a') = ''. self assert: (self streamOn: 'ab' upToAll: 'b') = 'a'. self assert: (self streamOn: 'ab' upToAll: 'c') = 'ab'. self assert: (self streamOn: 'ab' upToAll: 'ab') = ''. self assert: (self streamOn: 'abc' upToAll: '') = ''. self assert: (self streamOn: 'abc' upToAll: 'a') = ''. self assert: (self streamOn: 'abc' upToAll: 'b') = 'a'. self assert: (self streamOn: 'abc' upToAll: 'c') = 'ab'. self assert: (self streamOn: 'abc' upToAll: 'd') = 'abc'. self assert: (self streamOn: 'abc' upToAll: 'ab') = ''. self assert: (self streamOn: 'abc' upToAll: 'bc') = 'a'. self assert: (self streamOn: 'abc' upToAll: 'cd') = 'abc'. ! !