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 ]!