basis/compression/zstd/zstd-tests.factor

   1 ! Copyright (C) 2021 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test compression.zstd ;
   4 IN: compression.zstd.tests
   5
   6 { B{ 1 2 3 4 } } [
   7     B{ 1 2 3 4 } 5 zstd-compress-level zstd-uncompress
   8 ] unit-test
   9
  10 { B{ 1 2 3 4 } } [
  11     B{ 1 2 3 4 } zstd-compress zstd-uncompress
  12 ] unit-test
  13
  14 ! bad compressed buffer, should fail
  15 [
  16     B{ 1 2 3 4 } zstd-uncompress-size
  17 ] [ zstd-error? ] must-fail-with
  18