Status: FixedWaitingToBePharoed Owner: stephane.ducasse Labels: Milestone-1.3 New issue 3343 by stephane.ducasse: tringTest>>testWithoutQuoting http://code.google.com/p/pharo/issues/detail?id=3343 ==================== 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 ]!