Merge pull request #18 from ba-st/set-if-match-on-ZnClient

Add `setIfMatchTo:` to `ZnClient`
ba-st · Oct 7, 2019 · 8b1b37e · 8b1b37e
2 parents 14602ad + 8843fb5
commit 8b1b37e
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/source/Hyperspace-Model-Tests/ZnClientExtensionsTest.class.st b/source/Hyperspace-Model-Tests/ZnClientExtensionsTest.class.st
@@ -15,3 +15,15 @@ ZnClientExtensionsTest >> testSetAccept [
 	client setAccept: ZnMimeType applicationPdf.
 	self assert: client request accept equals: ZnMimeType applicationPdf asString
 ]
+
+{ #category : #tests }
+ZnClientExtensionsTest >> testSetIfMatchTo [
+
+	| client |
+
+	client := ZnClient new.
+
+	self should: [ client request headers at: #'If-Match' ] raise: KeyNotFound.
+	client setIfMatchTo: ( ZnETag with: '12345' ).
+	self assert: ( client request headers at: #'If-Match' ) equals: '"12345"'
+]
diff --git a/source/Hyperspace-Model/ZnClient.extension.st b/source/Hyperspace-Model/ZnClient.extension.st
@@ -5,3 +5,9 @@ ZnClient >> setAccept: object [
 
 	request setAccept: object
 ]
+
+{ #category : #'*Hyperspace-Model' }
+ZnClient >> setIfMatchTo: etag [
+
+	request setIfMatchTo: etag
+]