steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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".
db4
Alec Berryman 2009-12-28 20:05:09 -06:00 committed by Slava Pestov
parent 90422d8835
commit b85d26759a
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/compression/zlib/zlib-tests.factor
View File

@ -1,9 +1,12 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel tools.test compression.zlib classes ; USING: accessors kernel tools.test compression.zlib classes ;
QUALIFIED-WITH: compression.zlib.ffi ffi
IN: compression.zlib.tests IN: compression.zlib.tests
: compress-me ( -- byte-array ) B{ 1 2 3 4 5 } ; : compress-me ( -- byte-array ) B{ 1 2 3 4 5 } ;
[ t ] [ compress-me [ compress uncompress ] keep = ] unit-test [ t ] [ compress-me [ compress uncompress ] keep = ] unit-test
[ t ] [ compress-me compress compressed instance? ] unit-test [ t ] [ compress-me compress compressed instance? ] unit-test
[ ffi:Z_DATA_ERROR zlib-error-message ] [ string>> "data error" = ] must-fail-with

4
basis/compression/zlib/zlib.factor
View File

@ -19,7 +19,9 @@ ERROR: zlib-failed n string ;
dup compression.zlib.ffi:Z_ERRNO = [ dup compression.zlib.ffi:Z_ERRNO = [
drop errno "native libc error" drop errno "native libc error"
] [ ] [
dup { dup
-1 * ! zlib error codes are negative
{
"no error" "libc_error" "no error" "libc_error"
"stream error" "data error" "stream error" "data error"
"memory error" "buffer error" "zlib version error" "memory error" "buffer error" "zlib version error"