extra/bencode/bencode-tests.factor

   1 USING: bencode 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 { { "spam" 42 } } [ "l4:spami42ee" bencode> ] unit-test
  10
  11 { H{ { "bar" "spam" } { "foo" 42 } } } [
  12     "d3:bar4:spam3:fooi42ee" bencode>
  13 ] unit-test