8 use Test::More 'no_plan';
10 use SQL::Translator::Schema::Constants;
11 use Test::SQL::Translator qw(maybe_plan table_ok);
14 # maybe_plan(180, "SQL::Translator::Parser::Access");
15 # SQL::Translator::Parser::Access->import('parse');
18 use SQL::Translator::Parser::Access 'parse';
21 my $tr = SQL::Translator->new;
23 my $file = "$Bin/data/access/gdpdm.ddl";
24 open FH, "<$file" or die "Can't read '$file': $!\n";
28 my $val = parse($tr, $data);
29 ok( $val, 'Parsed OK' );
31 my $schema = $tr->schema;
32 is( $schema->is_valid, 1, 'Schema is valid' );
33 my @tables = $schema->get_tables;
34 is( scalar @tables, 24, 'Right number of tables (24)' );
36 my @tblnames = map {$_->name} @tables;
37 is_deeply( \@tblnames,
38 [qw/div_aa_annotation div_allele div_allele_assay div_annotation_type div_exp_entry div_experiment div_generation div_locality div_locus div_marker div_obs_unit div_obs_unit_sample div_passport div_poly_type div_statistic_type div_stock div_stock_parent div_trait div_trait_uom div_treatment div_treatment_uom div_unit_of_measure qtl_trait_ontology qtl_treatment_ontology/]
41 table_ok( $schema->get_table("div_aa_annotation"), {
42 name => "div_aa_annotation",
45 name => "div_aa_annotation_id",
46 data_type => "Long Integer",
50 name => "div_annotation_type_id",
51 data_type => "Long Integer",
55 name => "div_allele_assay_id",
56 data_type => "Long Integer",
60 name => "annotation_value",
67 table_ok( $schema->get_table("div_allele"), {
71 name => "div_allele_id",
72 data_type => "Long Integer",
76 name => "div_obs_unit_sample_id",
77 data_type => "Long Integer",
81 name => "div_allele_assay_id",
82 data_type => "Long Integer",
87 data_type => "Long Integer",
92 data_type => "Long Integer",