Add test for typeahead

tatut · Jan 12, 2024 · eed9545 · eed9545
1 parent 20b7434
commit eed9545
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 4 deletions.
diff --git a/src/LiveWeb-Examples-Tests/LWExamplesTest.class.st b/src/LiveWeb-Examples-Tests/LWExamplesTest.class.st
@@ -48,3 +48,13 @@ LWExamplesTest >> testMultiCounter [
 	locate: #( 'div.counter' 'nth=5' ) assert: [ :d | d hasText: '42' ]
 
 ]
+
+{ #category : #tests }
+LWExamplesTest >> testTypeahead [ 
+  self
+  go: 'http://localhost:8080/examples/typeahead';
+  locate: 'input#selected' do: [ :i | i pressSequentially: 'LWExamples' ];
+  locate: 'div.formCandidates div' assert: [ :c | c hasCount: 3 ];
+  locate: '[data-typeahead-id=LWExamples]' do: #click;
+  locate: 'div.selectedClass' assert: [ :s | s hasText: 'You have chosen: LWExamples' ]
+]
diff --git a/src/LiveWeb-Examples/LWTypeAheadExample.class.st b/src/LiveWeb-Examples/LWTypeAheadExample.class.st
@@ -2,7 +2,8 @@ Class {
 	#name : #LWTypeAheadExample,
 	#superclass : #LWComponent,
 	#instVars : [
-		'typeahead'
+		'typeahead',
+		'selected'
 	],
 	#category : #'LiveWeb-Examples'
 }
@@ -25,15 +26,31 @@ LWTypeAheadExample >> initialize [
            span: [ h templateSlot: [ :c | c subclasses size asString ] ]]];
      fetchCandidates: [ :v | 
 			Smalltalk globals allClasses select: [ :c | (v,'*') match: c name ]];
-		accessor: #first;
-		form: (LWEditForm new entity: OrderedCollection new) .
+		accessor: #selected;
+		form: (LWEditForm new entity: self) .
 
 ]
 
 { #category : #rendering }
 LWTypeAheadExample >> renderOn: h [
 	h div: [ 
 		h h3: 'Type ahead from Smalltalk image classes:'.
-		typeahead render: h ]
+		typeahead render: h.
+		selected ifNotNil: [ 
+			h div: { #class -> 'selectedClass' } with: 'You have chosen: ', selected asString
+		]	
+	 ]
 
 ]
+
+{ #category : #accessing }
+LWTypeAheadExample >> selected [
+
+	^ selected
+]
+
+{ #category : #accessing }
+LWTypeAheadExample >> selected: anObject [
+	selected := anObject.
+	self changed
+]