The Trunk: CollectionsTests-ul.177.mcz

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-ul.177.mcz

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

Name: CollectionsTests-ul.177
Author: ul
Time: 16 November 2010, 6:40:51.04 am
UUID: 4222e03a-483e-ff4f-96dc-ac7e60470cec
Ancestors: CollectionsTests-ul.176

- added tests for String >> #match: and String >> #withoutQuoting

=============== Diff against CollectionsTests-ul.176 ===============

Item was added:
+ ----- Method: StringTest>>testMatch (in category 'test-comparing') -----
+ testMatch
+
+ #('**' '*#' 'f**' 'f*#' 'f**o' 'f*#o') do: [ :each |
+ self should: [ each match: 'foo' ] raise: Error ].
+ #('f*' '*f*' 'f#*' 'f##' '*oo' '#oo' '*o*' '#o#' '#o*' '*o#' 'fo*' 'fo#' '*foo*' '###')
+ do: [ :each | self assert: (each match: 'foo') ].
+ #('bar' 'foo#' '#foo' '*foo#' '#foo*' '*bar*') do: [ :each |
+ self deny: (each match: 'foo') ]!

Item was added:
+ ----- Method: StringTest>>testWithoutQuoting (in category 'testing - internet') -----
+ testWithoutQuoting
+
+ #(
+ '"foo"' 'foo'
+ '''foo''' 'foo'
+ '"foo''' '"foo'''
+ '''foo"' '''foo"'
+ '"foo' '"foo'
+ 'foo"' 'foo"'
+ 'foo' 'foo') pairsDo: [ :before :after |
+ self assert: before withoutQuoting = after ]!