anchor.diff:          < 200
           < " ++ BadHeaderName ++ ": application/json
           ")
  -    ) || BadHeaderName <- [":", "", "Œ"]].
  +    ) || BadHeaderName <- [":", "", from_utf8(<<"Œ"/utf8>>)]].
   
   
   parse_simple_body_test_() ->
  
positive.code:   #katt_transaction{ request=#katt_request{ method = Method } }.
  
  %% Unindent the blueprint before parsing it.
  parse_unindented(BlueprintString) ->
    parse(unindent(BlueprintString)).
  
  parse(BlueprintString) ->
    try katt_blueprint_parse:string(utf8(BlueprintString)) of
      {ok, BP} -> BP
    catch error:Reason -> {error, Reason}
    end.
  
negative.code: utf8(Chars) ->
    unicode:characters_to_binary(Chars, utf8).
  
  from_utf8(Binary) ->
    unicode:characters_to_list(Binary, utf8).
  
  %% Remove leading spaces from all lines in Str.
  unindent(Binary) ->
    Lines = re:split(Binary, "\n", [{return, list}]),
    F = fun(Line) -> string:strip(Line, left, hd(" ")) end,
    string:join(lists:map(F, Lines), "\n").
  