anchor.diff:  	     -234, -50000,
   	     42
   	    ],
  -    receive
  -	{Port, {data, Data}}-> compare_all(Tests, msgpack:unpack_all(Data))
  -    after 1024-> ?assert(false)  end,
  +    ?assertEqual(ok, compare_all(Tests, msgpack:unpack_all(port_receive(Port)))),
       port_close(Port).
   
   other_test()->
  
positive.code:     ?assertEqual(LH, RH),
      compare_all(LTL, RTL).
  
  test_([]) -> 0;
  test_([Term|Rest])->
      Pack = msgpack:pack(Term),
  
negative.code:     Passed = length(Tests).
  
  port_test()->
      Tests = test_data(),
      ?assertEqual({[Tests],<<>>}, msgpack:unpack(msgpack:pack([Tests]))),
  
      Port = open_port({spawn, "ruby ../test/crosslang.rb"}, [binary, eof]),
      true = port_command(Port, msgpack:pack(Tests)),
      ?assertEqual({Tests, <<>>}, msgpack:unpack(port_receive(Port))),
      port_close(Port).
  
  test_p(Len,Term,OrigBin,Len) ->
  