extra/bencode/bencode-tests.factor

   1 USING: tools.test ;
   2 IN: bencode
   3
   4 { "i42e" } [ 42 >bencode ] unit-test
   5 { "i0e" } [ 0 >bencode ] unit-test
   6 { "i-42e" } [ -42 >bencode ] unit-test
   7
   8 { "4:spam" } [ "spam" >bencode ] unit-test
   9
  10 { { "spam" 42 } } [ "l4:spami42ee" bencode> ] unit-test
  11
  12 { H{ { "bar" "spam" } { "foo" 42 } } } [
  13     "d3:bar4:spam3:fooi42ee" bencode>
  14 ] unit-test