[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'

local $^W = 0;

use strict;
use Test::More;
use Test::Exception;

use Data::Dumper;
my %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 XML::SQLFairy.";
}
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 => 9;
    
use SQL::Translator;
use SQL::Translator::Producer::XML::SQLFairy;

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

#
# emit_empty_tags => 0
#

$ans = <<EOXML;
<sqlt:schema xmlns:sqlt="http://sqlfairy.sourceforge.net/sqlfairy.xml">
  <sqlt:name></sqlt:name>
  <sqlt:database></sqlt:database>
  <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:comments>comment on id field</sqlt:comments>
      </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:comments></sqlt:comments>
      </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>65535</sqlt:size>
        <sqlt:comments></sqlt:comments>
      </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:comments></sqlt:comments>
      </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             => 'XML-SQLFairy',
);
lives_ok {$xml = $obj->translate($file);} "Translate (emit_empty_tags=>0) 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:name></sqlt:name>
  <sqlt:database></sqlt:database>
  <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:comments>comment on id field</sqlt:comments>
      </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:comments></sqlt:comments>
      </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>65535</sqlt:size>
        <sqlt:comments></sqlt:comments>
      </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:comments></sqlt:comments>
      </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             => 'XML-SQLFairy',
    producer_args  => { emit_empty_tags => 1 },
);
lives_ok { $xml=$obj->translate($file); } "Translate (emit_empty_tags=>1) 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";


#
# attrib_values => 1
#

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