[Seaside-dev] WADocumentHandlerTest

[Esteban A. Maringolo]

Hi,

In WADocumentHandlerTest>#createAndVerifyDocumentNamed:content:mimeType:hasAttachement:

	| handler response |
	handler := WADocumentHandler
		document: anObject
		mimeType: aMimeTypeString
		fileName: aFilename.
	self assert: handler document = handler document.
	response := handler response.
	self assert: (self headerAt: 'Expires' forResponse: response) notNil.
	self assert: (self headerAt: 'Content-Disposition' forResponse:
response) = aHttpHeaderValue.
	self assertHttpResponseFrom: response matches: handler

The first assert is idempotent, should it be the following?:

	self assert: handler document = anObject.


Best regards.

-- 
Esteban A. Maringolo
eMaringolo at gmail.com