refactor suggested in review

ba-st · Apr 21, 2022 · 34cf93d · 34cf93d
1 parent 2443bf2
commit 34cf93d
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/source/Stargate-Model-Tests/CachingDirectivesBuilderTest.class.st b/source/Stargate-Model-Tests/CachingDirectivesBuilderTest.class.st
@@ -45,13 +45,20 @@ CachingDirectivesBuilderTest >> assertThereAre: aNumber directivesFrom: aBuilder
 	self assertExpiresHeaderFor: response with: aDuration
 ]
 
+{ #category : #'private - accessing' }
+CachingDirectivesBuilderTest >> requestContext [
+
+	^ HttpRequestContext new
+]
+
 { #category : #'private - accessing' }
 CachingDirectivesBuilderTest >> responseAffectedBy: directives [
 
-	| response |
+	| response resource |
 
-	response := ZnResponse ok: ( ZnStringEntity text: 'theResource' ).
-	directives do: [ :directive | directive cull: response cull: self cull: self ].
+	resource := 'theResource'.
+	response := ZnResponse ok: ( ZnStringEntity text: resource ).
+	directives do: [ :directive | directive cull: response cull: self requestContext cull: resource ].
 	^ response
 ]