Gemstone example runner draft [feenkcom/gtoolkit#4322]

feenkcom · Mar 8, 2025 · 82d7786 · 82d7786
1 parent 67efc17
commit 82d7786
Showing 1 changed file with 26 additions and 0 deletions.
diff --git a/src/Gt4Llm-Gemstone/GtLlmChatExamples.extension.st b/src/Gt4Llm-Gemstone/GtLlmChatExamples.extension.st
@@ -0,0 +1,26 @@
+Extension { #name : 'GtLlmChatExamples' }
+
+{ #category : '*Gt4Llm-Gemstone' }
+GtLlmChatExamples >> assert: aBoolean [
+	self
+		assert: aBoolean
+		description: 'assert is not true'
+]
+
+{ #category : '*Gt4Llm-Gemstone' }
+GtLlmChatExamples >> assert: aBoolean description: aString [
+  | str | 
+  aBoolean == true  ifFalse: [
+    str := aString .
+    str _isExecBlock ifTrue:[ str := aString value ].
+    self logFailure: str.
+    ^ GtGemStoneAssertionFailure signal: str
+  ]
+]
+
+{ #category : '*Gt4Llm-Gemstone' }
+GtLlmChatExamples >> assert: actual equals: expected [
+	self
+		assert: actual = expected
+		description: actual printString , ' is not equal to ' , expected printString
+]