extra/bencode/bencode-tests.factor

   1 USING: bencode linked-assocs tools.test ;
   2
   3 { "i42e" } [ 42 >bencode ] unit-test
   4 { "i0e" } [ 0 >bencode ] unit-test
   5 { "i-42e" } [ -42 >bencode ] unit-test
   6
   7 { "4:spam" } [ "spam" >bencode ] unit-test
   8
   9 { "3:\x01\x02\x03" } [ B{ 1 2 3 } >bencode ] unit-test
  10 { "\x01\x02\x03" } [ B{ 51 58 1 2 3 } bencode> ] unit-test
  11
  12 { { "spam" 42 } } [ "l4:spami42ee" bencode> ] unit-test
  13
  14 { LH{ { "bar" "spam" } { "foo" 42 } } } [
  15     "d3:bar4:spam3:fooi42ee" bencode>
  16 ] unit-test