[squeak-dev] The Trunk: CollectionsTests-nice.122.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Dec 7 09:05:53 UTC 2009


Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-nice.122.mcz

==================== Summary ====================

Name: CollectionsTests-nice.122
Author: nice
Time: 7 December 2009, 10:05:49 am
UUID: b2c888de-4917-0f46-b3f7-efd6f209468e
Ancestors: CollectionsTests-ul.121

Some basic tests for nextLine upToAnyOf: upToAnyOf:do:

=============== Diff against CollectionsTests-ul.121 ===============

Item was added:
+ ----- Method: ReadStreamTest>>testNextLine (in category 'tests - accessing') -----
+ testNextLine
+ 	| lines text stream |
+ 	lines := #('line 1' ' and line 2' '' 'fourth').
+ 	text := lines first , String cr , lines second , String crlf , lines third , String lf , lines fourth.
+ 	stream := text readStream.
+ 	lines do: [:e |
+ 		self assert: stream nextLine = e].
+ 	self assert: stream nextLine = nil!

Item was added:
+ ----- Method: ReadStreamTest>>testUpToAnyOf (in category 'tests - accessing') -----
+ testUpToAnyOf
+ 	| stream |
+ 	stream := 'abcde' readStream.
+ 	self assert: (stream upToAnyOf: String crlf) = 'abcde'.
+ 	self assert: stream atEnd.
+ 	
+ 	stream := 'abcde' readStream.
+ 	self assert: (stream upToAnyOf: 'dc') = 'ab'.
+ 	self assert: stream upToEnd = 'de'.
+ 	
+ 	stream := #( 1 2 nil true false 10 ) readStream.
+ 	self assert: (stream upToAnyOf: #(100 1000)) = #( 1 2 nil true false 10 ).
+ 	self assert: stream atEnd.
+ 	
+ 	stream := #( 1 2 nil true false 10 ) readStream.
+ 	self assert: (stream upToAnyOf: #( true false )) = #( 1 2 nil ).
+ 	self assert: stream upToEnd = #( false 10 ).!

Item was added:
+ ----- Method: ReadStreamTest>>testUpToAnyOfDo (in category 'tests - accessing') -----
+ testUpToAnyOfDo
+ 	| stream found |
+ 	found := false.
+ 	stream := 'abcde' readStream.
+ 	self assert: (stream upToAnyOf: String crlf do: [:char | found := true]) = 'abcde'.
+ 	self assert: stream atEnd.
+ 	self deny: found.
+ 	
+ 	found := Object new.
+ 	stream := 'abcde' readStream.
+ 	self assert: (stream upToAnyOf: 'dc' do: [:char | found := char]) = 'ab'.
+ 	self assert: found = $c.
+ 	self assert: stream upToEnd = 'de'.
+ 	
+ 	found := false.
+ 	stream := #( 1 2 nil true false 10 ) readStream.
+ 	self assert: (stream upToAnyOf: #(100 1000) do: [:anObject | found := true]) = #( 1 2 nil true false 10 ).
+ 	self deny: found.
+ 	self assert: stream atEnd.
+ 	
+ 	found := Object new.
+ 	stream := #( 1 2 nil true false 10 ) readStream.
+ 	self assert: (stream upToAnyOf: #( true false ) do: [:anObject | found := anObject]) = #( 1 2 nil ).
+ 	self assert: found = true.
+ 	self assert: stream upToEnd = #( false 10 ).!




More information about the Squeak-dev mailing list