#!/usr/bin/perl
use strict;
use warnings;
use Test::XML::Compare tests => 1;
my $tests = [
{
name => 'Comment Ignored',
xml1 => '<foo></foo>',
xml2 => '<foo><!-- Comment --></foo>',
},
];
foreach my $t ( @$tests ) {
is_xml_same($t->{xml1}, $t->{xml2}, $t->{name});
}