Add test case

ba-st · Aug 12, 2019 · ef69643 · ef69643
1 parent 23d270f
commit ef69643
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/source/Hyperspace-Model-Tests/ZnMimeTypeExtensionsTest.class.st b/source/Hyperspace-Model-Tests/ZnMimeTypeExtensionsTest.class.st
@@ -0,0 +1,19 @@
+Class {
+	#name : #ZnMimeTypeExtensionsTest,
+	#superclass : #TestCase,
+	#category : #'Hyperspace-Model-Tests-Extensions'
+}
+
+{ #category : #tests }
+ZnMimeTypeExtensionsTest >> testComparingWithParameters [
+
+	| mimeType equalMimeType |
+
+	mimeType := ZnMimeType fromString: 'application/json;q=1'.
+	equalMimeType := ZnMimeType applicationJson parameterAt: 'q' put: '1'.
+
+	self
+		assert: mimeType equals: equalMimeType;
+		assert: mimeType hash equals: equalMimeType hash;
+		deny: mimeType equals: ZnMimeType applicationJson
+]