1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
--source include/have_debug.inc
--source include/have_debug_sync.inc
--disable_query_log
call mtr.add_suppression("\\[Error\\] .*MY-\\d+.* Unexpected INSTANTLY Added / Dropped *");
call mtr.add_suppression("\\[Error\\] .*MY-\\d+.* We detected index corruption in an InnoDB *");
--enable_query_log
CREATE TABLE t1 (a TEXT) ENGINE=INNODB;
INSERT INTO t1 (a) VALUES ('foo');
ALTER TABLE t1 ADD COLUMN b INT DEFAULT 0, algorithm=instant;
SELECT * FROM t1;
--let $table_name = t1
connect (con1,localhost,root,,);
connection con1;
SET DEBUG_SYNC='innodb_inplace_alter_table_enter SIGNAL update_now WAIT_FOR update_done';
send;
ALTER TABLE t1 ADD PRIMARY KEY (b);
connection default;
SET DEBUG_SYNC='now WAIT_FOR update_now';
--source suite/innodb/include/print_instant_part_metadata.inc
SELECT * FROM t1;
SHOW CREATE TABLE t1;
CHECK TABLE t1;
--echo # Simulate incorrect instant field fetch when reading field from record written with primary index
SET DEBUG = '+d,incorrect_instant_add_drop_field_fetched';
--error ER_NOT_KEYFILE
UPDATE t1 SET b = 1;
SET DEBUG = '-d,incorrect_instant_add_drop_field_fetched';
--source suite/innodb/include/print_instant_part_metadata.inc
SELECT * FROM t1;
SHOW CREATE TABLE t1;
CHECK TABLE t1;
SET DEBUG_SYNC='now SIGNAL update_done';
connection con1;
--error ER_INDEX_CORRUPT
reap;
connection default;
disconnect con1;
--source suite/innodb/include/print_instant_part_metadata.inc
SELECT * FROM t1;
SHOW CREATE TABLE t1;
CHECK TABLE t1;
DROP TABLE t1;
--echo # Now we parse the server ERROR log and print the expected error message
--let $grep_pattern= Unexpected INSTANTLY Added / Dropped
--let $grep_file= $MYSQLTEST_VARDIR/log/mysqld.1.err
--let $grep_output= print_count
--source include/grep_pattern.inc
--echo # Error message:
--let LOG= $grep_file
--let PATTERN= $grep_pattern
perl;
my $file = $ENV{'LOG'} or die "log file not set";
my $pattern = $ENV{'PATTERN'} or die "pattern not set";
my $result = "";
open(FILE, "$file") or die("Unable to open $file: $!\n");
while (<FILE>) {
my $line = $_;
if ($line =~ /$pattern/) {
$result = $result . $line;
$result =~ s/^[^E]*/[/;
last;
}
}
close(FILE) or die ("Unable to close $file: $!\n");
print $result;
EOF
--echo # End
|
