���'From Pharo-1.1-11411 of 17 July 2010 [Latest update: #11411] on 13 October 2010 at 9:15:35 pm'!
TestCase subclass: #BWRangeQueryTests
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Bankwertung-Tests'!

!BWRangeQueryTests methodsFor: 'as yet unclassified' stamp: 'UdoSchneider 10/13/2010 21:13'!
cities
	^ #('Meppen' 'M��nster' 'M��nchen' 'Wien')! !

!BWRangeQueryTests methodsFor: 'as yet unclassified' stamp: 'UdoSchneider 10/13/2010 21:14'!
testByteSequenceIndexUmlautRangeQuery
	| collection index result |
	collection := MagmaCollection new.
	collection
		addIndex:
				((MaByteSequenceIndex attribute: #yourself)
						keySize: 128;
						yourself);
		addAll: self cities.
	result := collection where: [ :reader | reader read: #yourself from: 'Meppen' to: 'Wien' ].
	self assert: result size = 4.
	result := collection where: [ :reader | reader read: #yourself from: 'M��' to: 'M��' maAlphabeticalNext ].
	self assert: result size = 2! !

!BWRangeQueryTests methodsFor: 'as yet unclassified' stamp: 'UdoSchneider 10/13/2010 21:15'!
testSearchStringIndexUmlautRangeQuery
	| collection index result |
	collection := MagmaCollection new.
	collection
		addIndex:
				((MaSearchStringIndex attribute: #yourself)
						keySize: 128;
						yourself);
		addAll: self cities.
	result := collection where: [ :reader | reader read: #yourself from: 'Meppen' to: 'Wien' ].
	self assert: result size = 4.
	result := collection where: [ :reader | reader read: #yourself from: 'M��' to: 'M��' maAlphabeticalNext ].
	self assert: result size = 2! !