percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-24 21:35:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make TableParser.pm handle ANSI quotes

Browse Source
This commit is contained in:
Baron Schwartz
2012-06-07 00:59:59 -04:00
parent ba2ddf682b
commit f7c97e749e
3 changed files with 60 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
t/lib/TableParser.t
View File

@@ -39,6 +39,10 @@ SKIP: {
);
my $ddl = $tp->get_create_table($dbh, 'sakila', 'actor');
if ( $ddl =~ m/TABLE "actor"/ ) { # It's ANSI quoting, compensate
$ddl = $tp->ansi_to_legacy($ddl);
$ddl = "$ddl ENGINE=InnoDB AUTO_INCREMENT=201 DEFAULT CHARSET=utf8";
}
ok(
no_diff(
"$ddl\n",
@@ -54,7 +58,7 @@ SKIP: {
$ddl = $tp->get_create_table($dbh, qw(test t));
like(
$ddl,
qr/`a b`\s+/,
qr/[`"]a b[`"]\s+/,
"Does not compress spaces (bug 932442)"
);
};
@@ -64,11 +68,6 @@ eval {
};
like($EVAL_ERROR, qr/quoting/, 'No quoting');
eval {
$tp->parse( load_file('t/lib/samples/ansi_quotes.sql') );
};
like($EVAL_ERROR, qr/quoting/, 'ANSI quoting');
$tbl = $tp->parse( load_file('t/lib/samples/t1.sql') );
is_deeply(
$tbl,
@@ -146,6 +145,21 @@ is_deeply(
'Indexes with prefixes parse OK (fixes issue 1)'
);
is(
$tp->ansi_to_legacy( load_file('t/lib/samples/ansi.quoting.sql') ),
q{CREATE TABLE `t` (
`a` int(11) DEFAULT NULL,
`b``c` int(11) DEFAULT NULL,
`d"e` int(11) DEFAULT NULL,
`f
g` int(11) DEFAULT NULL,
`h\` int(11) DEFAULT NULL,
`i\"` int(11) DEFAULT NULL
)
},
'ANSI quotes (with all kinds of dumb things) get translated correctly'
);
$tbl = $tp->parse( load_file('t/lib/samples/sakila.film.sql') );
is_deeply(
$tbl,

9
t/lib/samples/ansi.quoting.sql Normal file
View File

@@ -0,0 +1,9 @@
CREATE TABLE "t" (
"a" int(11) DEFAULT NULL,
"b`c" int(11) DEFAULT NULL,
"d""e" int(11) DEFAULT NULL,
"f
g" int(11) DEFAULT NULL,
"h\" int(11) DEFAULT NULL,
"i\""" int(11) DEFAULT NULL
)