'From Squeak3.8 of ''5 May 2005'' [latest update: #6665] on 13 February 2006 at 9:28:20 pm'! TestCase subclass: #RegexTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'VB-Regex-Tests'! !RegexTest commentStamp: '' prior: 0! This class is used to test Vassili Bykov Regular expression matcher! !RegexTest methodsFor: 'testing' stamp: 'nice 2/13/2006 21:24'! testBugSameAs "self debug: #testBugSameAs" | regex | regex := 'CHARACTER' asRegexIgnoringCase. self should: [regex matchesPrefix: 'CHARACTER*1'] description: '(Character canUnderstand: #sameAs:) ifFalse: [self error]'! ! !RegexTest reorganize! ('testing' testBugSameAs) !