'From SqueakNihongo6.1 of 17 April 2004 [latest update: #0] on 8 May 2004 at 6:05:34 pm'!
TestCase subclass: #BRegexpMultiStringTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'BRegexp-Tests'!

!BRegexpMultiStringTest methodsFor: 'Running' stamp: 'minami 5/8/2004 17:32'!
setUp
	BRegexp initialize! !

!BRegexpMultiStringTest methodsFor: 'Running' stamp: 'minami 5/8/2004 17:32'!
tearDown
	BRegexp initialize! !


!BRegexpMultiStringTest methodsFor: 'Tests' stamp: 'minami 5/8/2004 17:44'!
testMatch001
	| pattern target reg result |
	reg := BRegexp default.
	pattern := 'm/(\d{2})/k'.
	target := '今日の15時'.

	[
		result := reg match: pattern from: target.

		self assert: result isMatched.
		self assert: result asString = '15'.

	] ensure: [reg release]!]lang[(108 3 2 1 150)0,5,0,5,0! !

!BRegexpMultiStringTest methodsFor: 'Tests' stamp: 'minami 5/8/2004 17:41'!
testSplit001

	| pattern target reg |

	pattern := '/ *\d{2,3}-\d{3,4}-\d{4} */'.
	target := '横浜 045-222-1111 大阪 06-5555-6666  東京 03-1111-9999'.
	reg := BRegexp default.

	self assert: (reg split: pattern from: target limit: 0) = 3.

	self assert: reg hasNext.
	self assert: (reg nextResult asString) = '横浜'.
	self assert: reg hasNext.
	self assert: (reg nextResult asString) = '大阪'.
	self assert: reg hasNext.
	self assert: (reg nextResult asString) = '東京'.

	self assert: reg hasNext not.
	self assert: (reg nextResult asString) = ''.
!]lang[(94 2 14 2 15 2 175 2 73 2 73 2 81)0,5,0,5,0,5,0,5,0,5,0,5,0! !

!BRegexpMultiStringTest methodsFor: 'Tests' stamp: 'minami 5/8/2004 17:43'!
testSubstitute001

	| pattern target reg result |

	reg := BRegexp default.
	pattern := 's/(\d\d)-\d{4}-\d{4}/$1-xxxx-xxxx/k'.
	target := '横浜 045-222-1111  大阪 06-5555-6666'.

	result := reg substitute: pattern from: target.

	self assert: result = '横浜 045-222-1111  大阪 06-xxxx-xxxx'!]lang[(139 2 15 2 91 2 15 2 14)0,5,0,5,0,5,0,5,0! !

!BRegexpMultiStringTest methodsFor: 'Tests' stamp: 'minami 5/8/2004 17:34'!
testTranslate001

	| pattern target reg result |

	reg := BRegexp default.
	pattern := 'tr/あ-ん/ア-ン/k'.
	target := '今日はいい天気だ'.

	result := reg translate: pattern from: target.
	
	self assert: result = '今日ハイイ天気ダ'.

	reg release!]lang[(91 1 1 1 1 1 1 1 17 8 78 8 16)0,5,0,5,0,5,0,5,0,5,0,5,0! !

!BRegexpMultiStringTest methodsFor: 'Tests' stamp: 'minami 5/8/2004 17:45'!
testTranslate002

	| pattern target reg result |

	reg := BRegexp default.
	pattern := 'tr/ア-オあ-おカ-コか-こ/あ-おア-オか-こカ-コ/k'.
	target := 'あいうえおアイウエオかきくけこカキクケコさしすせそサシスセソ'.

	result := reg translate: pattern from: target.

	self assert: result = 'アイウエオあいうえおカキクケコかきくけこさしすせそサシスセソ'.

	reg release.!]lang[(91 1 1 2 1 2 1 2 1 1 1 1 1 2 1 2 1 2 1 1 17 30 77 30 17)0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0,5,0! !