basis/compression/snappy/snappy-tests.factor

   1 ! Copyright (C) 2014 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays byte-arrays compression.snappy kernel tools.test ;
   4 IN: compression.snappy.tests
   5
   6 { t } [
   7     1000 2 <array> >byte-array [ snappy-compress snappy-uncompress ] keep =
   8 ] unit-test
   9
  10 { t } [
  11     B{ } [ snappy-compress snappy-uncompress ] keep =
  12 ] unit-test
  13
  14 { t } [
  15     B{ 1 } [ snappy-compress snappy-uncompress ] keep =
  16 ] unit-test
  17
  18 { t } [
  19     B{ 1 2 } [ snappy-compress snappy-uncompress ] keep =
  20 ] unit-test
  21
  22 { t } [
  23     B{ 1 2 3 } [ snappy-compress snappy-uncompress ] keep =
  24 ] unit-test