#!/usr/bin/perl
# vim: set ft=perl:
#
use strict;
use FindBin '$Bin';
use Test::More 'no_plan';
use SQL::Translator;
use SQL::Translator::Schema::Constants;
use Test::SQL::Translator qw(maybe_plan table_ok);
#BEGIN {
# maybe_plan(180, "SQL::Translator::Parser::Access");
# SQL::Translator::Parser::Access->import('parse');
#}
use SQL::Translator::Parser::Access 'parse';
{
my $tr = SQL::Translator->new;
my $file = "$Bin/data/access/gdpdm.ddl";
open FH, "<$file" or die "Can't read '$file': $!\n";
local $/;
my $data = <FH>;
close FH;
my $val = parse($tr, $data);
ok( $val, 'Parsed OK' );
my $schema = $tr->schema;
is( $schema->is_valid, 1, 'Schema is valid' );
my @tables = $schema->get_tables;
is( scalar @tables, 24, 'Right number of tables (24)' );
my @tblnames = map {$_->name} @tables;
is_deeply( \@tblnames,
[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/]
,"tables");
table_ok( $schema->get_table("div_aa_annotation"), {
name => "div_aa_annotation",
fields => [
{
name => "div_aa_annotation_id",
data_type => "Long Integer",
size => 4,
},
{
name => "div_annotation_type_id",
data_type => "Long Integer",
size => 4,
},
{
name => "div_allele_assay_id",
data_type => "Long Integer",
size => 4,
},
{
name => "annotation_value",
data_type => "Text",
size => 50,
},
],
});
table_ok( $schema->get_table("div_allele"), {
name => "div_allele",
fields => [
{
name => "div_allele_id",
data_type => "Long Integer",
size => 4,
},
{
name => "div_obs_unit_sample_id",
data_type => "Long Integer",
size => 4,
},
{
name => "div_allele_assay_id",
data_type => "Long Integer",
size => 4,
},
{
name => "allele_num",
data_type => "Long Integer",
size => 4,
},
{
name => "quality",
data_type => "Long Integer",
size => 4,
},
{
name => "value",
data_type => "Text",
size => 50,
},
],
});
}