Test that SQL_MODE isn't changed.

This commit is contained in:
Daniel Nichter
2012-11-01 11:46:54 -06:00
parent 8d82a80b5e
commit 7d64ca2113

View File

@@ -42,6 +42,13 @@ my $sample = "t/pt-online-schema-change/samples/";
# ############################################################################
$sb->load_file('master1', "$sample/sql-mode-bug-1058285.sql");
my ($orig_sql_mode) = $dbh->selectrow_array(q{SELECT @@SQL_MODE});
is(
$orig_sql_mode,
"REAL_AS_FLOAT,PIPES_AS_CONCAT,ANSI_QUOTES,IGNORE_SPACE,ANSI,NO_AUTO_VALUE_ON_ZERO",
"SQL_MODE set"
);
($output, $exit_status) = full_output(
sub { pt_online_schema_change::main(@args,
"$master_dsn,D=issue26211,t=process_model_inst",
@@ -61,6 +68,13 @@ unlike(
"No error 121 (bug 1058285)"
);
my ($sql_mode) = $dbh->selectrow_array(q{SELECT @@SQL_MODE});
is(
$sql_mode,
$orig_sql_mode,
"--dry-run SQL_MODE not changed"
);
($output, $exit_status) = full_output(
sub { pt_online_schema_change::main(@args,
"$master_dsn,D=issue26211,t=process_model_inst",
@@ -88,6 +102,13 @@ like(
"--alter actually worked (bug 1058285)"
);
($sql_mode) = $dbh->selectrow_array(q{SELECT @@SQL_MODE});
is(
$sql_mode,
$orig_sql_mode,
"--execute SQL_MODE not changed"
);
# #############################################################################
# Done.
# #############################################################################