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

Test MAX(pd_col) and AUTO_INCREMENT.

Browse Source
This commit is contained in:
Daniel Nichter
2012-03-29 16:06:12 -06:00
parent 382cb24367
commit 767aed2a95
1 changed files with 26 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
t/pt-online-schema-change/basics.t
View File

@@ -32,7 +32,7 @@ elsif ( !$slave_dbh ) {
plan skip_all => 'Cannot connect to sandbox slave'; plan skip_all => 'Cannot connect to sandbox slave';
} }
else { else {
plan tests => 63; plan tests => 83;
} }
my $q = new Quoter(); my $q = new Quoter();
@@ -120,6 +120,11 @@ sub test_alter_table {
my $orig_tbls = $master_dbh->selectall_arrayref( my $orig_tbls = $master_dbh->selectall_arrayref(
"SHOW TABLES FROM `$db`"); "SHOW TABLES FROM `$db`");
my $orig_max_id = $master_dbh->selectall_arrayref(
"SELECT MAX(`$pk_col`) FROM `$db`.`$tbl`");
my ($orig_auto_inc) = $ddl =~ m/\s+AUTO_INCREMENT=(\d+)\s+/;
my $fk_method = $args{check_fks}; my $fk_method = $args{check_fks};
my @orig_fks; my @orig_fks;
if ( $fk_method ) { if ( $fk_method ) {
@@ -143,6 +148,7 @@ sub test_alter_table {
stderr => 1, stderr => 1,
); );
my $new_ddl = $tp->get_create_table($master_dbh, $db, $tbl);
my $fail = 0; my $fail = 0;
is( is(
@@ -167,20 +173,35 @@ sub test_alter_table {
"$name rows" "$name rows"
) or $fail = 1; ) or $fail = 1;
my $new_max_id = $master_dbh->selectall_arrayref(
"SELECT MAX(`$pk_col`) FROM `$db`.`$tbl`");
is(
$orig_max_id->[0]->[0],
$new_max_id->[0]->[0],
"$name MAX(pk_col)"
) or $fail = 1;
my ($new_auto_inc) = $new_ddl =~ m/\s+AUTO_INCREMENT=(\d+)\s+/;
is(
$orig_auto_inc,
$new_auto_inc,
"$name AUTO_INCREMENT=$orig_auto_inc"
) or $fail = 1;
# Check if the ALTER was actually done. # Check if the ALTER was actually done.
if ( $test_type eq 'drop_col' ) { if ( $test_type eq 'drop_col' ) {
my $col = $q->quote($args{drop_col}); my $col = $q->quote($args{drop_col});
my $ddl = $tp->get_create_table($master_dbh, $db, $tbl);
if ( grep { $_ eq '--dry-run' } @$cmds ) { if ( grep { $_ eq '--dry-run' } @$cmds ) {
like( like(
$ddl, $new_ddl,
qr/^\s+$col\s+/m, qr/^\s+$col\s+/m,
"$name ALTER DROP COLUMN=$args{drop_col} (dry run)" "$name ALTER DROP COLUMN=$args{drop_col} (dry run)"
) or $fail = 1; ) or $fail = 1;
} }
else { else {
unlike( unlike(
$ddl, $new_ddl,
qr/^\s+$col\s+/m, qr/^\s+$col\s+/m,
"$name ALTER DROP COLUMN=$args{drop_col}" "$name ALTER DROP COLUMN=$args{drop_col}"
) or $fail = 1; ) or $fail = 1;