[Pkg] The Trunk: Regex-Tests-Core-ul.4.mcz

[commits at source.squeak.org]

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