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

Merge r55.

Browse Source
This commit is contained in:
Daniel Nichter
2011-08-02 15:12:46 -06:00
parent 6a2e392513 94db6d63b9
commit e4e7a470a4
2 changed files with 3 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
t/lib/OptionParser.t
View File

@@ -698,9 +698,9 @@ sub check_usage {
"t/lib/samples/OptionParser/$file", "t/lib/samples/OptionParser/$file",
cmd_output => 1, cmd_output => 1,
sed => [ sed => [
"-i -e 's/ $prog_name/ \$PROGRAM_NAME/g'", "'s/ $prog_name/ \$PROGRAM_NAME/g'",
"-i -e 's/$trunk_esc/\$trunk/g'", "'s/$trunk_esc/\$trunk/g'",
"-i -e 's/$home_esc/\$ENV\{HOME\}/g'", "'s/$home_esc/\$ENV\{HOME\}/g'",
], ],
), ),
} }

92
t/lib/TableParser.pl
View File

@@ -1,92 +0,0 @@
#!/usr/bin/perl
# ##########################################################################
# This is a magic test file that is designed to be run manually.
# ##########################################################################
# This program is copyright (c) 2007 Baron Schwartz.
# Feedback and improvements are welcome.
#
# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
# This program is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation, version 2; OR the Perl Artistic License. On UNIX and similar
# systems, you can issue `man perlgpl' or `man perlartistic' to read these
# licenses.
#
# You should have received a copy of the GNU General Public License along with
# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
# Place, Suite 330, Boston, MA 02111-1307 USA.
use strict;
use warnings FATAL => 'all';
use Test::More qw(no_plan);
use English qw(-no_match_vars);
use DBI;
require "../TableParser.pm";
require "../MySQLFind.pm";
require "../MySQLDump.pm";
require "../Quoter.pm";
my $p = new TableParser();
my $q = new Quoter();
my $d = new MySQLDump();
my $t;
# This part of the test inspects every table in the local MySQL server, if a
# connection can be made. It checks that parsing produces the same columns
# and types and nullability etc as reported by SHOW COLUMNS.
my $dbh;
eval {
$dbh = DBI->connect(
"DBI:mysql:;mysql_read_default_group=mysql", undef, undef,
{ PrintError => 0, RaiseError => 1 })
};
if ( $EVAL_ERROR ) {
diag "Cannot connect";
exit(0);
}
my $f = new MySQLFind(
dbh => $dbh,
quoter => $q,
engines => {
views => 0,
},
);
foreach my $database ( $f->find_databases() ) {
foreach my $table ( $f->find_tables(database => $database) ) {
my $ddl = $d->get_create_table($dbh, $q, $database, $table);
my $str = $p->parse($ddl);
my $cols = $d->get_columns($dbh, $q, $database, $table);
is_deeply(
$str->{cols},
[ map { $_->{field} } @$cols ],
"Columns for $database.$table",
);
is_deeply(
$str->{type_for},
{ map {
my $t = $_->{type};
$t =~ s/\W.*$//;
$_->{field} => $t;
} @$cols },
"Column types for $database.$table",
);
is_deeply(
$str->{null_cols},
[ map { $_->{field} } grep { $_->{null} eq 'YES' } @$cols ],
"Nullability for $database.$table",
);
}
}