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'
15 BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
16 use constant DEBUG => (exists $opt{d} ? 1 : 0);
17 use constant TRACE => (exists $opt{t} ? 1 : 0);
21 my $file = "$Bin/data/mysql/sqlfxml-producer-basic.sql";
25 #=============================================================================
27 eval { require XML::Writer; };
28 if ($@ && $@ =~ m!locate XML::Writer.pm in!) {
29 plan skip_all => "You need XML::Writer to use XML::SQLFairy.";
31 eval { require Test::Differences; };
32 if ($@ && $@ =~ m!locate Test/Differences.pm in!) {
33 plan skip_all => "You need Test::Differences for this test.";
35 use Test::Differences;
39 use SQL::Translator::Producer::XML::SQLFairy;
43 # emit_empty_tags => 0
49 <sqlt:schema xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
50 <sqlt:database></sqlt:database>
51 <sqlt:name></sqlt:name>
53 <sqlt:name>Basic</sqlt:name>
54 <sqlt:order>1</sqlt:order>
57 <sqlt:comments>comment on id field</sqlt:comments>
58 <sqlt:data_type>integer</sqlt:data_type>
59 <sqlt:is_auto_increment>1</sqlt:is_auto_increment>
60 <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
61 <sqlt:is_nullable>0</sqlt:is_nullable>
62 <sqlt:is_primary_key>1</sqlt:is_primary_key>
63 <sqlt:name>id</sqlt:name>
64 <sqlt:order>1</sqlt:order>
65 <sqlt:size>10</sqlt:size>
68 <sqlt:comments></sqlt:comments>
69 <sqlt:data_type>varchar</sqlt:data_type>
70 <sqlt:default_value>hello</sqlt:default_value>
71 <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
72 <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
73 <sqlt:is_nullable>0</sqlt:is_nullable>
74 <sqlt:is_primary_key>0</sqlt:is_primary_key>
75 <sqlt:name>title</sqlt:name>
76 <sqlt:order>2</sqlt:order>
77 <sqlt:size>100</sqlt:size>
80 <sqlt:comments></sqlt:comments>
81 <sqlt:data_type>text</sqlt:data_type>
82 <sqlt:default_value></sqlt:default_value>
83 <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
84 <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
85 <sqlt:is_nullable>1</sqlt:is_nullable>
86 <sqlt:is_primary_key>0</sqlt:is_primary_key>
87 <sqlt:name>description</sqlt:name>
88 <sqlt:order>3</sqlt:order>
89 <sqlt:size>65535</sqlt:size>
92 <sqlt:comments></sqlt:comments>
93 <sqlt:data_type>varchar</sqlt:data_type>
94 <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
95 <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
96 <sqlt:is_nullable>1</sqlt:is_nullable>
97 <sqlt:is_primary_key>0</sqlt:is_primary_key>
98 <sqlt:name>email</sqlt:name>
99 <sqlt:order>4</sqlt:order>
100 <sqlt:size>255</sqlt:size>
105 <sqlt:fields>title</sqlt:fields>
106 <sqlt:name>titleindex</sqlt:name>
107 <sqlt:options></sqlt:options>
108 <sqlt:type>NORMAL</sqlt:type>
113 <sqlt:deferrable>1</sqlt:deferrable>
114 <sqlt:expression></sqlt:expression>
115 <sqlt:fields>id</sqlt:fields>
116 <sqlt:match_type></sqlt:match_type>
117 <sqlt:name></sqlt:name>
118 <sqlt:on_delete></sqlt:on_delete>
119 <sqlt:on_update></sqlt:on_update>
120 <sqlt:options></sqlt:options>
121 <sqlt:reference_table></sqlt:reference_table>
122 <sqlt:type>PRIMARY KEY</sqlt:type>
125 <sqlt:deferrable>1</sqlt:deferrable>
126 <sqlt:expression></sqlt:expression>
127 <sqlt:fields>email</sqlt:fields>
128 <sqlt:match_type></sqlt:match_type>
129 <sqlt:name></sqlt:name>
130 <sqlt:on_delete></sqlt:on_delete>
131 <sqlt:on_update></sqlt:on_update>
132 <sqlt:options></sqlt:options>
133 <sqlt:reference_table></sqlt:reference_table>
134 <sqlt:type>UNIQUE</sqlt:type>
141 $obj = SQL::Translator->new(
147 to => 'XML-SQLFairy',
149 lives_ok {$xml = $obj->translate($file);} "Translate (emit_empty_tags=>0) ran";
150 ok("$xml" ne "" ,"Produced something!");
151 print "XML:\n$xml" if DEBUG;
152 # Strip sqlf header with its variable date so we diff safely
153 $xml =~ s/^([^\n]*\n){7}//m;
154 eq_or_diff $xml, $ans ,"XML looks right";
156 } # end emit_empty_tags=>0
159 # emit_empty_tags => 1
165 <sqlt:schema xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
166 <sqlt:database></sqlt:database>
167 <sqlt:name></sqlt:name>
169 <sqlt:name>Basic</sqlt:name>
170 <sqlt:order>2</sqlt:order>
173 <sqlt:comments>comment on id field</sqlt:comments>
174 <sqlt:data_type>integer</sqlt:data_type>
175 <sqlt:default_value></sqlt:default_value>
176 <sqlt:is_auto_increment>1</sqlt:is_auto_increment>
177 <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
178 <sqlt:is_nullable>0</sqlt:is_nullable>
179 <sqlt:is_primary_key>1</sqlt:is_primary_key>
180 <sqlt:name>id</sqlt:name>
181 <sqlt:order>5</sqlt:order>
182 <sqlt:size>10</sqlt:size>
185 <sqlt:comments></sqlt:comments>
186 <sqlt:data_type>varchar</sqlt:data_type>
187 <sqlt:default_value>hello</sqlt:default_value>
188 <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
189 <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
190 <sqlt:is_nullable>0</sqlt:is_nullable>
191 <sqlt:is_primary_key>0</sqlt:is_primary_key>
192 <sqlt:name>title</sqlt:name>
193 <sqlt:order>6</sqlt:order>
194 <sqlt:size>100</sqlt:size>
197 <sqlt:comments></sqlt:comments>
198 <sqlt:data_type>text</sqlt:data_type>
199 <sqlt:default_value></sqlt:default_value>
200 <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
201 <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
202 <sqlt:is_nullable>1</sqlt:is_nullable>
203 <sqlt:is_primary_key>0</sqlt:is_primary_key>
204 <sqlt:name>description</sqlt:name>
205 <sqlt:order>7</sqlt:order>
206 <sqlt:size>65535</sqlt:size>
209 <sqlt:comments></sqlt:comments>
210 <sqlt:data_type>varchar</sqlt:data_type>
211 <sqlt:default_value></sqlt:default_value>
212 <sqlt:is_auto_increment>0</sqlt:is_auto_increment>
213 <sqlt:is_foreign_key>0</sqlt:is_foreign_key>
214 <sqlt:is_nullable>1</sqlt:is_nullable>
215 <sqlt:is_primary_key>0</sqlt:is_primary_key>
216 <sqlt:name>email</sqlt:name>
217 <sqlt:order>8</sqlt:order>
218 <sqlt:size>255</sqlt:size>
223 <sqlt:fields>title</sqlt:fields>
224 <sqlt:name>titleindex</sqlt:name>
225 <sqlt:options></sqlt:options>
226 <sqlt:type>NORMAL</sqlt:type>
231 <sqlt:deferrable>1</sqlt:deferrable>
232 <sqlt:expression></sqlt:expression>
233 <sqlt:fields>id</sqlt:fields>
234 <sqlt:match_type></sqlt:match_type>
235 <sqlt:name></sqlt:name>
236 <sqlt:on_delete></sqlt:on_delete>
237 <sqlt:on_update></sqlt:on_update>
238 <sqlt:options></sqlt:options>
239 <sqlt:reference_fields></sqlt:reference_fields>
240 <sqlt:reference_table></sqlt:reference_table>
241 <sqlt:type>PRIMARY KEY</sqlt:type>
244 <sqlt:deferrable>1</sqlt:deferrable>
245 <sqlt:expression></sqlt:expression>
246 <sqlt:fields>email</sqlt:fields>
247 <sqlt:match_type></sqlt:match_type>
248 <sqlt:name></sqlt:name>
249 <sqlt:on_delete></sqlt:on_delete>
250 <sqlt:on_update></sqlt:on_update>
251 <sqlt:options></sqlt:options>
252 <sqlt:reference_fields></sqlt:reference_fields>
253 <sqlt:reference_table></sqlt:reference_table>
254 <sqlt:type>UNIQUE</sqlt:type>
261 $obj = SQL::Translator->new(
267 to => 'XML-SQLFairy',
268 producer_args => { emit_empty_tags => 1 },
270 lives_ok { $xml=$obj->translate($file); } "Translate (emit_empty_tags=>1) ran";
271 ok("$xml" ne "" ,"Produced something!");
272 print "XML emit_empty_tags=>1:\n$xml" if DEBUG;
273 # Strip sqlf header with its variable date so we diff safely
274 $xml =~ s/^([^\n]*\n){7}//m;
275 eq_or_diff $xml, $ans ,"XML looks right";
277 } # end emit_empty_tags => 1
286 <sqlt:schema database="" name="" xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
287 <sqlt:table name="Basic" order="3">
289 <sqlt:field comments="comment on id field" data_type="integer" is_auto_increment="1" is_foreign_key="0" is_nullable="0" is_primary_key="1" name="id" order="9" size="10" />
290 <sqlt:field comments="" data_type="varchar" default_value="hello" is_auto_increment="0" is_foreign_key="0" is_nullable="0" is_primary_key="0" name="title" order="10" size="100" />
291 <sqlt:field comments="" data_type="text" default_value="" is_auto_increment="0" is_foreign_key="0" is_nullable="1" is_primary_key="0" name="description" order="11" size="65535" />
292 <sqlt:field comments="" data_type="varchar" is_auto_increment="0" is_foreign_key="0" is_nullable="1" is_primary_key="0" name="email" order="12" size="255" />
295 <sqlt:index fields="title" name="titleindex" options="" type="NORMAL" />
298 <sqlt:constraint deferrable="1" expression="" fields="id" match_type="" name="" on_delete="" on_update="" options="" reference_table="" type="PRIMARY KEY" />
299 <sqlt:constraint deferrable="1" expression="" fields="email" match_type="" name="" on_delete="" on_update="" options="" reference_table="" type="UNIQUE" />
305 $obj = SQL::Translator->new(
311 to => "XML-SQLFairy",
312 producer_args => { attrib_values => 1 },
314 lives_ok {$xml = $obj->translate($file);} "Translate (attrib_values=>1) ran";
315 ok("$xml" ne "" ,"Produced something!");
316 print "XML attrib_values=>1:\n$xml" if DEBUG;
317 # Strip sqlf header with its variable date so we diff safely
318 $xml =~ s/^([^\n]*\n){7}//m;
319 eq_or_diff $xml, $ans ,"XML looks right";
321 } # end attrib_values => 1
326 # Thanks to Ken for the schema setup lifted from 13schema.t
331 <sqlt:schema xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
332 <sqlt:database></sqlt:database>
333 <sqlt:name></sqlt:name>
335 <sqlt:fields>name,age</sqlt:fields>
336 <sqlt:name>foo_view</sqlt:name>
337 <sqlt:order>1</sqlt:order>
338 <sqlt:sql>select name, age from person</sqlt:sql>
343 $obj = SQL::Translator->new(
349 to => "XML-SQLFairy",
351 my $s = $obj->schema;
352 my $name = 'foo_view';
353 my $sql = 'select name, age from person';
354 my $fields = 'name, age';
355 my $v = $s->add_view(
362 # As we have created a Schema we give translate a dummy string so that
363 # it will run the produce.
364 lives_ok {$xml =$obj->translate("FOO");} "Translate (View) ran";
365 ok("$xml" ne "" ,"Produced something!");
366 print "XML attrib_values=>1:\n$xml" if DEBUG;
367 # Strip sqlf header with its variable date so we diff safely
368 $xml =~ s/^([^\n]*\n){7}//m;
369 eq_or_diff $xml, $ans ,"XML looks right";
375 # Thanks to Ken for the schema setup lifted from 13schema.t
380 <sqlt:schema xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
381 <sqlt:database></sqlt:database>
382 <sqlt:name></sqlt:name>
384 <sqlt:action>update modified=timestamp();</sqlt:action>
385 <sqlt:database_event>insert</sqlt:database_event>
386 <sqlt:name>foo_trigger</sqlt:name>
387 <sqlt:on_table>foo</sqlt:on_table>
388 <sqlt:order>1</sqlt:order>
389 <sqlt:perform_action_when>after</sqlt:perform_action_when>
394 $obj = SQL::Translator->new(
400 to => "XML-SQLFairy",
402 my $s = $obj->schema;
403 my $name = 'foo_trigger';
404 my $perform_action_when = 'after';
405 my $database_event = 'insert';
406 my $on_table = 'foo';
407 my $action = 'update modified=timestamp();';
408 my $t = $s->add_trigger(
410 perform_action_when => $perform_action_when,
411 database_event => $database_event,
412 on_table => $on_table,
416 # As we have created a Schema we give translate a dummy string so that
417 # it will run the produce.
418 lives_ok {$xml =$obj->translate("FOO");} "Translate (Trigger) ran";
419 ok("$xml" ne "" ,"Produced something!");
420 print "XML attrib_values=>1:\n$xml" if DEBUG;
421 # Strip sqlf header with its variable date so we diff safely
422 $xml =~ s/^([^\n]*\n){7}//m;
423 eq_or_diff $xml, $ans ,"XML looks right";
429 # Thanks to Ken for the schema setup lifted from 13schema.t
434 <sqlt:schema xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
435 <sqlt:database></sqlt:database>
436 <sqlt:name></sqlt:name>
438 <sqlt:comments>Go Sox!</sqlt:comments>
439 <sqlt:name>foo_proc</sqlt:name>
440 <sqlt:order>1</sqlt:order>
441 <sqlt:owner>Nomar</sqlt:owner>
442 <sqlt:parameters>foo,bar</sqlt:parameters>
443 <sqlt:sql>select foo from bar</sqlt:sql>
448 $obj = SQL::Translator->new(
454 to => "XML-SQLFairy",
456 my $s = $obj->schema;
457 my $name = 'foo_proc';
458 my $sql = 'select foo from bar';
459 my $parameters = 'foo, bar';
461 my $comments = 'Go Sox!';
462 my $p = $s->add_procedure(
465 parameters => $parameters,
467 comments => $comments,
470 # As we have created a Schema we give translate a dummy string so that
471 # it will run the produce.
472 lives_ok {$xml =$obj->translate("FOO");} "Translate (Procedure) ran";
473 ok("$xml" ne "" ,"Produced something!");
474 print "XML attrib_values=>1:\n$xml" if DEBUG;
475 # Strip sqlf header with its variable date so we diff safely
476 $xml =~ s/^([^\n]*\n){7}//m;
477 eq_or_diff $xml, $ans ,"XML looks right";