Add ZnEntity >> #asString

ba-st · Sep 28, 2023 · 996277d · 996277d
1 parent a62dd66
commit 996277d
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 0 deletions.
diff --git a/source/Stargate-Model-Tests/ZnEntityStargateExtensionsTest.class.st b/source/Stargate-Model-Tests/ZnEntityStargateExtensionsTest.class.st
@@ -0,0 +1,23 @@
+Class {
+	#name : #ZnEntityStargateExtensionsTest,
+	#superclass : #TestCase,
+	#category : #'Stargate-Model-Tests-Extensions'
+}
+
+{ #category : #tests }
+ZnEntityStargateExtensionsTest >> testAsString [
+
+	self
+		assert: ( ZnEntity text: 'Regression test' ) asString
+		equals: 'text/plain;charset=utf-8  Regression test'.
+
+	self
+		assert: ( ZnEntity bytes: #[ 12 13 45 ] ) asString
+		equals: 'application/octet-stream 3B #[12 13 45]'.
+
+	self assert: ( ZnEntity json: '{"test":1}' ) asString equals: 'application/json  {"test":1}'.
+
+	self
+		assert: ( ZnEntity xml: '<test><sub></sub></test>' ) asString
+		equals: 'application/xml  <test><sub></sub></test>'
+]
diff --git a/source/Stargate-Zinc-Extensions/ZnEntity.extension.st b/source/Stargate-Zinc-Extensions/ZnEntity.extension.st
@@ -0,0 +1,7 @@
+Extension { #name : #ZnEntity }
+
+{ #category : #'*Stargate-Zinc-Extensions' }
+ZnEntity >> asString [
+
+	^ String streamContents: [ :stream | self printContentsOn: stream ]
+]