save-as-reference-image ( path -- )
Testing image encoders and decoders

Prev:	encode-test ( path image-class -- )
Next:	image. ( object -- )

Vocabulary
images.testing

Inputs

path	a pathname string

Outputs
None

Word description
Saves a Reference image for the image at path.

Warning
You should only call this word after you have manually verified that the image at path decodes and renders correctly!

Definition

USING: images.loader images.testing.private io.encodings.binary
io.files kernel serialize ;

IN: images.testing

: save-as-reference-image ( path -- )
    [ load-image ] [ fig-name ] bi binary
    [ serialize ] with-file-writer ;