Login
7 branches 0 tags
Ben (X13/Arch) Improved Image support 699a89f 2 years ago 1115 Commits
nujel / tests / testsuite / image.nuj
(-123 (image/deserialize (image/serialize -123)))
(123 (image/deserialize (image/serialize 123)))
(123.321 (image/deserialize (image/serialize 123.321)))
(#f (image/deserialize (image/serialize #f)))
(#t (image/deserialize (image/serialize #t)))
(" 0123" (buffer->string (image/deserialize (image/serialize #m2030313233))))
("asdq" (image/deserialize (image/serialize "asdq")))
("asdq" (image/deserialize (image/serialize "asdq")))
("asd" (image/deserialize (image/serialize "asd")))
("" (image/deserialize (image/serialize "")))
('(1 2 3) (image/deserialize (image/serialize '(1 2 3))))
('(1 "qwe" :asd) (image/deserialize (image/serialize '(1 "qwe" :asd))))
([1 2 3] (image/deserialize (image/serialize [1 2 3])))
([1 "qwe" :asd] (image/deserialize (image/serialize [1 "qwe" :asd])))
([['(1 2 3)] "qwe" :asd] (image/deserialize (image/serialize [['(1 2 3)] "qwe" :asd])))
({:a 1 :b 2 :c 3} (image/deserialize (image/serialize {:a 1 :b 2 :c 3})))
(Int (image/deserialize (image/serialize Int)))
(nreverse (image/deserialize (image/serialize nreverse)))