6 use Test::SQL::Translator;
10 maybe_plan(1, 'SQL::Translator::Parser::XML',
11 'SQL::Translator::Producer::XML');
16 # Producing a schema with a Translator different from the one the schema was
17 # generated should just work. After all the $schema object is just data.
20 my $base_file = "$Bin/data/xml/schema.xml";
21 my $base_t = SQL::Translator->new;
22 $base_t->$_ (1) for qw/add_drop_table no_comments/;
24 # create a base schema attached to $base_t
25 my $base_schema = $base_t->translate (
28 ) or die $base_t->error;
30 # now create a new translator and try to feed it the same schema
31 my $new_t = SQL::Translator->new;
32 $new_t->$_ (1) for qw/add_drop_table no_comments/;
34 my $sql = $new_t->translate (
40 local $TODO = 'This will probably not work before the rewrite';
44 qr/^\s*CREATE TABLE/m, #assume there is at least one create table statement
45 "Received some meaningful output from the producer",