"vocab:images/testing/pam/rgb1x1.pam" binary file-contents 1quotation
[
    binary <byte-writer> dup [
        "vocab:images/testing/pam/rgb1x1.pam" load-image
        pam-image image>stream
    ] with-output-stream B{ } like
] unit-test

"vocab:images/testing/pam/rgba1x1.pam" binary file-contents 1quotation
[
    binary <byte-writer> dup [
        "vocab:images/testing/pam/rgba1x1.pam" load-image
        pam-image image>stream
    ] with-output-stream B{ } like
] unit-test