anchor.diff:          < 200
           < " ++ BadHeaderName ++ ": application/json
           ")
  -    ) || BadHeaderName <- [":", "", "Œ"]].
  +    ) || BadHeaderName <- [":", "", from_utf8(<<"Œ"/utf8>>)]].
   
   
   parse_simple_body_test_() ->
  
positive.code: 
          GET /three
          < 200
          "))
    , ?_assertEqual(
        Expected,
        parse_unindented("
  
          --- API tæst ---
  
  
negative.code:   #katt_transaction{ request=#katt_request{ method = Method } }.
  
  %% Unindent the blueprint before parsing it.
  parse_unindented(BlueprintString) when is_list(BlueprintString) ->
    parse_unindented(utf8(BlueprintString));
  parse_unindented(BlueprintBinary) when is_binary(BlueprintBinary) ->
    parse(unindent(BlueprintBinary)).
  
  parse(BlueprintBinary) ->
    try katt_blueprint_parse:string(BlueprintBinary) of
      {ok, BP} -> BP
    catch error:Reason -> {error, Reason}
    end.
  