[Seaside] Simple canvas for testing?

[Michel Bany]

On 20 Feb 2007, at 20:51 , Boris Popov wrote:

> Is there a simple way of creating a clean fully-functional render  
> canvas
> for testing purposes? Say,
>
> html := WARenderCanvas empty.
> element printContentOn: html.
> self assert: html contents = '<em>Hello</em>'
>

Not a simple way, but this should do something close.

	| context callbacks renderer stream element |
	context := WARenderingContext new document: ((WAHtmlStreamDocument new)
						bodyStream;
						yourself).
	callbacks := WACallbackRegistry context: context owner: nil.
	renderer := WARenderCanvas context: context callbacks: callbacks.
	stream := String new writeStream.
	renderer context document stream: stream.
	renderer forgetCurrentBrush.
	renderer render: element.
	stream contents inspect.

HTH
Michel.