[dbsrgits/SQL-Translator.git] / t / 18ttschema-producer.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'

use strict;
use Test::More;
use Test::Exception;
use Test::SQL::Translator qw(maybe_plan);

use Data::Dumper;
use vars '%opt';
BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
use constant DEBUG => (exists $opt{d} ? 1 : 0);

use FindBin qw/$Bin/;

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

BEGIN {
    maybe_plan(3, 
        'XML::XPath', 
        'SQL::Translator::Parser::XML::SQLFairy',
        'Template', 
        'Test::Differences'
    )
}
use Test::Differences;

use SQL::Translator;
use SQL::Translator::Producer::TTSchema;

# Parse the test XML schema
my $obj;
$obj = SQL::Translator->new(
    debug          => DEBUG, #$opt{d},
    show_warnings  => 1,
    add_drop_table => 1,
    from           => "XML-SQLFairy",
    filename       => "$Bin/data/xml/schema.xml",
    to             => "TTSchema",
    producer_args  => {
        ttfile  => "$Bin/data/template/basic.tt",
        tt_vars => {
            foo   => 'bar',
            hello => 'world',
        },
    },
);
my $out;
lives_ok { $out = $obj->translate; }  "Translate ran";
ok $out ne ""                        ,"Produced something!";
local $/ = undef; # slurp
eq_or_diff $out, <DATA>              ,"Output looks right";

print $out if DEBUG;
#print "Debug:", Dumper($obj) if DEBUG;

__DATA__
Schema: 
Database: 

Foo: bar
Hello: world

Table: Basic
==========================================================================

Fields
    id
        data_type:             int
        size:                  10
        is_nullable:           0
        default_value:         
        is_primary_key:        1
        is_unique:             0
        is_auto_increment:     1
        is_foreign_key:        0
        foreign_key_reference: 
        is_valid:              1
        order:                 1
        table:                 Basic
    
    title
        data_type:             varchar
        size:                  100
        is_nullable:           0
        default_value:         hello
        is_primary_key:        0
        is_unique:             0
        is_auto_increment:     0
        is_foreign_key:        0
        foreign_key_reference: 
        is_valid:              1
        order:                 2
        table:                 Basic
    
    description
        data_type:             text
        size:                  0
        is_nullable:           1
        default_value:         
        is_primary_key:        0
        is_unique:             0
        is_auto_increment:     0
        is_foreign_key:        0
        foreign_key_reference: 
        is_valid:              1
        order:                 3
        table:                 Basic
    
    email
        data_type:             varchar
        size:                  255
        is_nullable:           1
        default_value:         
        is_primary_key:        0
        is_unique:             1
        is_auto_increment:     0
        is_foreign_key:        0
        foreign_key_reference: 
        is_valid:              1
        order:                 4
        table:                 Basic
    
    explicitnulldef
        data_type:             varchar
        size:                  0
        is_nullable:           1
        default_value:         
        is_primary_key:        0
        is_unique:             0
        is_auto_increment:     0
        is_foreign_key:        0
        foreign_key_reference: 
        is_valid:              1
        order:                 5
        table:                 Basic
    
    explicitemptystring
        data_type:             varchar
        size:                  0
        is_nullable:           1
        default_value:         
        is_primary_key:        0
        is_unique:             0
        is_auto_increment:     0
        is_foreign_key:        0
        foreign_key_reference: 
        is_valid:              1
        order:                 6
        table:                 Basic
    
    emptytagdef
        data_type:             varchar
        size:                  0
        is_nullable:           1
        default_value:         
        is_primary_key:        0
        is_unique:             0
        is_auto_increment:     0
        is_foreign_key:        0
        foreign_key_reference: 
        is_valid:              1
        order:                 7
        table:                 Basic
    

Indices
    titleindex
        table:    Basic
        fields:   title
        type:     NORMAL
        options:  
        is_valid: 1
    
    
Constraints
    ?
        type:             PRIMARY KEY
        fields:           id
        expression:       
        match_type:       
        reference_fields: 
        reference_table:  
        deferrable:       1
        on_delete:        
        on_update:        
        options:          
        is_valid:         1
    
    emailuniqueindex
        type:             UNIQUE
        fields:           email
        expression:       
        match_type:       
        reference_fields: 
        reference_table:  
        deferrable:       1
        on_delete:        
        on_update:        
        options:          
        is_valid:         1
Commit	Line	Data
2b2601b5	1	#!/usr/bin/perl -w
	2	# vim:filetype=perl
	3
	4	# Before `make install' is performed this script should be runnable with
	5	# `make test'. After `make install' it should work as `perl test.pl'
	6
2e11379e	7	use strict;
2b2601b5	8	use Test::More;
2b2601b5	9	use Test::Exception;
2d691ec1	10	use Test::SQL::Translator qw(maybe_plan);
2b2601b5	11
2b2601b5	12	use Data::Dumper;
2e11379e	13	use vars '%opt';
2e11379e	14	BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
2b2601b5	15	use constant DEBUG => (exists $opt{d} ? 1 : 0);
2b2601b5	16
	17	use FindBin qw/$Bin/;
	18
	19	# Testing 1,2,3,4...
	20	#=============================================================================
	21
2d691ec1	22	BEGIN {
d2f0a9f6	23	maybe_plan(3,
d2f0a9f6	24	'XML::XPath',
d55fe5ca	25	'SQL::Translator::Parser::XML::SQLFairy',
d2f0a9f6	26	'Template',
	27	'Test::Differences'
	28	)
2b2601b5	29	}
2b2601b5	30	use Test::Differences;
a03aec42	31
2b2601b5	32	use SQL::Translator;
	33	use SQL::Translator::Producer::TTSchema;
	34
	35	# Parse the test XML schema
2e11379e	36	my $obj;
2b2601b5	37	$obj = SQL::Translator->new(
	38	debug => DEBUG, #$opt{d},
	39	show_warnings => 1,
	40	add_drop_table => 1,
2e11379e	41	from => "XML-SQLFairy",
7266dab2	42	filename => "$Bin/data/xml/schema.xml",
2b2601b5	43	to => "TTSchema",
046d668a	44	producer_args => {
329fc3f0	45	ttfile => "$Bin/data/template/basic.tt",
329fc3f0	46	tt_vars => {
046d668a	47	foo => 'bar',
	48	hello => 'world',
	49	},
2b2601b5	50	},
	51	);
	52	my $out;
0da6f155	53	lives_ok { $out = $obj->translate; } "Translate ran";
0da6f155	54	ok $out ne "" ,"Produced something!";
2b2601b5	55	local $/ = undef; # slurp
2b2601b5	56	eq_or_diff $out, <DATA> ,"Output looks right";
2b2601b5	57
	58	print $out if DEBUG;
	59	#print "Debug:", Dumper($obj) if DEBUG;
	60
	61	__DATA__
	62	Schema:
	63	Database:
	64
046d668a	65	Foo: bar
	66	Hello: world
	67
2b2601b5	68	Table: Basic
	69	==========================================================================
	70
	71	Fields
	72	id
	73	data_type: int
	74	size: 10
	75	is_nullable: 0
	76	default_value:
	77	is_primary_key: 1
	78	is_unique: 0
	79	is_auto_increment: 1
	80	is_foreign_key: 0
	81	foreign_key_reference:
	82	is_valid: 1
	83	order: 1
2b2601b5	84	table: Basic
	85
	86	title
	87	data_type: varchar
	88	size: 100
	89	is_nullable: 0
	90	default_value: hello
	91	is_primary_key: 0
	92	is_unique: 0
	93	is_auto_increment: 0
	94	is_foreign_key: 0
	95	foreign_key_reference:
	96	is_valid: 1
	97	order: 2
2b2601b5	98	table: Basic
	99
	100	description
	101	data_type: text
	102	size: 0
	103	is_nullable: 1
	104	default_value:
	105	is_primary_key: 0
	106	is_unique: 0
	107	is_auto_increment: 0
	108	is_foreign_key: 0
	109	foreign_key_reference:
	110	is_valid: 1
	111	order: 3
2b2601b5	112	table: Basic
	113
	114	email
	115	data_type: varchar
	116	size: 255
	117	is_nullable: 1
	118	default_value:
	119	is_primary_key: 0
	120	is_unique: 1
	121	is_auto_increment: 0
	122	is_foreign_key: 0
	123	foreign_key_reference:
	124	is_valid: 1
	125	order: 4
2b2601b5	126	table: Basic
	127
	128	explicitnulldef
	129	data_type: varchar
	130	size: 0
	131	is_nullable: 1
	132	default_value:
	133	is_primary_key: 0
	134	is_unique: 0
	135	is_auto_increment: 0
	136	is_foreign_key: 0
	137	foreign_key_reference:
	138	is_valid: 1
	139	order: 5
2b2601b5	140	table: Basic
	141
	142	explicitemptystring
	143	data_type: varchar
	144	size: 0
	145	is_nullable: 1
	146	default_value:
	147	is_primary_key: 0
	148	is_unique: 0
	149	is_auto_increment: 0
	150	is_foreign_key: 0
	151	foreign_key_reference:
	152	is_valid: 1
	153	order: 6
2b2601b5	154	table: Basic
2b2601b5	155
5952d39c	156	emptytagdef
b3530353	157	data_type: varchar
	158	size: 0
	159	is_nullable: 1
	160	default_value:
	161	is_primary_key: 0
	162	is_unique: 0
	163	is_auto_increment: 0
	164	is_foreign_key: 0
	165	foreign_key_reference:
	166	is_valid: 1
	167	order: 7
b3530353	168	table: Basic
b3530353	169
2b2601b5	170
	171	Indices
	172	titleindex
	173	table: Basic
	174	fields: title
	175	type: NORMAL
	176	options:
	177	is_valid: 1
	178
	179
	180	Constraints
	181	?
	182	type: PRIMARY KEY
	183	fields: id
	184	expression:
	185	match_type:
	186	reference_fields:
	187	reference_table:
	188	deferrable: 1
	189	on_delete:
	190	on_update:
	191	options:
	192	is_valid: 1
	193
	194	emailuniqueindex
	195	type: UNIQUE
	196	fields: email
	197	expression:
	198	match_type:
	199	reference_fields:
	200	reference_table:
	201	deferrable: 1
	202	on_delete:
	203	on_update:
	204	options:
	205	is_valid: 1
	206