Merge pull request #49 from ba-st/48-Fail-to-load-Stargate-v2---Test-…

…Group- Changed test case to not depend on unit test of Hyperspace.
ba-st · Aug 8, 2019 · 8506bb7 · 8506bb7
2 parents 40ff178 + d4f1ed7
commit 8506bb7
Show file tree

Hide file tree

Showing 2 changed files with 33 additions and 16 deletions.
diff --git a/source/Stargate-Model-Tests/HTTPNotAcceptableTest.extension.st b/source/Stargate-Model-Tests/HTTPNotAcceptableTest.extension.st
diff --git a/source/Stargate-Model-Tests/HyperspaceExtensionsTest.class.st b/source/Stargate-Model-Tests/HyperspaceExtensionsTest.class.st
@@ -0,0 +1,33 @@
+Class {
+	#name : #HyperspaceExtensionsTest,
+	#superclass : #TestCase,
+	#category : #'Stargate-Model-Tests-Extensions'
+}
+
+{ #category : #tests }
+HyperspaceExtensionsTest >> testBadRequestAsJSON [
+
+	| error json |
+
+	error := HTTPClientError badRequest messageText: 'Ouch!'.
+	json := NeoJSONObject fromString: ( NeoJSONWriter toStringPretty: error ).
+
+	self
+		assert: json message equals: 'Ouch!';
+		assert: json code equals: 400
+]
+
+{ #category : #tests }
+HyperspaceExtensionsTest >> testNotAcceptableAsJSON [
+
+	| error json |
+
+	error := HTTPNotAcceptable messageText: 'Ouch!' accepting: {'application/xml' asMediaType}.
+	json := NeoJSONObject fromString: ( NeoJSONWriter toStringPretty: error ).
+
+	self
+		assert: json message equals: 'Ouch!';
+		assert: json code equals: 406;
+		assert: json allowedMediaTypes size equals: 1;
+		assert: json allowedMediaTypes first equals: 'application/xml'
+]