percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-10 13:11:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Test that fk constraints actually still hold.

Browse Source
This commit is contained in:
Daniel Nichter
2012-03-25 11:45:34 -06:00
parent 0207e712b8
commit 3589ec2c7c
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -29,7 +29,7 @@ if ( !$master_dbh ) {
plan skip_all => 'Cannot connect to sandbox master'; plan skip_all => 'Cannot connect to sandbox master';
} }
else { else {
plan tests => 38; plan tests => 42;
} }
my $q = new Quoter(); my $q = new Quoter();
@@ -121,6 +121,19 @@ sub test_alter_table {
$tp->get_create_table($master_dbh, $db, $tbl->[0])); $tp->get_create_table($master_dbh, $db, $tbl->[0]));
push @orig_fks, $fks; push @orig_fks, $fks;
} }
# Go that extra mile and verify that the fks are actually
# still functiona: i.e. that they'll prevent us from delete
# a parent row that's being referenced by a child.
my $sql = "DELETE FROM $table WHERE $pk_col=1 LIMIT 1";
eval {
$master_dbh->do($sql);
};
like(
$EVAL_ERROR,
qr/foreign key constraint fails/,
"$name FK constraints still hold"
);
} }
$output = output( $output = output(