[dbsrgits/SQL-Translator.git] / t / 17sqlfxml-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 Data::Dumper;
our %opt;
BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
use constant DEBUG => (exists $opt{d} ? 1 : 0);
use constant TRACE => (exists $opt{t} ? 1 : 0);

use FindBin qw/$Bin/;

my $file = "$Bin/data/mysql/sqlfxml-producer-basic.sql";


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

eval { require XML::Writer; };
if ($@ && $@ =~ m!locate XML::Writer.pm in!) {
    plan skip_all => "You need XML::Writer to use SqlfXML.";
}
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 => 6;
    
use SQL::Translator;
use SQL::Translator::Producer::SqlfXML;

my ($obj,$ans,$xml);

#
# emit_empty_tags => 0
#

$ans = <<EOXML;
<sqlt:schema xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
  <sqlt:table>
    <sqlt:name>Basic</sqlt:name>
    <sqlt:order>1</sqlt:order>
    <sqlt:fields>
      <sqlt:field>
        <sqlt:name>id</sqlt:name>
        <sqlt:data_type>integer</sqlt:data_type>
        <sqlt:is_auto_increment>1</sqlt:is_auto_increment>
        <sqlt:is_primary_key>1</sqlt:is_primary_key>
        <sqlt:is_nullable>0</sqlt:is_nullable>
        <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
        <sqlt:order>1</sqlt:order>
        <sqlt:size>10</sqlt:size>
      </sqlt:field>
      <sqlt:field>
        <sqlt:name>title</sqlt:name>
        <sqlt:data_type>varchar</sqlt:data_type>
        <sqlt:default_value>hello</sqlt:default_value>
        <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
        <sqlt:is_primary_key>0</sqlt:is_primary_key>
        <sqlt:is_nullable>0</sqlt:is_nullable>
        <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
        <sqlt:order>2</sqlt:order>
        <sqlt:size>100</sqlt:size>
      </sqlt:field>
      <sqlt:field>
        <sqlt:name>description</sqlt:name>
        <sqlt:data_type>text</sqlt:data_type>
        <sqlt:default_value></sqlt:default_value>
        <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
        <sqlt:is_primary_key>0</sqlt:is_primary_key>
        <sqlt:is_nullable>1</sqlt:is_nullable>
        <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
        <sqlt:order>3</sqlt:order>
        <sqlt:size>0</sqlt:size>
      </sqlt:field>
      <sqlt:field>
        <sqlt:name>email</sqlt:name>
        <sqlt:data_type>varchar</sqlt:data_type>
        <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
        <sqlt:is_primary_key>0</sqlt:is_primary_key>
        <sqlt:is_nullable>1</sqlt:is_nullable>
        <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
        <sqlt:order>4</sqlt:order>
        <sqlt:size>255</sqlt:size>
      </sqlt:field>
    </sqlt:fields>
    <sqlt:indices>
      <sqlt:index>
        <sqlt:fields>title</sqlt:fields>
        <sqlt:name>titleindex</sqlt:name>
        <sqlt:options></sqlt:options>
        <sqlt:type>NORMAL</sqlt:type>
      </sqlt:index>
    </sqlt:indices>
    <sqlt:constraints>
      <sqlt:constraint>
        <sqlt:deferrable>1</sqlt:deferrable>
        <sqlt:expression></sqlt:expression>
        <sqlt:fields>id</sqlt:fields>
        <sqlt:match_type></sqlt:match_type>
        <sqlt:name></sqlt:name>
        <sqlt:options></sqlt:options>
        <sqlt:on_delete></sqlt:on_delete>
        <sqlt:on_update></sqlt:on_update>
        <sqlt:reference_table></sqlt:reference_table>
        <sqlt:type>PRIMARY KEY</sqlt:type>
      </sqlt:constraint>
      <sqlt:constraint>
        <sqlt:deferrable>1</sqlt:deferrable>
        <sqlt:expression></sqlt:expression>
        <sqlt:fields>email</sqlt:fields>
        <sqlt:match_type></sqlt:match_type>
        <sqlt:name></sqlt:name>
        <sqlt:options></sqlt:options>
        <sqlt:on_delete></sqlt:on_delete>
        <sqlt:on_update></sqlt:on_update>
        <sqlt:reference_table></sqlt:reference_table>
        <sqlt:type>UNIQUE</sqlt:type>
      </sqlt:constraint>
    </sqlt:constraints>
  </sqlt:table>
</sqlt:schema>
EOXML

$obj = SQL::Translator->new(
    debug          => DEBUG,
    trace          => TRACE,
    show_warnings  => 1,
    add_drop_table => 1,
    from           => "MySQL",
    to             => "SqlfXML",
);
lives_ok { $xml = $obj->translate($file); }  "Translate ran";
ok("$xml" ne ""                             ,"Produced something!");
print "XML:\n$xml" if DEBUG;
# Strip sqlf header with its variable date so we diff safely
$xml =~ s/^([^\n]*\n){7}//m; 
eq_or_diff $xml, $ans                       ,"XML looks right";

#
# emit_empty_tags => 1
#

$ans = <<EOXML;
<sqlt:schema xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
  <sqlt:table>
    <sqlt:name>Basic</sqlt:name>
    <sqlt:order>2</sqlt:order>
    <sqlt:fields>
      <sqlt:field>
        <sqlt:name>id</sqlt:name>
        <sqlt:data_type>integer</sqlt:data_type>
        <sqlt:default_value></sqlt:default_value>
        <sqlt:is_auto_increment>1</sqlt:is_auto_increment>
        <sqlt:is_primary_key>1</sqlt:is_primary_key>
        <sqlt:is_nullable>0</sqlt:is_nullable>
        <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
        <sqlt:order>5</sqlt:order>
        <sqlt:size>10</sqlt:size>
      </sqlt:field>
      <sqlt:field>
        <sqlt:name>title</sqlt:name>
        <sqlt:data_type>varchar</sqlt:data_type>
        <sqlt:default_value>hello</sqlt:default_value>
        <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
        <sqlt:is_primary_key>0</sqlt:is_primary_key>
        <sqlt:is_nullable>0</sqlt:is_nullable>
        <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
        <sqlt:order>6</sqlt:order>
        <sqlt:size>100</sqlt:size>
      </sqlt:field>
      <sqlt:field>
        <sqlt:name>description</sqlt:name>
        <sqlt:data_type>text</sqlt:data_type>
        <sqlt:default_value></sqlt:default_value>
        <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
        <sqlt:is_primary_key>0</sqlt:is_primary_key>
        <sqlt:is_nullable>1</sqlt:is_nullable>
        <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
        <sqlt:order>7</sqlt:order>
        <sqlt:size>0</sqlt:size>
      </sqlt:field>
      <sqlt:field>
        <sqlt:name>email</sqlt:name>
        <sqlt:data_type>varchar</sqlt:data_type>
        <sqlt:default_value></sqlt:default_value>
        <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
        <sqlt:is_primary_key>0</sqlt:is_primary_key>
        <sqlt:is_nullable>1</sqlt:is_nullable>
        <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
        <sqlt:order>8</sqlt:order>
        <sqlt:size>255</sqlt:size>
      </sqlt:field>
    </sqlt:fields>
    <sqlt:indices>
      <sqlt:index>
        <sqlt:fields>title</sqlt:fields>
        <sqlt:name>titleindex</sqlt:name>
        <sqlt:options></sqlt:options>
        <sqlt:type>NORMAL</sqlt:type>
      </sqlt:index>
    </sqlt:indices>
    <sqlt:constraints>
      <sqlt:constraint>
        <sqlt:deferrable>1</sqlt:deferrable>
        <sqlt:expression></sqlt:expression>
        <sqlt:fields>id</sqlt:fields>
        <sqlt:match_type></sqlt:match_type>
        <sqlt:name></sqlt:name>
        <sqlt:options></sqlt:options>
        <sqlt:on_delete></sqlt:on_delete>
        <sqlt:on_update></sqlt:on_update>
        <sqlt:reference_fields></sqlt:reference_fields>
        <sqlt:reference_table></sqlt:reference_table>
        <sqlt:type>PRIMARY KEY</sqlt:type>
      </sqlt:constraint>
      <sqlt:constraint>
        <sqlt:deferrable>1</sqlt:deferrable>
        <sqlt:expression></sqlt:expression>
        <sqlt:fields>email</sqlt:fields>
        <sqlt:match_type></sqlt:match_type>
        <sqlt:name></sqlt:name>
        <sqlt:options></sqlt:options>
        <sqlt:on_delete></sqlt:on_delete>
        <sqlt:on_update></sqlt:on_update>
        <sqlt:reference_fields></sqlt:reference_fields>
        <sqlt:reference_table></sqlt:reference_table>
        <sqlt:type>UNIQUE</sqlt:type>
      </sqlt:constraint>
    </sqlt:constraints>
  </sqlt:table>
</sqlt:schema>
EOXML

undef $obj;
$obj = SQL::Translator->new(
    debug          => DEBUG,
    trace          => TRACE,
    show_warnings  => 1,
    add_drop_table => 1,
    from           => "MySQL",
    to             => "SqlfXML",
    producer_args  => { emit_empty_tags => 1 },
);
lives_ok { $xml = $obj->translate($file); }  "Translate ran";
ok("$xml" ne ""                             ,"Produced something!");
print "XML emit_empty_tags=>1:\n$xml" if DEBUG;
# Strip sqlf header with its variable date so we diff safely
$xml =~ s/^([^\n]*\n){7}//m; 
eq_or_diff $xml, $ans                       ,"XML looks right";
    # This diff probably isn't a very good test! Should really check the
    # result with XPath or something, but that would take ages to write ;-)

# TODO Make this a real test of attrib_values
# $obj = SQL::Translator->new(
#     debug          => DEBUG,
#     trace          => TRACE,
#     show_warnings  => 1,
#     add_drop_table => 1,
#     from           => "MySQL",
#     to             => "SqlfXML",
#     producer_args  => { attrib_values => 1 },
# );
# print $obj->translate($file);
Commit	Line	Data
d0c12b9f	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 strict;
	8	use Test::More;
	9	use Test::Exception;
	10
	11	use Data::Dumper;
	12	our %opt;
	13	BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
	14	use constant DEBUG => (exists $opt{d} ? 1 : 0);
	15	use constant TRACE => (exists $opt{t} ? 1 : 0);
	16
	17	use FindBin qw/$Bin/;
	18
	19	my $file = "$Bin/data/mysql/sqlfxml-producer-basic.sql";
	20
	21
	22	# Testing 1,2,3,4...
	23	#=============================================================================
	24
	25	eval { require XML::Writer; };
	26	if ($@ && $@ =~ m!locate XML::Writer.pm in!) {
	27	plan skip_all => "You need XML::Writer to use SqlfXML.";
	28	}
	29	eval { require Test::Differences; };
	30	if ($@ && $@ =~ m!locate Test/Differences.pm in!) {
	31	plan skip_all => "You need Test::Differences for this test.";
	32	}
	33	use Test::Differences;
	34	plan tests => 6;
	35
	36	use SQL::Translator;
	37	use SQL::Translator::Producer::SqlfXML;
	38
	39	my ($obj,$ans,$xml);
	40
	41	#
	42	# emit_empty_tags => 0
	43	#
	44
	45	$ans = <<EOXML;
	46	<sqlt:schema xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
	47	<sqlt:table>
	48	<sqlt:name>Basic</sqlt:name>
	49	<sqlt:order>1</sqlt:order>
	50	<sqlt:fields>
	51	<sqlt:field>
	52	<sqlt:name>id</sqlt:name>
	53	<sqlt:data_type>integer</sqlt:data_type>
	54	<sqlt:is_auto_increment>1</sqlt:is_auto_increment>
	55	<sqlt:is_primary_key>1</sqlt:is_primary_key>
	56	<sqlt:is_nullable>0</sqlt:is_nullable>
	57	<sqlt:is_foreign_key>0</sqlt:is_foreign_key>
	58	<sqlt:order>1</sqlt:order>
	59	<sqlt:size>10</sqlt:size>
	60	</sqlt:field>
	61	<sqlt:field>
	62	<sqlt:name>title</sqlt:name>
	63	<sqlt:data_type>varchar</sqlt:data_type>
	64	<sqlt:default_value>hello</sqlt:default_value>
65	<sqlt:is_auto_increment>0</sqlt:is_auto_increment>
66	<sqlt:is_primary_key>0</sqlt:is_primary_key>
67	<sqlt:is_nullable>0</sqlt:is_nullable>
68	<sqlt:is_foreign_key>0</sqlt:is_foreign_key>
69	<sqlt:order>2</sqlt:order>
70	<sqlt:size>100</sqlt:size>
71	</sqlt:field>
72	<sqlt:field>
73	<sqlt:name>description</sqlt:name>
74	<sqlt:data_type>text</sqlt:data_type>
75	<sqlt:default_value></sqlt:default_value>
76	<sqlt:is_auto_increment>0</sqlt:is_auto_increment>
77	<sqlt:is_primary_key>0</sqlt:is_primary_key>
78	<sqlt:is_nullable>1</sqlt:is_nullable>
79	<sqlt:is_foreign_key>0</sqlt:is_foreign_key>
80	<sqlt:order>3</sqlt:order>
81	<sqlt:size>0</sqlt:size>
82	</sqlt:field>
83	<sqlt:field>
84	<sqlt:name>email</sqlt:name>
85	<sqlt:data_type>varchar</sqlt:data_type>
86	<sqlt:is_auto_increment>0</sqlt:is_auto_increment>
87	<sqlt:is_primary_key>0</sqlt:is_primary_key>
88	<sqlt:is_nullable>1</sqlt:is_nullable>
89	<sqlt:is_foreign_key>0</sqlt:is_foreign_key>
90	<sqlt:order>4</sqlt:order>
91	<sqlt:size>255</sqlt:size>
92	</sqlt:field>
93	</sqlt:fields>
94	<sqlt:indices>
95	<sqlt:index>
96	<sqlt:fields>title</sqlt:fields>
97	<sqlt:name>titleindex</sqlt:name>
98	<sqlt:options></sqlt:options>
99	<sqlt:type>NORMAL</sqlt:type>
100	</sqlt:index>
101	</sqlt:indices>
102	<sqlt:constraints>
103	<sqlt:constraint>
104	<sqlt:deferrable>1</sqlt:deferrable>
105	<sqlt:expression></sqlt:expression>
106	<sqlt:fields>id</sqlt:fields>
107	<sqlt:match_type></sqlt:match_type>
108	<sqlt:name></sqlt:name>
109	<sqlt:options></sqlt:options>
110	<sqlt:on_delete></sqlt:on_delete>
111	<sqlt:on_update></sqlt:on_update>
112	<sqlt:reference_table></sqlt:reference_table>
113	<sqlt:type>PRIMARY KEY</sqlt:type>
114	</sqlt:constraint>
115	<sqlt:constraint>
116	<sqlt:deferrable>1</sqlt:deferrable>
117	<sqlt:expression></sqlt:expression>
118	<sqlt:fields>email</sqlt:fields>
119	<sqlt:match_type></sqlt:match_type>
120	<sqlt:name></sqlt:name>
121	<sqlt:options></sqlt:options>
122	<sqlt:on_delete></sqlt:on_delete>
123	<sqlt:on_update></sqlt:on_update>
124	<sqlt:reference_table></sqlt:reference_table>
125	<sqlt:type>UNIQUE</sqlt:type>
126	</sqlt:constraint>
127	</sqlt:constraints>
128	</sqlt:table>
129	</sqlt:schema>
130	EOXML
131
132	$obj = SQL::Translator->new(
133	debug => DEBUG,
134	trace => TRACE,
135	show_warnings => 1,
136	add_drop_table => 1,
137	from => "MySQL",
138	to => "SqlfXML",
139	);
140	lives_ok { $xml = $obj->translate($file); } "Translate ran";
141	ok("$xml" ne "" ,"Produced something!");
142	print "XML:\n$xml" if DEBUG;
143	# Strip sqlf header with its variable date so we diff safely
144	$xml =~ s/^([^\n]*\n){7}//m;
145	eq_or_diff $xml, $ans ,"XML looks right";
146
147	#
148	# emit_empty_tags => 1
149	#
150
151	$ans = <<EOXML;
152	<sqlt:schema xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
153	<sqlt:table>
154	<sqlt:name>Basic</sqlt:name>
155	<sqlt:order>2</sqlt:order>
156	<sqlt:fields>
157	<sqlt:field>
158	<sqlt:name>id</sqlt:name>
159	<sqlt:data_type>integer</sqlt:data_type>
160	<sqlt:default_value></sqlt:default_value>
161	<sqlt:is_auto_increment>1</sqlt:is_auto_increment>
162	<sqlt:is_primary_key>1</sqlt:is_primary_key>
163	<sqlt:is_nullable>0</sqlt:is_nullable>
164	<sqlt:is_foreign_key>0</sqlt:is_foreign_key>
165	<sqlt:order>5</sqlt:order>
166	<sqlt:size>10</sqlt:size>
167	</sqlt:field>
168	<sqlt:field>
169	<sqlt:name>title</sqlt:name>
170	<sqlt:data_type>varchar</sqlt:data_type>
171	<sqlt:default_value>hello</sqlt:default_value>
172	<sqlt:is_auto_increment>0</sqlt:is_auto_increment>
173	<sqlt:is_primary_key>0</sqlt:is_primary_key>
174	<sqlt:is_nullable>0</sqlt:is_nullable>
175	<sqlt:is_foreign_key>0</sqlt:is_foreign_key>
176	<sqlt:order>6</sqlt:order>
177	<sqlt:size>100</sqlt:size>
178	</sqlt:field>
179	<sqlt:field>
180	<sqlt:name>description</sqlt:name>
181	<sqlt:data_type>text</sqlt:data_type>
182	<sqlt:default_value></sqlt:default_value>
183	<sqlt:is_auto_increment>0</sqlt:is_auto_increment>
184	<sqlt:is_primary_key>0</sqlt:is_primary_key>
185	<sqlt:is_nullable>1</sqlt:is_nullable>
186	<sqlt:is_foreign_key>0</sqlt:is_foreign_key>
187	<sqlt:order>7</sqlt:order>
188	<sqlt:size>0</sqlt:size>
189	</sqlt:field>
190	<sqlt:field>
191	<sqlt:name>email</sqlt:name>
192	<sqlt:data_type>varchar</sqlt:data_type>
193	<sqlt:default_value></sqlt:default_value>
194	<sqlt:is_auto_increment>0</sqlt:is_auto_increment>
195	<sqlt:is_primary_key>0</sqlt:is_primary_key>
196	<sqlt:is_nullable>1</sqlt:is_nullable>
197	<sqlt:is_foreign_key>0</sqlt:is_foreign_key>
198	<sqlt:order>8</sqlt:order>
199	<sqlt:size>255</sqlt:size>
200	</sqlt:field>
201	</sqlt:fields>
202	<sqlt:indices>
203	<sqlt:index>
204	<sqlt:fields>title</sqlt:fields>
205	<sqlt:name>titleindex</sqlt:name>
206	<sqlt:options></sqlt:options>
207	<sqlt:type>NORMAL</sqlt:type>
208	</sqlt:index>
209	</sqlt:indices>
210	<sqlt:constraints>
211	<sqlt:constraint>
212	<sqlt:deferrable>1</sqlt:deferrable>
213	<sqlt:expression></sqlt:expression>
214	<sqlt:fields>id</sqlt:fields>
215	<sqlt:match_type></sqlt:match_type>
216	<sqlt:name></sqlt:name>
217	<sqlt:options></sqlt:options>
218	<sqlt:on_delete></sqlt:on_delete>
219	<sqlt:on_update></sqlt:on_update>
220	<sqlt:reference_fields></sqlt:reference_fields>
221	<sqlt:reference_table></sqlt:reference_table>
222	<sqlt:type>PRIMARY KEY</sqlt:type>
223	</sqlt:constraint>
224	<sqlt:constraint>
225	<sqlt:deferrable>1</sqlt:deferrable>
226	<sqlt:expression></sqlt:expression>
227	<sqlt:fields>email</sqlt:fields>
228	<sqlt:match_type></sqlt:match_type>
229	<sqlt:name></sqlt:name>
230	<sqlt:options></sqlt:options>
231	<sqlt:on_delete></sqlt:on_delete>
232	<sqlt:on_update></sqlt:on_update>
233	<sqlt:reference_fields></sqlt:reference_fields>
234	<sqlt:reference_table></sqlt:reference_table>
235	<sqlt:type>UNIQUE</sqlt:type>
236	</sqlt:constraint>
237	</sqlt:constraints>
238	</sqlt:table>
239	</sqlt:schema>
240	EOXML
241
242	undef $obj;
243	$obj = SQL::Translator->new(
244	debug => DEBUG,
245	trace => TRACE,
246	show_warnings => 1,
247	add_drop_table => 1,
248	from => "MySQL",
249	to => "SqlfXML",
250	producer_args => { emit_empty_tags => 1 },
251	);
252	lives_ok { $xml = $obj->translate($file); } "Translate ran";
253	ok("$xml" ne "" ,"Produced something!");
254	print "XML emit_empty_tags=>1:\n$xml" if DEBUG;
255	# Strip sqlf header with its variable date so we diff safely
256	$xml =~ s/^([^\n]*\n){7}//m;
257	eq_or_diff $xml, $ans ,"XML looks right";
258	# This diff probably isn't a very good test! Should really check the
259	# result with XPath or something, but that would take ages to write ;-)
260
a8e0cc1a	261	# TODO Make this a real test of attrib_values
	262	# $obj = SQL::Translator->new(
	263	# debug => DEBUG,
	264	# trace => TRACE,
	265	# show_warnings => 1,
	266	# add_drop_table => 1,
	267	# from => "MySQL",
	268	# to => "SqlfXML",
	269	# producer_args => { attrib_values => 1 },
	270	# );
	271	# print $obj->translate($file);