index_corrupt.pl
上传用户:romrleung
上传日期:2022-05-23
资源大小:18897k
文件大小:6k
- #!/usr/bin/perl -w
- #
- # This is a test for a key cache bug (bug #10167)
- # To expose the bug mysqld should be started with --key-buffer-size=64K
- #
- $opt_loop_count=100000; # Change this to make test harder/easier
- ##################### Standard benchmark inits ##############################
- use DBI;
- use Getopt::Long;
- use Benchmark;
- package main;
- $opt_skip_create=$opt_skip_in=$opt_verbose=$opt_fast_insert=
- $opt_lock_tables=$opt_debug=$opt_skip_delete=$opt_fast=$opt_force=0;
- $opt_host=$opt_user=$opt_password=""; $opt_db="test";
- GetOptions("host=s","db=s","loop-count=i","skip-create","skip-in",
- "skip-delete","verbose","fast-insert","lock-tables","debug","fast",
- "force","user=s","password=s") || die "Aborted";
- $opt_verbose=$opt_debug=$opt_lock_tables=$opt_fast_insert=$opt_fast=$opt_skip_in=$opt_force=undef; # Ignore warnings from these
- $firsttable = "bench_f1";
- $secondtable = "bench_f2";
- $kill_file= "/tmp/mysqltest_index_corrupt.$$";
- ####
- #### Start timeing and start test
- ####
- $start_time=new Benchmark;
- if (!$opt_skip_create)
- {
- $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host",
- $opt_user, $opt_password,
- { PrintError => 0}) || die $DBI::errstr;
- $dbh->do("drop table if exists $firsttable, $secondtable");
- print "Creating tables in $opt_dbn";
- $dbh->do("create table $firsttable (
- c_pollid INTEGER NOT NULL,
- c_time BIGINT NOT NULL,
- c_data DOUBLE NOT NULL,
- c_error INTEGER NOT NULL,
- c_warning INTEGER NOT NULL,
- c_okay INTEGER NOT NULL,
- c_unknown INTEGER NOT NULL,
- c_rolled_up BIT NOT NULL,
- INDEX t_mgmt_hist_r_i1 (c_pollid),
- INDEX t_mgmt_hist_r_i2 (c_time),
- INDEX t_mgmt_hist_r_i3 (c_rolled_up))") or die $DBI::errstr;
- $dbh->do("create table $secondtable (
- c_pollid INTEGER NOT NULL,
- c_min_time BIGINT NOT NULL,
- c_max_time BIGINT NOT NULL,
- c_min_data DOUBLE NOT NULL,
- c_max_data DOUBLE NOT NULL,
- c_avg_data DOUBLE NOT NULL,
- c_error INTEGER NOT NULL,
- c_warning INTEGER NOT NULL,
- c_okay INTEGER NOT NULL,
- c_unknown INTEGER NOT NULL,
- c_rolled_up BIT NOT NULL,
- INDEX t_mgmt_hist_d_i1 (c_pollid),
- INDEX t_mgmt_hist_d_i2 (c_min_time),
- INDEX t_mgmt_hist_d_i3 (c_max_time),
- INDEX t_mgmt_hist_d_i4 (c_rolled_up))") or die $DBI::errstr;
- $dbh->disconnect; $dbh=0; # Close handler
- }
- $|= 1; # Autoflush
- ####
- #### Start the tests
- ####
- print "Running testsn";
- insert_in_bench() if (($pid=fork()) == 0); $work{$pid}="insert";
- select_from_bench() if (($pid=fork()) == 0); $work{$pid}="insert-select;
- delete_from_bench() if (($pid=fork()) == 0); $work{$pid}="delete";
- $errors=0;
- while (($pid=wait()) != -1)
- {
- $ret=$?/256;
- print "thread '" . $work{$pid} . "' finished with exit code $retn";
- $errors++ if ($ret != 0);
- }
- if (!$opt_skip_delete && !$errors)
- {
- $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host",
- $opt_user, $opt_password,
- { PrintError => 0}) || die $DBI::errstr;
- $dbh->do("drop table $firsttable, $secondtable");
- }
- print ($errors ? "Test failedn" :"Test okn");
- $end_time=new Benchmark;
- print "Total time: " .
- timestr(timediff($end_time, $start_time),"noc") . "n";
- unlink $kill_file;
- exit(0);
- #
- # Insert records in the two tables
- #
- sub insert_in_bench
- {
- my ($dbh,$rows,$found,$i);
- $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host",
- $opt_user, $opt_password,
- { PrintError => 0}) || die $DBI::errstr;
- for ($rows= 1; $rows <= $opt_loop_count ; $rows++)
- {
- $c_pollid = sprintf("%d",rand 1000);
- $c_time = sprintf("%d",rand 100000);
- $c_data = rand 1000000;
- $test = rand 1;
- $c_error=0;
- $c_warning=0;
- $c_okay=0;
- $c_unknown=0;
- if ($test < .8) {
- $c_okay=1;
- } elsif ($test <.9) {
- $c_error=1;
- } elsif ($test <.95) {
- $c_warning=1;
- } else {
- $c_unknown=1;
- }
- $statement = "INSERT INTO $firsttable (c_pollid, c_time, c_data, c_error
- , c_warning, c_okay, c_unknown, c_rolled_up) ".
- "VALUES ($c_pollid,$c_time,$c_data,$c_error,$c_warning,$c_okay,$c_unknown,0)";
- $cursor = $dbh->prepare($statement);
- $cursor->execute();
- $cursor->finish();
- }
- $dbh->disconnect; $dbh=0;
- print "insert_in_bench: Inserted $rows rowsn";
- # Kill other threads
- open(KILLFILE, "> $kill_file");
- close(KILLFILE);
- exit(0);
- }
- sub select_from_bench
- {
- my ($dbh,$rows,$cursor);
- $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host",
- $opt_user, $opt_password,
- { PrintError => 0}) || die $DBI::errstr;
- for ($rows= 1; $rows < $opt_loop_count ; $rows++)
- {
- $t_value = rand 100000;
- $t_value2 = $t_value+10000;
- $statement = "INSERT INTO $secondtable (c_pollid, c_min_time, c_max_time
- , c_min_data, c_max_data, c_avg_data, c_error, c_warning, c_okay, c_unknown, c_rolled_up) SELECT c_pollid, MIN(c_time), MAX(c_time), MIN(c_data), MAX(c_data), AVG(c_data), SUM(c_error), SUM(c_warning), SUM(c_okay), SUM(c_unknown), 0 FROM $firsttable WHERE (c_time>=$t_value) AND (c_time<$t_value2) AND (c_rolled_up=0) GROUP BY c_pollid";
- $cursor = $dbh->prepare($statement);
- $cursor->execute();
- $cursor->finish();
- sleep 1;
- if (-e $kill_file)
- {
- last;
- }
- }
- print "select_from_bench: insert-select executed $rows timesn";
- exit(0);
- }
- sub delete_from_bench
- {
- my ($dbh,$row, $t_value, $t2_value, $statement, $cursor);
- $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host",
- $opt_user, $opt_password,
- { PrintError => 0}) || die $DBI::errstr;
- for ($rows= 1; $rows < $opt_loop_count ; $rows++)
- {
- $t_value = rand 50000;
- $t2_value = $t_value + 50001;
- $statement = "DELETE FROM $firsttable WHERE (c_time>$t_value) AND (c_time<$t2_value)";
- $cursor = $dbh->prepare($statement);
- $cursor->execute();
- $cursor->finish();
- sleep 10;
- if (-e $kill_file)
- {
- last;
- }
- }
- print "delete: delete executed $rows timesn";
- exit(0);
- }