14 lines
445 B
Factor
14 lines
445 B
Factor
|
! Copyright (C) 2009 Keith Lazuka.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: io io.encodings.binary io.files
|
||
|
|
io.streams.byte-array kernel quotations sequences tools.test ;
|
||
|
|
IN: images.testing
|
||
|
|
|
||
|
|
:: encode-test ( path image-class -- )
|
||
|
|
path binary file-contents 1quotation
|
||
|
|
[
|
||
|
|
binary <byte-writer> dup [
|
||
|
|
path load-image image-class image>stream
|
||
|
|
] with-output-stream B{ } like
|
||
|
|
] unit-test ;
|