blob: 44865b652cb99a19e1ef5334412c26ba9e976ade (
plain)
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
|
--disable_warnings
drop table if exists t1;
--enable_warnings
#
# Remove old log file
#
let SLOW_LOG_FILE= `select @@slow_query_log_file`;
SET @@global.slow_query_log = OFF;
perl;
my $slow_log_file= $ENV{'SLOW_LOG_FILE'} or die "SLOW_LOG_FILE not set";
unlink($slow_log_file);
EOF
FLUSH SLOW LOGS;
SET @@global.slow_query_log = ON;
create table t1 (a int);
INSERT INTO t1 VALUES (0),(1),(2),(3),(4),(5),(6),(7),(8),(9);
select * from t1 where a<3;
drop table t1;
let SLOW_LOG_FILE= `select @@slow_query_log_file`;
# select @@slow_query_log_file;
perl;
my $slow_log_file= $ENV{'SLOW_LOG_FILE'} or die "SLOW_LOG_FILE not set";
open(FILE, $slow_log_file) or die "Failed to open $slow_log_file";
while(<FILE>) {
next if 1../create table t1/; # skip entries generated by mtr prelude
print if /explain:/;
}
close(FILE);
EOF
|
