factor/basis/compression/zlib/zlib-tests.factor

! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel tools.test compression.zlib classes ;
QUALIFIED-WITH: compression.zlib.ffi ffi

{ t } [ B{ 1 2 3 4 5 } [ compress uncompress ] keep = ] unit-test

[ ffi::Z_DATA_ERROR zlib-error-message ] [ string>> "data error" = ] must-fail-with
move zlib to zlib.compression and update 2009-02-12 23:13:34 -05:00			`! Copyright (C) 2009 Doug Coleman.`
			`! See http://factorcode.org/license.txt for BSD license.`
Fix zlib-error-message to include human-readable version The error string is looked up in an array, but because zlib error codes are negative, the error's string was always "f". 2009-12-28 21:05:09 -05:00			`USING: accessors kernel tools.test compression.zlib classes ;`
			`QUALIFIED-WITH: compression.zlib.ffi ffi`
move zlib to zlib.compression and update 2009-02-12 23:13:34 -05:00
more test IN: cleanup. 2018-02-25 18:44:16 -05:00			`{ t } [ B{ 1 2 3 4 5 } [ compress uncompress ] keep = ] unit-test`
Fix zlib-error-message to include human-readable version The error string is looked up in an array, but because zlib error codes are negative, the error's string was always "f". 2009-12-28 21:05:09 -05:00
factor: vocab:word -> vocab::word 2017-12-29 02:31:02 -05:00			`[ ffi::Z_DATA_ERROR zlib-error-message ] [ string>> "data error" = ] must-fail-with`