Move chat examples into gt4llm common package [feenkcom/gtoolkit#4322]

feenkcom · Mar 7, 2025 · b1d9fac · b1d9fac
1 parent 36a88b3
commit b1d9fac
Show file tree

Hide file tree

Showing 3 changed files with 63 additions and 40 deletions.
diff --git a/src/Gt4Llm-GToolkit/GtLlmChatExamples.class.st b/src/Gt4Llm-GToolkit/GtLlmChatExamples.class.st
@@ -4,19 +4,7 @@ Class {
 	#category : #'Gt4Llm-GToolkit'
 }
 
-{ #category : #'as yet unclassified' }
-GtLlmChatExamples >> basicChat [
-	<gtExample>
-	| chat |
-	chat :=  GtLlmChat new.
-
-	self assert: chat messages size equals: 0.
-	self assert: chat status isDone not.
-
-	^ chat
-]
-
-{ #category : #'as yet unclassified' }
+{ #category : #'*Gt4Llm-GToolkit' }
 GtLlmChatExamples >> chatFuture [
 	<gtExample>
 	| chat ran |
@@ -32,30 +20,3 @@ GtLlmChatExamples >> chatFuture [
 
 	^ chat
 ]
-
-{ #category : #'as yet unclassified' }
-GtLlmChatExamples >> chatWithMessages [
-	<gtExample>
-	| chat |
-	chat := self chatWithProvider.
-
-	chat sendMessage: 'Hi!'.
-
-	self assert: chat status isDone.
-	self assert: chat messages size equals: 1.
-
-	^ chat
-]
-
-{ #category : #'as yet unclassified' }
-GtLlmChatExamples >> chatWithProvider [
-	<gtExample>
-	| chat |
-	chat := self basicChat.
-
-	chat provider: GtLlmNullProvider new.
-
-	self assert: chat status isDone.
-
-	^ chat
-]
diff --git a/src/Gt4Llm-GToolkit/GtLlmChatExamples.extension.st b/src/Gt4Llm-GToolkit/GtLlmChatExamples.extension.st
@@ -0,0 +1,18 @@
+Extension { #name : #GtLlmChatExamples }
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmChatExamples >> chatFuture [
+	<gtExample>
+	| chat ran |
+	chat := self basicChat.
+
+	chat provider: GtLlmNullProvider new.
+
+	ran := false.
+
+	(chat whenReadyFuture then: [ran := true]) wait.
+
+	self assert: ran.
+
+	^ chat
+]
diff --git a/src/Gt4Llm/GtLlmChatExamples.class.st b/src/Gt4Llm/GtLlmChatExamples.class.st
@@ -0,0 +1,44 @@
+Class {
+	#name : #GtLlmChatExamples,
+	#superclass : #Object,
+	#category : #Gt4Llm
+}
+
+{ #category : #'as yet unclassified' }
+GtLlmChatExamples >> basicChat [
+	<gtExample>
+	| chat |
+	chat :=  GtLlmChat new.
+
+	self assert: chat messages size equals: 0.
+	self assert: chat status isDone not.
+
+	^ chat
+]
+
+{ #category : #'as yet unclassified' }
+GtLlmChatExamples >> chatWithMessages [
+	<gtExample>
+	| chat |
+	chat := self chatWithProvider.
+
+	chat sendMessage: 'Hi!'.
+
+	self assert: chat status isDone.
+	self assert: chat messages size equals: 1.
+
+	^ chat
+]
+
+{ #category : #'as yet unclassified' }
+GtLlmChatExamples >> chatWithProvider [
+	<gtExample>
+	| chat |
+	chat := self basicChat.
+
+	chat provider: GtLlmNullProvider new.
+
+	self assert: chat status isDone.
+
+	^ chat
+]