carpentry/zlib
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

initial

Browse Source
This commit is contained in:
Veit Heller
2020-01-25 12:21:01 +01:00
parent 57f3c22b32
commit 94406fe88d
7 changed files with 401 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tests/zlib.carp
View File

@@ -6,11 +6,11 @@
(deftest test
(assert-true test
(Result.success? &(deflate @"hi"))
(Result.success? &(deflate "hi"))
"deflation returns success"
)
(assert-true test
(Result.success? &(inflate (Result.unsafe-from-success (deflate @"hi"))))
(Result.success? &(inflate (Result.unsafe-from-success (deflate "hi"))))
"deflation->inflation returns success"
)
(assert-equal test
@@ -20,7 +20,7 @@
)
(assert-equal test
&(Result.Success @"hi")
&(inflate (Result.unsafe-from-success (deflate @"hi")))
&(inflate (Result.unsafe-from-success (deflate "hi")))
"deflation->inflation works"
)
)