#badRequest:[entity:] can create mock reponse.

Passing nil as first arg uses the actual request, late-bound fashion.

src/Znock/ZnResponse.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #ZnResponse }
+
+{ #category : #'*Znock' }
+ZnResponse >> customizeFrom: otherZnResponse [
+	self statusLine: otherZnResponse statusLine.
+	self entity ifNil: [ self entity: otherZnResponse entity ]
+]

src/Znock/ZnockBase.class.st

@@ -18,6 +18,24 @@ ZnockBase class >> in: aZnock url: aZnUrl [
 		yourself
 ]
 
+{ #category : #public }
+ZnockBase >> badRequest: aZnRequest [
+	aZnRequest
+		ifNotNil: [ self response: (ZnResponse badRequest: aZnRequest) ]
+		ifNil: [ self response: (ZnResponse statusLine: ZnStatusLine ok).
+			builtClient customizeResponseBlock: [ :req :res |
+				res customizeFrom: (ZnResponse badRequest: req) ] ]
+]
+
+{ #category : #public }
+ZnockBase >> badRequest: aZnRequest entity: aZnEntity [
+	aZnRequest
+		ifNotNil: [ self response: (ZnResponse badRequest: aZnRequest entity: aZnEntity) ]
+		ifNil: [ self response: (ZnResponse statusLine: ZnStatusLine ok).
+			builtClient customizeResponseBlock: [ :req :res |
+				res customizeFrom: (ZnResponse badRequest: req entity: aZnEntity) ] ]
+]
+
 { #category : #accessing }
 ZnockBase >> baseUrl [
 	^ baseUrl