extra/pack/pack-tests.factor

   1 USING: io io.streams.string kernel namespaces pack strings tools.test ;
   2
   3 [ B{ 1 0 2 0 0 3 0 0 0 4 0 0 0 0 0 0 0 5 } ] [
   4     { 1 2 3 4 5 }
   5     "cstiq" pack-be
   6 ] unit-test
   7
   8 [ { 1 2 3 4 5 } ] [
   9     { 1 2 3 4 5 }
  10     "cstiq" [ pack-be ] keep unpack-be
  11 ] unit-test
  12
  13 [ B{ 1 2 0 3 0 0 4 0 0 0 5 0 0 0 0 0 0 0 } ] [
  14     [
  15         { 1 2 3 4 5 } "cstiq" pack-le
  16     ] with-scope
  17 ] unit-test
  18
  19 [ { 1 2 3 4 5 } ] [
  20     { 1 2 3 4 5 }
  21     "cstiq" [ pack-le ] keep unpack-le
  22 ] unit-test
  23
  24 [ { -1 -2 -3 -4 -5 } ] [
  25     { -1 -2 -3 -4 -5 }
  26     "cstiq" [ pack-le ] keep unpack-le
  27 ] unit-test
  28
  29 [ { -1 -2 -3 -4 -5 3.14 } ] [
  30     { -1 -2 -3 -4 -5 3.14 }
  31     "cstiqd" [ pack-be ] keep unpack-be
  32 ] unit-test
  33
  34 [ { -1 -2 -3 -4 -5 } ] [
  35     { -1 -2 -3 -4 -5 }
  36     "cstiq" [ pack-native ] keep unpack-native
  37 ] unit-test
  38
  39 [ 2 ] [
  40     [ 2 "int" b, ] B{ } make
  41     <string-reader> [ "int" read-native ] with-input-stream
  42 ] unit-test
  43
  44 [ "FRAM" ] [ "FRAM\0" [ read-c-string ] with-string-reader ] unit-test
  45 [ f ] [ "" [ read-c-string ] with-string-reader ] unit-test
  46 [ 5 ] [ "FRAM\0\u000005\0\0\0\0\0\0\0" [ read-c-string drop read-u64 ] with-string-reader ] unit-test
  47