# Tests that;
#
+use strict;
use Test::More;
use Test::Exception;
use strict;
use Data::Dumper;
-our %opt;
+my %opt;
BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
use constant DEBUG => (exists $opt{d} ? 1 : 0);
local $SIG{__WARN__} = sub { diag "[warn] ", @_; };
# Usefull test subs for the schema objs
#=============================================================================
-our %ATTRIBUTES;
+my %ATTRIBUTES;
$ATTRIBUTES{field} = [qw/
name
-order
data_type
default_value
size
# Testing 1,2,3,4...
#=============================================================================
-plan tests => 89;
+plan tests => 162;
use SQL::Translator;
use SQL::Translator::Schema::Constants;
-# Parse the test XML schema
-our $obj;
-$obj = SQL::Translator->new(
- debug => DEBUG,
- show_warnings => 1,
- add_drop_table => 1,
-);
-my $testschema = "$Bin/data/xml/schema-basic.xml";
-die "Can't find test schema $testschema" unless -e $testschema;
-my $sql = $obj->translate(
- from => "SqlfXML",
- to =>"MySQL",
- filename => $testschema,
-);
-print $sql if DEBUG;
-#print "Debug:", Dumper($obj) if DEBUG;
-
-# Test the schema objs generted from the XML
-#
-my $scma = $obj->schema;
-my @tblnames = map {$_->name} $scma->get_tables;
-is_deeply( \@tblnames, [qw/Basic/], "tables");
-
-# Basic
-my $tbl = $scma->get_table("Basic");
-is $tbl->order, 1, "Basic->order";
-is_deeply( [map {$_->name} $tbl->get_fields], [qw/
- id title description email explicitnulldef explicitemptystring singletagdef
-/] , "Table Basic's fields");
-test_field($tbl->get_field("id"),{
- name => "id",
- order => 1,
- data_type => "int",
- default_value => undef,
- is_nullable => 0,
- size => 10,
- is_primary_key => 1,
- is_auto_increment => 1,
-});
-test_field($tbl->get_field("title"),{
- name => "title",
- order => 2,
- data_type => "varchar",
- is_nullable => 0,
- default_value => "hello",
- size => 100,
-});
-test_field($tbl->get_field("description"),{
- name => "description",
- order => 3,
- data_type => "text",
- is_nullable => 1,
- default_value => "",
-});
-test_field($tbl->get_field("email"),{
- name => "email",
- order => 4,
- data_type => "varchar",
- size => 255,
- is_unique => 1,
- default_value => undef,
- is_nullable => 1,
-});
-test_field($tbl->get_field("explicitnulldef"),{
- name => "explicitnulldef",
- order => 5,
- data_type => "varchar",
- default_value => undef,
- is_nullable => 1,
-});
-test_field($tbl->get_field("explicitemptystring"),{
- name => "explicitemptystring",
- order => 6,
- data_type => "varchar",
- default_value => "",
- is_nullable => 1,
-});
-test_field($tbl->get_field("singletagdef"),{
- name => "singletagdef",
- order => 7,
- data_type => "varchar",
- default_value => "",
- is_nullable => 1,
-});
-
-my @indices = $tbl->get_indices;
-is scalar(@indices), 1, "Table basic has 1 index";
-
-my @constraints = $tbl->get_constraints;
-is scalar(@constraints), 2, "Table basic has 2 constraints";
-my $con = shift @constraints;
-is $con->table, $tbl, "Constaints table right";
-is $con->name, "", "Constaints table right";
-is $con->type, PRIMARY_KEY, "Constaint is primary key";
-is_deeply [$con->fields], ["id"], "Constaint fields";
-$con = shift @constraints;
-is $con->table, $tbl, "Constaints table right";
-is $con->type, UNIQUE, "Constaint UNIQUE";
-is_deeply [$con->fields], ["email"], "Constaint fields";
+foreach (
+ "$Bin/data/xml/schema-basic.xml",
+ "$Bin/data/xml/schema-basic-attribs.xml"
+) {
+ do_file($_);
+}
+
+sub do_file {
+ my $testschema = shift;
+ # Parse the test XML schema
+ my $obj;
+ $obj = SQL::Translator->new(
+ debug => DEBUG,
+ show_warnings => 1,
+ add_drop_table => 1,
+ );
+ die "Can't find test schema $testschema" unless -e $testschema;
+ my $sql = $obj->translate(
+ from => 'XML-SQLFairy',
+ to => 'MySQL',
+ filename => $testschema,
+ );
+ print $sql if DEBUG;
+ #print "Debug:", Dumper($obj) if DEBUG;
+
+ # Test the schema objs generted from the XML
+ #
+ my $scma = $obj->schema;
+ my @tblnames = map {$_->name} $scma->get_tables;
+ is_deeply( \@tblnames, [qw/Basic/], "tables");
+
+ # Basic
+ my $tbl = $scma->get_table("Basic");
+ is_deeply( [map {$_->name} $tbl->get_fields], [qw/
+ id title description email explicitnulldef explicitemptystring emptytagdef
+ /] , "Table Basic's fields");
+ test_field($tbl->get_field("id"),{
+ name => "id",
+ data_type => "int",
+ default_value => undef,
+ is_nullable => 0,
+ size => 10,
+ is_primary_key => 1,
+ is_auto_increment => 1,
+ });
+ test_field($tbl->get_field("title"),{
+ name => "title",
+ data_type => "varchar",
+ is_nullable => 0,
+ default_value => "hello",
+ size => 100,
+ });
+ test_field($tbl->get_field("description"),{
+ name => "description",
+ data_type => "text",
+ is_nullable => 1,
+ default_value => "",
+ });
+ test_field($tbl->get_field("email"),{
+ name => "email",
+ data_type => "varchar",
+ size => 255,
+ is_unique => 1,
+ default_value => undef,
+ is_nullable => 1,
+ });
+ test_field($tbl->get_field("explicitnulldef"),{
+ name => "explicitnulldef",
+ data_type => "varchar",
+ default_value => undef,
+ is_nullable => 1,
+ });
+ test_field($tbl->get_field("explicitemptystring"),{
+ name => "explicitemptystring",
+ data_type => "varchar",
+ default_value => "",
+ is_nullable => 1,
+ });
+ test_field($tbl->get_field("emptytagdef"),{
+ name => "emptytagdef",
+ data_type => "varchar",
+ default_value => "",
+ is_nullable => 1,
+ });
+
+ my @indices = $tbl->get_indices;
+ is scalar(@indices), 1, "Table basic has 1 index";
+
+ my @constraints = $tbl->get_constraints;
+ is scalar(@constraints), 2, "Table basic has 2 constraints";
+ my $con = shift @constraints;
+ is $con->table, $tbl, "Constaints table right";
+ is $con->name, "", "Constaints table right";
+ is $con->type, PRIMARY_KEY, "Constaint is primary key";
+ is_deeply [$con->fields], ["id"], "Constaint fields";
+ $con = shift @constraints;
+ is $con->table, $tbl, "Constaints table right";
+ is $con->type, UNIQUE, "Constaint UNIQUE";
+ is_deeply [$con->fields], ["email"], "Constaint fields";
+} # /Test of schema
projects / dbsrgits/SQL-Translator.git / blobdiff