The Trunk: Regex-Tests-Core-ul.4.mcz

Levente Uzonyi uploaded a new version of Regex-Tests-Core to project The Trunk:
http://source.squeak.org/trunk/Regex-Tests-Core-ul.4.mcz

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

Name: Regex-Tests-Core-ul.4
Author: ul
Time: 27 March 2016, 12:38:52.983055 am
UUID: a859f723-20b0-49e2-8644-eb66837f4ceb
Ancestors: Regex-Tests-Core-ul.3

Added RxParserTest >> #testPredicates to cover the case sensitive/case insensitive predicates a bit better.

=============== Diff against Regex-Tests-Core-ul.3 ===============

Item was added:
+ ----- Method: RxParserTest>>testPredicates (in category 'tests') -----
+ testPredicates
+
+ #(
+ "input" "regex" "expected case sensitive result" "expected case insensitive result"
+ 'abc' '[a]bc' true true
+ 'abc' '[A]bc' false true
+ 'abc' '[ab]bc' true true
+ 'abc' '[Ab]bc' false true
+ 'Abc' '[a]bc' false true
+ 'Abc' '[A]bc' true true
+ 'Abc' '[ab]bc' false true
+ 'Abc' '[Ab]bc' true true
+ 'abc' '[b]bc' false false
+ 'abc' '[bB]bc' false false
+ 'abc' '[bc]bc' false false
+ 'abc' '[bcBC]bc' false false
+ ) groupsDo: [ :input :regexString :expectedCaseSensitiveResult :expectedCaseInsensitiveResult |
+ self
+ assert: expectedCaseSensitiveResult
+ equals: (input matchesRegex: regexString)
+ description: ('{1} matchesRegex: {2} should be {3}' format: { input. regexString. expectedCaseSensitiveResult }).
+ self
+ assert: expectedCaseInsensitiveResult
+ equals: (input matchesRegexIgnoringCase: regexString)
+ description: ('{1} matchesRegexIgnoringCase: {2} should be {3}' format: { input. regexString. expectedCaseInsensitiveResult }) ]!