Added _attributes class data to SQL::Translator::Schema::Object for sub classes

[dbsrgits/SQL-Translator.git] / t / 16xml-parser.t

#!/usr/bin/perl -w 
# vim:filetype=perl

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
#
# Run script with -d for debug.

use strict;

use FindBin qw/$Bin/;

use Test::More;
use Test::SQL::Translator;
use Test::Exception;
use Data::Dumper;
use SQL::Translator;
use SQL::Translator::Schema::Constants;

# Simple options. -d for debug
my %opt;
BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
use constant DEBUG => (exists $opt{d} ? 1 : 0);


# Testing 1,2,3,4...
#=============================================================================

BEGIN {
    maybe_plan(142, 'SQL::Translator::Parser::XML::SQLFairy');
}

my $testschema = "$Bin/data/xml/schema.xml";

my $sqlt;
$sqlt = SQL::Translator->new(
    debug          => DEBUG,
    show_warnings  => 1,
    add_drop_table => 1,
);
die "Can't find test schema $testschema" unless -e $testschema;
my $sql = $sqlt->translate(
    from     => 'XML-SQLFairy',
    to       => 'MySQL',
    filename => $testschema,
) or die $sqlt->error;
print $sql if DEBUG;

# Test the schema objs generted from the XML
#
my $scma = $sqlt->schema;

# Hmmm, when using schema_ok the field test data gets a bit too nested and
# fiddly to work with. (See 28xml-xmi-parser-sqlfairy.t for more a split out
# version)
schema_ok( $scma, {
    tables => [
        {
            name => "Basic",
            fields => [
                {
                    name => "id",
                    data_type => "int",
                    default_value => undef,
                    is_nullable => 0,
                    size => 10,
                    is_primary_key => 1,
                    is_auto_increment => 1,
                    extra => { ZEROFILL => 1 },
                },
                {
                    name => "title",
                    data_type => "varchar",
                    is_nullable => 0,
                    default_value => "hello",
                    size => 100,
                },
                {
                    name => "description",
                    data_type => "text",
                    is_nullable => 1,
                    default_value => "",
                },
                {
                    name => "email",
                    data_type => "varchar",
                    size => 255,
                    is_unique => 1,
                    default_value => undef,
                    is_nullable => 1,
                    extra => {
                        foo => "bar",
                        hello => "world",
                        bar => "baz",
                    }
                },
                {
                    name => "explicitnulldef",
                    data_type => "varchar",
                    default_value => undef,
                    is_nullable => 1,
                },
                {
                    name => "explicitemptystring",
                    data_type => "varchar",
                    default_value => "",
                    is_nullable => 1,
                },
                {
                    name => "emptytagdef",
                    data_type => "varchar",
                    default_value => "",
                    is_nullable => 1,
                    comments => "Hello emptytagdef",
                },
            ],
            constraints => [
                {
                    type => PRIMARY_KEY,
                    fields => ["id"],
                },
                {
                    name => 'emailuniqueindex',
                    type => UNIQUE,
                    fields => ["email"],
                }
            ],
            indices => [
                {
                    name => "titleindex",
                    fields => ["title"],
                },
            ],
        } # end table Basic
    ], # end tables

    views => [
        {
            name => 'email_list',
            sql => "SELECT email FROM Basic WHERE email IS NOT NULL",
            fields => ['email'],
        },
    ],

    triggers => [
        {
            name                => 'foo_trigger',
            perform_action_when => 'after',
            database_event      => 'insert',
            on_table            => 'foo',
            action              => 'update modified=timestamp();',
        },
    ],

    procedures => [
        {
            name       => 'foo_proc',
            sql        => 'select foo from bar',
            parameters => ['foo', 'bar'],
            owner      => 'Nomar',
            comments   => 'Go Sox!',
        },
    ],

}); # end schema