anchor.diff:       manpage, otp_6708, otp_7084, otp_7421,
        io_lib_collect_line_3_wb, cr_whitespace_in_string,
        io_fread_newlines, otp_8989, io_lib_fread_literal,
  +     printable_range,
        io_lib_print_binary_depth_one, otp_10302, otp_10755, otp_10836].
   
   groups() -> 
  
positive.code:          manpage/1, otp_6708/1, otp_7084/1, otp_7421/1,
  	 io_lib_collect_line_3_wb/1, cr_whitespace_in_string/1,
  	 io_fread_newlines/1, otp_8989/1, io_lib_fread_literal/1,
  	 io_lib_print_binary_depth_one/1, otp_10302/1, otp_10755/1,
  	 otp_10836/1]).
  
  %-define(debug, true).
  
  
negative.code: otp_10302(doc) ->
      "OTP-10302. Unicode";
  otp_10302(Suite) when is_list(Suite) ->
      Pa = filename:dirname(code:which(?MODULE)),
      {ok, UNode} = test_server:start_node(printable_range_unicode, slave, 
  					 [{args, " +pc unicode -pa " ++ Pa}]),
      {ok, LNode} = test_server:start_node(printable_range_latin1, slave, 
  					 [{args, " +pc latin1 -pa " ++ Pa}]),
      "\"\x{400}\"" = rpc:call(UNode,?MODULE,pretty,["\x{400}", -1]),
      "<<\"\x{400}\"/utf8>>" = rpc:call(UNode,?MODULE,pretty,[<<"\x{400}"/utf8>>, -1]),
  
      "<<\"\x{400}foo\"/utf8>>" = rpc:call(UNode,?MODULE,pretty,[<<"\x{400}foo"/utf8>>, 2]),
      "[1024]" = rpc:call(LNode,?MODULE,pretty,["\x{400}", -1]),
      "<<208,128>>" = rpc:call(LNode,?MODULE,pretty,[<<"\x{400}"/utf8>>, -1]),
  
      "<<208,...>>" = rpc:call(LNode,?MODULE,pretty,[<<"\x{400}foo"/utf8>>, 2]),
      test_server:stop_node(UNode),
      test_server:stop_node(LNode),
  
      "<<\"äppl\"/utf8>>" = pretty(<<"äppl"/utf8>>, 2),
      "<<\"äppl\"/utf8...>>" = pretty(<<"äpple"/utf8>>, 2),
      "<<\"apel\">>" = pretty(<<"apel">>, 2),
  