Add forked Maatkit tools in bin/ and their tests in t/.

t/pt-duplicate-key-checker/basics.t

@@ -0,0 +1,102 @@
+#!/usr/bin/env perl
+
+BEGIN {
+   die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
+      unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
+   unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
+};
+
+use strict;
+use warnings FATAL => 'all';
+use English qw(-no_match_vars);
+use Test::More;
+
+use MaatkitTest;
+use Sandbox;
+require "$trunk/bin/pt-duplicate-key-checker";
+
+my $dp  = new DSNParser(opts=>$dsn_opts);
+my $sb  = new Sandbox(basedir => '/tmp', DSNParser => $dp);
+my $dbh = $sb->get_dbh_for('master');
+
+if ( !$dbh ) {
+   plan skip_all => 'Cannot connect to sandbox master';
+}
+else {
+   plan tests => 8;
+}
+
+my $output;
+my $sample = "t/pt-duplicate-key-checker/samples/";
+my $cnf    = "/tmp/12345/my.sandbox.cnf";
+my $cmd    = "$trunk/bin/pt-duplicate-key-checker -F $cnf -h 127.1";
+my @args   = ('-F', $cnf, qw(-h 127.1));
+
+$sb->wipe_clean($dbh);
+$sb->create_dbs($dbh, ['test']);
+
+$output = `$cmd -d mysql -t columns_priv -v`;
+like($output,
+   qr/PRIMARY \(`Host`,`Db`,`User`,`Table_name`,`Column_name`\)/,
+   'Finds mysql.columns_priv PK'
+);
+
+is(`$cmd -d test --nosummary`, '', 'No dupes on clean sandbox');
+
+$sb->load_file('master', 't/lib/samples/dupe_key.sql', 'test');
+
+ok(
+   no_diff(
+      sub { mk_duplicate_key_checker::main(@args, qw(-d test)) },
+      "$sample/basic_output.txt"),
+   'Default output'
+);
+
+ok(
+   no_diff(
+      sub { mk_duplicate_key_checker::main(@args, qw(-d test --nosql)) },
+      "$sample/nosql_output.txt"),
+   '--nosql'
+);
+
+ok(
+   no_diff(
+      sub { mk_duplicate_key_checker::main(@args, qw(-d test --nosummary)) },
+      "$sample/nosummary_output.txt"),
+   '--nosummary'
+);
+
+$sb->load_file('master', 't/lib/samples/uppercase_names.sql', 'test');
+
+ok(
+   no_diff(
+      sub { mk_duplicate_key_checker::main(@args, qw(-d test -t UPPER_TEST)) },
+      ($sandbox_version ge '5.1' ? "$sample/uppercase_names-51.txt"
+                                 : "$sample/uppercase_names.txt")
+   ),
+   'Issue 306 crash on uppercase column names'
+);
+
+$sb->load_file('master', 't/lib/samples/issue_269-1.sql', 'test');
+
+ok(
+   no_diff(
+      sub { mk_duplicate_key_checker::main(@args, qw(-d test -t a)) },
+      "$sample/issue_269.txt"),
+   'No dupes for issue 269'
+);
+
+$sb->wipe_clean($dbh);
+
+ok(
+   no_diff(
+      sub { mk_duplicate_key_checker::main(@args, qw(-d test)) },
+      "$sample/nonexistent_db.txt"),
+   'No results for nonexistent db'
+);
+
+# #############################################################################
+# Done.
+# #############################################################################
+$sb->wipe_clean($dbh);
+exit;