fixed anothe batch of tests

dionisiydk · Feb 9, 2021 · 97c8504 · 97c8504
1 parent 30f799e
commit 97c8504
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/src/Spec2-Core/String.extension.st b/src/Spec2-Core/String.extension.st
@@ -17,12 +17,12 @@ String >> localizedForPresenter: aPresenter [
 ]
 
 { #category : #'*Spec2-Core' }
-String >> withAccentuatedCharacter: aCharacter [
+String >> withAccentuatedCharacter: aKey [
 
 	| text index | 
 	text := self asText.
-	aCharacter ifNil: [ ^ text ].
-	index := self asLowercase indexOf: aCharacter asLowercase.
+	aKey ifNil: [ ^ text ].
+	index := self asLowercase indexOf: aKey name asLowercase.
 	index isZero
 		ifTrue: [ ^ text ].
 

diff --git a/src/Spec2-Tests/SpAbstractTextPresenterTest.class.st b/src/Spec2-Tests/SpAbstractTextPresenterTest.class.st
@@ -82,7 +82,7 @@ SpAbstractTextPresenterTest >> testWhenSubmitDo [
 	self openInstance.
 
 	self textInputAdapter
-		keyPressed: $s asciiValue 
+		keyDown: $s asciiValue 
 		shift: false
 		meta: true 
 		control: false 

diff --git a/src/Spec2-Tests/SpGridLayoutTest.class.st b/src/Spec2-Tests/SpGridLayoutTest.class.st
@@ -11,7 +11,7 @@ SpGridLayoutTest >> testInitialStatus [
 	layout := SpGridLayout new.
 
 	self assert: layout isColumnHomogeneous.	
-	self assert: layout isRowHomogeneous.
+	self deny: layout isRowHomogeneous.
 	self assert: layout columnSpacing equals: 10.
 	self assert: layout rowSpacing equals: 5.
 	self assert: layout borderWidth equals: 20

diff --git a/src/Spec2-Tests/SpTextPresenterTest.class.st b/src/Spec2-Tests/SpTextPresenterTest.class.st
@@ -16,7 +16,7 @@ SpTextPresenterTest >> testEditable [
 	self openInstance.
 
 	presenter adapter 
-		keyPressed: $x asciiValue 
+		keyDown: $x asciiValue 
 		shift: false 
 		meta: false 
 		control: false