5 use Test::More qw/no_plan/;
11 # Producing a schema with a Translator different from the one the schema was
12 # generated should just work. After all the $schema object is just data.
15 my $base_file = "$Bin/data/xml/schema.xml";
16 my $base_t = SQL::Translator->new;
17 $base_t->$_ (1) for qw/add_drop_table no_comments/;
19 # create a base schema attached to $base_t
20 my $base_schema = $base_t->translate (
23 ) or die $base_t->error;
25 # now create a new translator and try to feed it the same schema
26 my $new_t = SQL::Translator->new;
27 $new_t->$_ (1) for qw/add_drop_table no_comments/;
29 my $sql = $new_t->translate (
35 local $TODO = 'This will probably not work before the rewrite';
39 qr/^\s*CREATE TABLE/m, #assume there is at least one create table statement
40 "Received some meaningful output from the producer",