extra/msgpack/msgpack-tests.factor

   1 USING: io.streams.string kernel math sequences tools.test ;
   2
   3 IN: msgpack
   4
   5 {
   6     {
   7         +msgpack-nil+
   8         f
   9         t
  10         -1
  11         -31
  12         128
  13         -1152921504606846976
  14         1.5
  15         1.23434536
  16         "hello"
  17         { 1 1234 123456789 }
  18         H{ { 1 "hello" } { 2 "goodbye" } }
  19     }
  20 } [
  21
  22     {
  23         "\xc0"
  24         "\xc2"
  25         "\xc3"
  26         "\xff"
  27         "\xe1"
  28         "\xcc\x80"
  29         "\xd3\xf0\x00\x00\x00\x00\x00\x00\x00"
  30         "\xcb?\xf8\x00\x00\x00\x00\x00\x00"
  31         "\xcb?\xf3\xbf\xe0\xeb\x92\xb5\xa5"
  32         "\xa5hello"
  33         "\x93\x01\xcd\x04\xd2\xce\x07[\xcd\x15"
  34         "\x82\x01\xa5hello\x02\xa7goodbye"
  35     } [ msgpack> ] map
  36 ] unit-test
  37
  38 { t } [
  39     {
  40         +msgpack-nil+
  41         f
  42         t
  43         -1
  44         -31
  45         128
  46         -1152921504606846976
  47         1.5
  48         1.23434536
  49         "hello"
  50         { 1 1234 123456789 }
  51         H{ { 1 "hello" } { 2 "goodbye" } }
  52     } [ dup >msgpack msgpack> = ] all?
  53 ] unit-test
  54
  55 [ 64 2^ >msgpack ] [ cannot-convert? ] must-fail-with