3 use Test::SQL::Translator;
8 maybe_plan(1, 'SQL::Translator::Parser::XML',
9 'SQL::Translator::Producer::XML');
12 # It's very hard to read and modify YAML by hand. Thus we
13 # use an XML file for definitions, and generate a YAML from
14 # it in Makefile.PL, so we do not saddle the user with XML
15 # dependencies for testing. This test makes sure they do
20 my $base_xml_fn = "$Bin/data/roundtrip.xml";
21 my $autogen_yaml_fn = "$Bin/data/roundtrip_autogen.yaml";
23 my $orig_xml = _parse_to_xml ($base_xml_fn, 'XML');
24 my $new_xml = _parse_to_xml ($autogen_yaml_fn, 'YAML');
26 eq_or_diff ("$new_xml", "$orig_xml", 'YAML test schema matches original XML schema');
31 my $tr = SQL::Translator->new;
32 $tr->no_comments (1); # this will drop the XML header
34 my $xml = $tr->translate (