[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 Test::More;
use Test::Exception;

use Data::Dumper;
BEGIN { our %opt; map { $opt{$_}=1 if s/^-// } @ARGV; }
use constant DEBUG => (exists $opt{d} ? 1 : 0);
local $SIG{__WARN__} = sub { diag "[warn] ", @_; };

use FindBin qw/$Bin/;

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

eval { require Template; };
if ($@ && $@ =~ m!locate Template.pm in!) {
    plan skip_all => "You need Template Toolkit to run this test.";
}
eval { require Test::Differences; };
if ($@ && $@ =~ m!locate Test/Differences.pm in!) {
    plan skip_all => "You need Test::Differences for this test.";
}
use Test::Differences;
plan tests => 3;
    
use SQL::Translator;
use SQL::Translator::Producer::TTSchema;

# Parse the test XML schema
our $obj;
$obj = SQL::Translator->new(
    debug          => DEBUG, #$opt{d},
    show_warnings  => 1,
    add_drop_table => 1,
    from           => "SqlfXML",
    filename       => "$Bin/data/xml/schema-basic.xml",
    to             => "TTSchema",
     producer_args  => {
        ttfile => "$Bin/data/template/basic.tt",
    },
);
my $out;
lives_ok { $out = $obj->translate; }  "Produced template";
ok $out ne ""                        ,"Output has some content";
local $/ = undef; # slurp
eq_or_diff $out, <DATA>              ,"Output looks right";
# I'm sure if this diff is the best test, it is probaly too sensitive. But it
# at least it will blow up if anything changes!

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

__DATA__
Schema: 
Database: 

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
        extra:                 
        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
        extra:                 
        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
        extra:                 
        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
        extra:                 
        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
        extra:                 
        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
        extra:                 
        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
	7	use Test::More;
	8	use Test::Exception;
	9
	10	use Data::Dumper;
	11	BEGIN { our %opt; map { $opt{$_}=1 if s/^-// } @ARGV; }
	12	use constant DEBUG => (exists $opt{d} ? 1 : 0);
	13	local $SIG{__WARN__} = sub { diag "[warn] ", @_; };
	14
	15	use FindBin qw/$Bin/;
	16
	17	# Testing 1,2,3,4...
	18	#=============================================================================
	19
	20	eval { require Template; };
	21	if ($@ && $@ =~ m!locate Template.pm in!) {
	22	plan skip_all => "You need Template Toolkit to run this test.";
	23	}
	24	eval { require Test::Differences; };
	25	if ($@ && $@ =~ m!locate Test/Differences.pm in!) {
	26	plan skip_all => "You need Test::Differences for this test.";
	27	}
	28	use Test::Differences;
	29	plan tests => 3;
	30
	31	use SQL::Translator;
	32	use SQL::Translator::Producer::TTSchema;
	33
	34	# Parse the test XML schema
	35	our $obj;
	36	$obj = SQL::Translator->new(
	37	debug => DEBUG, #$opt{d},
	38	show_warnings => 1,
	39	add_drop_table => 1,
	40	from => "SqlfXML",
	41	filename => "$Bin/data/xml/schema-basic.xml",
	42	to => "TTSchema",
	43	producer_args => {
	44	ttfile => "$Bin/data/template/basic.tt",
	45	},
	46	);
	47	my $out;
	48	lives_ok { $out = $obj->translate; } "Produced template";
	49	ok $out ne "" ,"Output has some content";
	50	local $/ = undef; # slurp
	51	eq_or_diff $out, <DATA> ,"Output looks right";
	52	# I'm sure if this diff is the best test, it is probaly too sensitive. But it
	53	# at least it will blow up if anything changes!
	54
	55	print $out if DEBUG;
	56	#print "Debug:", Dumper($obj) if DEBUG;
	57
	58	__DATA__
	59	Schema:
	60	Database:
	61
	62	Table: Basic
	63	==========================================================================
	64
65	Fields
66	id
67	data_type: int
68	size: 10
69	is_nullable: 0
70	default_value:
71	is_primary_key: 1
72	is_unique: 0
73	is_auto_increment: 1
74	is_foreign_key: 0
75	foreign_key_reference:
76	is_valid: 1
77	order: 1
78	extra:
79	table: Basic
80
81	title
82	data_type: varchar
83	size: 100
84	is_nullable: 0
85	default_value: hello
86	is_primary_key: 0
87	is_unique: 0
88	is_auto_increment: 0
89	is_foreign_key: 0
90	foreign_key_reference:
91	is_valid: 1
92	order: 2
93	extra:
94	table: Basic
95
96	description
97	data_type: text
98	size: 0
99	is_nullable: 1
100	default_value:
101	is_primary_key: 0
102	is_unique: 0
103	is_auto_increment: 0
104	is_foreign_key: 0
105	foreign_key_reference:
106	is_valid: 1
107	order: 3
108	extra:
109	table: Basic
110
111	email
112	data_type: varchar
113	size: 255
114	is_nullable: 1
115	default_value:
116	is_primary_key: 0
117	is_unique: 1
118	is_auto_increment: 0
119	is_foreign_key: 0
120	foreign_key_reference:
121	is_valid: 1
122	order: 4
123	extra:
124	table: Basic
125
126	explicitnulldef
127	data_type: varchar
128	size: 0
129	is_nullable: 1
130	default_value:
131	is_primary_key: 0
132	is_unique: 0
133	is_auto_increment: 0
134	is_foreign_key: 0
135	foreign_key_reference:
136	is_valid: 1
137	order: 5
138	extra:
139	table: Basic
140
141	explicitemptystring
142	data_type: varchar
143	size: 0
144	is_nullable: 1
145	default_value:
146	is_primary_key: 0
147	is_unique: 0
148	is_auto_increment: 0
149	is_foreign_key: 0
150	foreign_key_reference:
151	is_valid: 1
152	order: 6
153	extra:
154	table: Basic
155
156
157	Indices
158	titleindex
159	table: Basic
160	fields: title
161	type: NORMAL
162	options:
163	is_valid: 1
164
165
166	Constraints
167	?
168	type: PRIMARY KEY
169	fields: id
170	expression:
171	match_type:
172	reference_fields:
173	reference_table:
174	deferrable: 1
175	on_delete:
176	on_update:
177	options:
178	is_valid: 1
179
180	emailuniqueindex
181	type: UNIQUE
182	fields: email
183	expression:
184	match_type:
185	reference_fields:
186	reference_table:
187	deferrable: 1
188	on_delete:
189	on_update:
190	options:
191	is_valid: 1
192