Add GtRemoteGemStoneWireEncodingExamples>>#passAndRetrieveFloat

akgrant43 · akgrant43 · commit f710ee43a6e1 · 2026-06-19T17:29:45.000+02:00
diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneSession.class.st
@@ -1377,6 +1377,16 @@ GtGemStoneSession >> gtViewTranscriptFor: aView [
 					spawnObject: self remoteTranscript ]
 ]
 
+{ #category : #testing }
+GtGemStoneSession >> hasFeatureNamed: aSymbol [
+	"Answer a boolean indicating whether the server has the named feature"
+
+	^ self currentFeatures updateFeatures remoteFeatures
+		detect: [ :aFeature | aFeature featureId = aSymbol ]
+		ifFound: [ :feature | true  ]
+		ifNone: [ false ].
+]
+
 { #category : #testing }
 GtGemStoneSession >> hasKeepAlive [
 
diff --git a/src/GToolkit-RemoteExamples-GemStone/GtRemoteGemStoneWireEncodingExamples.class.st b/src/GToolkit-RemoteExamples-GemStone/GtRemoteGemStoneWireEncodingExamples.class.st
@@ -187,6 +187,28 @@ GtRemoteGemStoneWireEncodingExamples >> passAndRetrieveClass [
 	self assert: result fifth identicalTo: Dictionary.
 ]
 
+{ #category : #examples }
+GtRemoteGemStoneWireEncodingExamples >> passAndRetrieveFloat [
+	"Ensure that a floating point number is correctly passed each way.
+	For GT / Pharo 13 and GemStone 3.7.5 GtWireFloatPrintStringEncoder matches exactly."
+	<gtExample>
+	<return: #AssertionFailure>
+	| session result |
+
+	session := self runningServer.
+
+	(session hasFeatureNamed: #floatStringEncoding) ifFalse: [ ^ self ].
+
+	result := session evaluateBlockAndWait: [ :in |
+		in = Float pi ifFalse:
+			[ nil error: 'in=', in asString ].
+	 Float pi ]
+		withArguments: { Float pi }
+		serializationStrategy: GtRsrWireSerializationStrategy.
+
+	self assert: result equals: Float pi.
+]
+
 { #category : #examples }
 GtRemoteGemStoneWireEncodingExamples >> passAndRetrieveGeneralObject [
 	<gtExample>
