factor/extra/bencode/bencode-tests.factor

17 lines
463 B
Factor
Raw Normal View History

USING: bencode linked-assocs tools.test ;
2016-05-10 00:36:19 -04:00
{ "i42e" } [ 42 >bencode ] unit-test
{ "i0e" } [ 0 >bencode ] unit-test
{ "i-42e" } [ -42 >bencode ] unit-test
{ "4:spam" } [ "spam" >bencode ] unit-test
2020-01-08 20:33:11 -05:00
{ "3:\x01\x02\x03" } [ B{ 1 2 3 } >bencode ] unit-test
2020-01-09 14:57:20 -05:00
{ "\x01\x02\x03" } [ B{ 51 58 1 2 3 } bencode> ] unit-test
2020-01-08 20:33:11 -05:00
2016-05-10 00:36:19 -04:00
{ { "spam" 42 } } [ "l4:spami42ee" bencode> ] unit-test
{ LH{ { "bar" "spam" } { "foo" 42 } } } [
2016-05-10 00:36:19 -04:00
"d3:bar4:spam3:fooi42ee" bencode>
] unit-test