From 34cf93dc7a0b89a718e7d9f81805cd1577169018 Mon Sep 17 00:00:00 2001 From: Juan Vanecek Date: Thu, 21 Apr 2022 09:09:03 -0300 Subject: [PATCH] refactor suggested in review --- .../CachingDirectivesBuilderTest.class.st | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/source/Stargate-Model-Tests/CachingDirectivesBuilderTest.class.st b/source/Stargate-Model-Tests/CachingDirectivesBuilderTest.class.st index 060d26d..1204c46 100644 --- 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 ]