XML element equality assertion ignoring attribute / subelement ordering (using https://github.com/esl/exml data structures)

exml_assert.hrl

%% See assertEqual in $ERLANG/lib/stdlib-2.6/include/assert.hrl for the original.
-define(exmlAssertEqual(Example, Expr),
        begin
            ((fun (__X, __V) ->
                      case __V of
                          __X -> ok;
                          __V -> erlang:error({exmlAssertEqual,
                                               [{module, ?MODULE},
                                                {line, ?LINE},
                                                {expression, (??Expr)},
                                                {expected, __X},
                                                {value, __V}]})
                      end
              end)(xml_sort((Example)), xml_sort((Expr))))
        end).

xml_sort({xmlcdata, _} = CData) -> CData;
xml_sort(#xmlstreamstart{attrs = Attrs} = StreamStart) ->
    StreamStart#xmlstreamstart{attrs = lists:sort(Attrs)};
xml_sort(#xmlel{} = El) ->
    #xmlel{attrs = Attrs, children = Children} = El,
    El#xmlel{attrs = lists:sor    children = [ xml_sort(C) || C <- Children ]};
xml_sort({xml_element_start, Name, NSs, Attrs} = ElementStart) ->
    {xml_element_start, Name, lists:sort(NSs), lists:sort(Attrs)};
xml_sort(Elements) when is_list(Elements) ->
    [ xml_sort(E) || E <- Elements ].