use strict;
use Test::More tests => 1;
use File::Spec;
BEGIN {
my $tt = File::Spec->catfile( 't', 'sqlite', 'ext.tt' );
require Bigtop::Parser;
Bigtop::Parser->import("SQL=MySQL=$tt");
}
my $bigtop_string = join '', <DATA>;
my $tree = Bigtop::Parser->parse_string($bigtop_string);
my $lookup = $tree->{application}{lookup};
my $output = $tree->walk_postorder( 'output_sql_mysql', $lookup );
my @sql = split /\n/, join '', @{ $output };
my @correct_sql = split /\n/, <<'EO_CORRECT_SQL';
CREATE TABLE payeepayor {
id = MEDIUMINT:PRIMARY KEY:AUTO_INCREMENT;
}
EO_CORRECT_SQL
is_deeply( \@sql, \@correct_sql, 'external template' );
__DATA__
config { }
app Apps::Checkbook {
table payeepayor {
field id { is int4, primary_key, assign_by_sequence; }
}
}