compression.zstd: Add zstd support.

[factor.git] / basis / compression / zstd / zstd-tests.factor

diff --git a/basis/compression/zstd/zstd-tests.factor b/basis/compression/zstd/zstd-tests.factor
new file mode 100644 (file)
index 0000000..73fdbb2
--- /dev/null
+++ b/basis/compression/zstd/zstd-tests.factor
@@ -0,0 +1,17 @@
+! Copyright (C) 2021 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: tools.test compression.zstd ;
+IN: compression.zstd.tests
+
+{ B{ 1 2 3 4 } } [
+    B{ 1 2 3 4 } 5 zstd-compress-level zstd-uncompress
+] unit-test
+
+{ B{ 1 2 3 4 } } [
+    B{ 1 2 3 4 } zstd-compress zstd-uncompress
+] unit-test
+
+! bad compressed buffer, should fail
+[
+    B{ 1 2 3 4 } zstd-uncompress-size
+] [ zstd-error? ] must-fail-with
\ No newline at end of file