Give HOP-Extra a test package

source/BaselineOfHOP/BaselineOfHOP.class.st

@@ -20,6 +20,8 @@ BaselineOfHOP >> baseline: spec [
 				spec requires: #('HOP-Core') ];
 			package: 'HOP-Extra' with: [ 
 				spec requires: #('HOP-Core') ];
+			package: 'HOP-Extra-Tests' with: [ 
+				spec requires: #('HOP-Extra') ];
 			package: 'HOP-Roassal' with: [ 
 				spec requires: #('HOP-Core') ] ]
 ]

source/HOP-Extra-Tests/HOPTestZincHandler.class.st

@@ -0,0 +1,26 @@
+Class {
+	#name : 'HOPTestZincHandler',
+	#superclass : 'Object',
+	#instVars : [
+		'answer',
+		'seenRequest'
+	],
+	#category : 'HOP-Extra-Tests',
+	#package : 'HOP-Extra-Tests'
+}
+
+{ #category : 'accessing' }
+HOPTestZincHandler >> answer: aString [
+	answer := aString
+]
+
+{ #category : 'public' }
+HOPTestZincHandler >> handleRequest: aRequest [
+	seenRequest := aRequest.
+	^ ZnResponse ok: (ZnEntity text: answer)
+]
+
+{ #category : 'accessing' }
+HOPTestZincHandler >> seenRequest [
+	^ seenRequest
+]

source/HOP-Extra-Tests/HOPZincHandlerAdaptorTest.class.st

@@ -0,0 +1,29 @@
+Class {
+	#name : 'HOPZincHandlerAdaptorTest',
+	#superclass : 'TestCase',
+	#category : 'HOP-Extra-Tests',
+	#package : 'HOP-Extra-Tests'
+}
+
+{ #category : 'tests' }
+HOPZincHandlerAdaptorTest >> testAHandlerClassStillGivesAFreshOnePerRequest [
+	"Unchanged for every route that names a class, which is all of them today: each request gets
+	its own handler and nothing is carried between them."
+	| adaptor |
+	adaptor := HOPZincHandlerAdaptor new handlerClass: HOPTestZincHandler; yourself.
+	self deny: adaptor handler identicalTo: adaptor handler
+]
+
+{ #category : 'tests' }
+HOPZincHandlerAdaptorTest >> testAPreparedHandlerIsTheOneThatAnswers [
+	"The point of taking an object rather than a class: whoever builds the route can prepare the
+	handler, and that same prepared object answers the request."
+	| handler adaptor request |
+	handler := HOPTestZincHandler new answer: 'prepared'; yourself.
+	adaptor := HOPZincHandlerAdaptor new handler: handler; yourself.
+	request := ZnRequest get: '/anything'.
+	self
+		assert: (adaptor handleRoute: (HOPRouteMatch new request: request; yourself)) entity contents
+		equals: 'prepared'.
+	self assert: handler seenRequest identicalTo: request
+]

source/HOP-Extra-Tests/package.st

@@ -0,0 +1 @@
+Package { #name : 'HOP-Extra-Tests' }