use constant DEBUG => (exists $opt{d} ? 1 : 0);
use Test::More;
-use Test::Exception;
+use Test::SQL::Translator;
use SQL::Translator;
use SQL::Translator::Schema::Constants;
-# Usefull test subs for the schema objs
-#=============================================================================
-
-sub test_field {
- my ($f1,$test) = @_;
- unless ($f1) {
- fail " Field '$test->{name}' doesn't exist!";
- # TODO Do a skip on the following tests
- return;
- }
-
- is( $f1->name, $test->{name}, " Field name '$test->{name}'" );
-
- is( $f1->data_type, $test->{data_type}, " Type is '$test->{data_type}'" )
- if exists $test->{data_type};
-
- is( $f1->size, $test->{size}, " Size is '$test->{size}'" )
- if exists $test->{size};
-
- is( $f1->default_value, $test->{default_value},
- " Default value is ".(defined($test->{default_value}) ? "'$test->{default_value}'" : "UNDEF" ) )
- if exists $test->{default_value};
-
- is( $f1->is_nullable, $test->{is_nullable},
- " ".($test->{is_nullable} ? 'can' : 'cannot').' be null' )
- if exists $test->{is_nullable};
-
- is( $f1->is_unique, $test->{is_unique},
- " ".($test->{is_unique} ? 'can' : 'cannot').' be unique' )
- if exists $test->{is_unique};
-
- is( $f1->is_primary_key, $test->{is_primary_key},
- " is ".($test->{is_primary_key} ? '' : 'not').' a primary_key' )
- if exists $test->{is_primary_key};
-
- is( $f1->is_foreign_key, $test->{is_foreign_key},
- " is ".($test->{is_foreign_key} ? '' : 'not').' a foreign_key' )
- if exists $test->{is_foreign_key};
-
- is( $f1->is_auto_increment, $test->{is_auto_increment},
- " is ".($test->{is_auto_increment} ? '' : 'not').' an auto_increment' )
- if exists $test->{is_auto_increment};
-}
-
-sub constraint_ok {
- my ($con,$test) = @_;
- #$test->{name} ||= "<anon>";
-
- if ( exists $test->{name} ) {
- is( $con->name, $test->{name}, " Constraint '$test->{name}'" );
- }
- else {
- ok( $con, " Constraint" );
- }
-
- is( $con->type, $test->{type}, " type is '$test->{type}'" )
- if exists $test->{type};
-
- is( $con->table->name, $test->{table}, " table is '$test->{table}'" )
- if exists $test->{table};
-
- is( join(",",$con->fields), $test->{fields},
- " fields is '$test->{fields}'" )
- if exists $test->{fields};
-
- is( $con->reference_table, $test->{reference_table},
- " reference_table is '$test->{reference_table}'" )
- if exists $test->{reference_table};
-
- is( join(",",$con->reference_fields), $test->{reference_fields},
- " reference_fields is '$test->{reference_fields}'" )
- if exists $test->{reference_fields};
-
- is( $con->match_type, $test->{match_type},
- " match_type is '$test->{match_type}'" )
- if exists $test->{match_type};
-
- is( $con->on_delete_do, $test->{on_delete_do},
- " on_delete_do is '$test->{on_delete_do}'" )
- if exists $test->{on_delete_do};
-
- is( $con->on_update_do, $test->{on_update_do},
- " on_update_do is '$test->{on_update_do}'" )
- if exists $test->{on_update_do};
-}
-
-sub test_table {
- my $tbl = shift;
- my %arg = @_;
- $arg{constraints} ||= [];
- my $name = $arg{name} || die "Need a table name to test.";
-
- my @fldnames = map { $_->{name} } @{$arg{fields}};
- is_deeply( [ map {$_->name} $tbl->get_fields ],
- [ map {$_->{name}} @{$arg{fields}} ],
- "Table $name\'s fields" );
- foreach ( @{$arg{fields}} ) {
- my $name = $_->{name} || die "Need a field name to test.";
- test_field( $tbl->get_field($name), $_ );
- }
-
- if ( my @tcons = @{$arg{constraints}} ) {
- my @cons = $tbl->get_constraints;
- is(scalar(@cons), scalar(@tcons),
- "Table $name has ".scalar(@tcons)." Constraints");
- foreach ( @cons ) {
- my $ans = { table => $tbl->name, %{shift @tcons}};
- constraint_ok( $_, $ans );
- }
- }
-}
-
# Testing 1,2,3,..
#=============================================================================
-plan tests => 151;
+plan tests => 243;
my $testschema = "$Bin/data/xmi/OrderDB.sqlfairy.poseidon2.xmi";
die "Can't find test schema $testschema" unless -e $testschema;
my $sql = $obj->translate;
ok( $sql, "Got some SQL");
print $sql if DEBUG;
+print "Translator:",Dumper($obj) if DEBUG;
#
[qw/Order OrderLine Customer ContactDetails ContactDetails_Customer/]
,"tables");
-test_table( $scma->get_table("Customer"),
+table_ok( $scma->get_table("Customer"), {
name => "Customer",
fields => [
{
name => "name",
data_type => "VARCHAR",
- size => 255,
+ size => 255,
default_value => undef,
is_nullable => 0,
is_primary_key => 0,
{
name => "email",
data_type => "VARCHAR",
- size => 255,
+ size => 255,
default_value => undef,
is_nullable => 1,
is_primary_key => 0,
{
name => "CustomerID",
data_type => "INT",
- size => 10,
+ size => 10,
default_value => undef,
is_nullable => 0,
is_primary_key => 1,
+ is_auto_increment => 1,
},
],
- constraints => [
- {
- type => "PRIMARY KEY",
- fields => "CustomerID",
- },
+ constraints => [
+ {
+ type => "PRIMARY KEY",
+ fields => ["CustomerID"],
+ },
#{
- # name => "UniqueEmail",
- # type => "UNIQUE",
- # fields => "email",
- #},
- ],
-);
+ # name => "UniqueEmail",
+ # type => "UNIQUE",
+ # fields => ["email"],
+ #},
+ ],
+});
-test_table( $scma->get_table("ContactDetails_Customer"),
+table_ok( $scma->get_table("ContactDetails_Customer"), {
name => "ContactDetails_Customer",
fields => [
{
name => "ContactDetailsID",
data_type => "INT",
- size => 10,
+ size => 10,
default_value => undef,
is_nullable => 0,
is_primary_key => 1,
is_auto_increment => 0,
+ is_foreign_key => 1,
},
{
name => "CustomerID",
data_type => "INT",
- size => 10,
+ size => 10,
default_value => undef,
is_nullable => 0,
is_primary_key => 1,
is_auto_increment => 0,
+ is_foreign_key => 1,
},
],
- constraints => [
- {
- type => "FOREIGN KEY",
- fields => "ContactDetailsID",
- reference_table => "ContactDetails",
- reference_fields => "ContactDetailsID",
- },
- {
- type => "FOREIGN KEY",
- fields => "CustomerID",
- reference_table => "Customer",
- reference_fields => "CustomerID",
- },
- {
- type => "PRIMARY KEY",
- fields => "ContactDetailsID,CustomerID",
- },
- ],
-);
+ constraints => [
+ {
+ type => "FOREIGN KEY",
+ fields => ["ContactDetailsID"],
+ reference_table => "ContactDetails",
+ reference_fields => ["ContactDetailsID"],
+ },
+ {
+ type => "FOREIGN KEY",
+ fields => ["CustomerID"],
+ reference_table => "Customer",
+ reference_fields => ["CustomerID"],
+ },
+ {
+ type => "PRIMARY KEY",
+ fields => ["ContactDetailsID","CustomerID"],
+ },
+ ],
+});
-test_table( $scma->get_table("ContactDetails"),
+table_ok( $scma->get_table("ContactDetails"), {
name => "ContactDetails",
fields => [
{
{
name => "ContactDetailsID",
data_type => "INT",
- size => 10,
+ size => 10,
default_value => undef,
is_nullable => 0,
is_primary_key => 1,
is_auto_increment => 1,
},
],
- constraints => [
- {
- type => "PRIMARY KEY",
- fields => "ContactDetailsID",
- },
- ],
-);
+ constraints => [
+ {
+ type => "PRIMARY KEY",
+ fields => ["ContactDetailsID"],
+ },
+ ],
+});
-test_table( $scma->get_table("Order"),
+table_ok( $scma->get_table("Order"), {
name => "Order",
fields => [
{
name => "invoiceNumber",
data_type => "INT",
- size => 10,
+ size => 10,
default_value => undef,
is_nullable => 0,
is_primary_key => 1,
+ is_auto_increment => 1,
},
{
name => "orderDate",
{
name => "CustomerID",
data_type => "INT",
- size => 10,
+ size => 10,
default_value => undef,
is_nullable => 0,
is_primary_key => 0,
is_foreign_key => 1,
},
],
- constraints => [
- {
- type => "PRIMARY KEY",
- fields => "invoiceNumber",
- },
- {
- type => "FOREIGN KEY",
- fields => "CustomerID",
- reference_table => "Customer",
- reference_fields => "CustomerID",
- },
- ],
- # TODO
- #indexes => [
- # {
- # name => "idxOrderDate",
- # type => "INDEX",
- # fields => "orderDate",
- # },
- #],
-);
-
-
-test_table( $scma->get_table("OrderLine"),
+ constraints => [
+ {
+ type => "PRIMARY KEY",
+ fields => ["invoiceNumber"],
+ },
+ {
+ type => "FOREIGN KEY",
+ fields => ["CustomerID"],
+ reference_table => "Customer",
+ reference_fields => ["CustomerID"],
+ },
+ ],
+ # TODO
+ #indexes => [
+ # {
+ # name => "idxOrderDate",
+ # type => "INDEX",
+ # fields => ["orderDate"],
+ # },
+ #],
+});
+
+
+table_ok( $scma->get_table("OrderLine"), {
name => "OrderLine",
fields => [
{
name => "lineNumber",
data_type => "INT",
- size => 255,
+ size => 255,
default_value => 1,
is_nullable => 0,
is_primary_key => 0,
{
name => "quantity",
data_type => "INT",
- size => 255,
+ size => 255,
default_value => 1,
is_nullable => 0,
is_primary_key => 0,
{
name => "OrderLineID",
data_type => "INT",
- size => 10,
+ size => 10,
default_value => undef,
is_nullable => 0,
is_primary_key => 1,
+ is_auto_increment => 1,
},
{
name => "invoiceNumber",
data_type => "INT",
- size => 10,
+ size => 10,
default_value => undef,
is_nullable => 1,
is_primary_key => 1,
},
],
- constraints => [
- {
- type => "PRIMARY KEY",
- fields => "OrderLineID,invoiceNumber",
- },
- {
- type => "FOREIGN KEY",
- fields => "invoiceNumber",
- reference_table => "Order",
- reference_fields => "invoiceNumber",
- },
- ],
-);
+ constraints => [
+ {
+ type => "PRIMARY KEY",
+ fields => ["OrderLineID","invoiceNumber"],
+ },
+ {
+ type => "FOREIGN KEY",
+ fields => ["invoiceNumber"],
+ reference_table => "Order",
+ reference_fields => ["invoiceNumber"],
+ },
+ ],
+});
projects / dbsrgits/SQL-Translator.git / commitdiff