needs tests/harness io/core ar/ungz
testbegin

\test ungz hello.gz
create _expected ,"Hello from compressed file!"
create _resultbuf $20 allot
p"data/tests/hello.gz" fileread ( rd )
_resultbuf $20 memwrite ( rd wr )
ungz ( err ) 0 #eq
_resultbuf 27 "Hello from compressed file!" #[]s=
testend