Commit 5c4937c1 authored by Terje Rosten's avatar Terje Rosten

Bug#16395459 TEST AND RESULT FILES WITH EXECUTE BIT

Bug#16415173 CRLF INSTEAD OF LF IN SQL-BENCH SCRIPTS
      
Correct perms and converts from Windows style to UNIX style line endings on some files.
Fix perms on installed ini files.

(MySQL 5.5 version)
parent a44b4a18
File mode changed from 100755 to 100644
File mode changed from 100755 to 100644
File mode changed from 100755 to 100644
File mode changed from 100755 to 100644
File mode changed from 100755 to 100644
--lower-case-table-names=2 --lower-case-table-names=2
File mode changed from 100755 to 100644
#! /bin/bash
d="$MYSQLTEST_VARDIR/tmp/long_temporary_directory_path_123456789_123456789_123456789_123456789_123456789_123456789_123456789_123456789" d="$MYSQLTEST_VARDIR/tmp/long_temporary_directory_path_123456789_123456789_123456789_123456789_123456789_123456789_123456789_123456789"
test -d "$d" || mkdir "$d" test -d "$d" || mkdir "$d"
rm -f "$d"/* rm -f "$d"/*
#! /bin/bash
# This test requires a non-lowercase tmpdir directory on a case-sensitive # This test requires a non-lowercase tmpdir directory on a case-sensitive
# filesystem. # filesystem.
......
--lower-case-table-names=2 --lower-case-table-names=2
File mode changed from 100755 to 100644
File mode changed from 100755 to 100644
#! /usr/bin/perl
#### ####
#### Hello ... this is a heavily hacked script by Luuk #### Hello ... this is a heavily hacked script by Luuk
#### instead of printing the result it makes a nice gif #### instead of printing the result it makes a nice gif
......
#!/usr/bin/perl #!/usr/bin/perl
############################################################################ ############################################################################
# Stress test for MySQL/InnoDB combined database # Stress test for MySQL/InnoDB combined database
# (c) 2002 Innobase Oy & MySQL AB # (c) 2002 Innobase Oy & MySQL AB
# #
############################################################################ ############################################################################
use Cwd; use Cwd;
use DBI; use DBI;
use Benchmark; use Benchmark;
$opt_loop_count = 100000; $opt_loop_count = 100000;
$pwd = cwd(); $pwd = "." if ($pwd eq ''); $pwd = cwd(); $pwd = "." if ($pwd eq '');
require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n"; require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n";
print "Innotest1: MySQL/InnoDB stress test in Perl\n"; print "Innotest1: MySQL/InnoDB stress test in Perl\n";
print "-------------------------------------------\n"; print "-------------------------------------------\n";
print "This is a randomized stress test for concurrent inserts,\n"; print "This is a randomized stress test for concurrent inserts,\n";
print "updates, deletes, commits and rollbacks. The test will generate\n"; print "updates, deletes, commits and rollbacks. The test will generate\n";
print "also a lot of deadlocks, duplicate key errors, and other SQL errors.\n"; print "also a lot of deadlocks, duplicate key errors, and other SQL errors.\n";
print "\n"; print "\n";
print "You should run innotest1, innotest1a, and innotest1b concurrently.\n"; print "You should run innotest1, innotest1a, and innotest1b concurrently.\n";
print "The thing to watch is that the server does not crash or does not\n"; print "The thing to watch is that the server does not crash or does not\n";
print "print to the .err log anything. Currently, due to a buglet in MySQL,\n"; print "print to the .err log anything. Currently, due to a buglet in MySQL,\n";
print "warnings about MySQL lock reservations can appear in the .err log.\n"; print "warnings about MySQL lock reservations can appear in the .err log.\n";
print "The test will run very long, even several hours. You can kill\n"; print "The test will run very long, even several hours. You can kill\n";
print "the perl processes running this test at any time and do CHECK\n"; print "the perl processes running this test at any time and do CHECK\n";
print "TABLE on table innotest1 in the 'test' database.\n"; print "TABLE on table innotest1 in the 'test' database.\n";
print "\n"; print "\n";
print "Some of these stress tests will print a lot of SQL errors\n"; print "Some of these stress tests will print a lot of SQL errors\n";
print "to the standard output. That is not to be worried about.\n"; print "to the standard output. That is not to be worried about.\n";
print "You can direct the output to a file like this:\n"; print "You can direct the output to a file like this:\n";
print "perl innotest1 > out1\n\n"; print "perl innotest1 > out1\n\n";
print "Generating random keys\n"; print "Generating random keys\n";
$random[$opt_loop_count] = 0; $random[$opt_loop_count] = 0;
$rnd_str[$opt_loop_count] = "a"; $rnd_str[$opt_loop_count] = "a";
for ($i = 0; $i < $opt_loop_count; $i++) { for ($i = 0; $i < $opt_loop_count; $i++) {
$random[$i] = ($i * 63857) % $opt_loop_count; $random[$i] = ($i * 63857) % $opt_loop_count;
if (0 == ($random[$i] % 3)) { if (0 == ($random[$i] % 3)) {
$rnd_str[$i] = "kjgclgrtfuylfluyfyufyulfulfyyulofuyolfyufyufuyfyufyufyufyufyyufujhfghd"; $rnd_str[$i] = "kjgclgrtfuylfluyfyufyulfulfyyulofuyolfyufyufuyfyufyufyufyufyyufujhfghd";
} else { if (1 == ($random[$i] % 3)) { } else { if (1 == ($random[$i] % 3)) {
$rnd_str[$i] = "khd"; $rnd_str[$i] = "khd";
} else { if (2 == ($random[$i] % 3)) { } else { if (2 == ($random[$i] % 3)) {
$rnd_str[$i] = "kh"; $rnd_str[$i] = "kh";
}}} }}}
for ($j = 0; $j < (($i * 764877) % 20); $j++) { for ($j = 0; $j < (($i * 764877) % 20); $j++) {
$rnd_str[$i] = $rnd_str[$i]."k"; $rnd_str[$i] = $rnd_str[$i]."k";
} }
} }
#### ####
#### Connect #### Connect
#### ####
$dbh = $server->connect() $dbh = $server->connect()
|| die $dbh->errstr; || die $dbh->errstr;
$dbh->do("set autocommit = 0"); $dbh->do("set autocommit = 0");
$n = 0; $n = 0;
for ($i = 0; $i < 1; $i++) { for ($i = 0; $i < 1; $i++) {
print "Dropping table innotest1\n"; print "Dropping table innotest1\n";
$dbh->do("drop table innotest1"); $dbh->do("drop table innotest1");
print "Creating table innotest1\n"; print "Creating table innotest1\n";
$dbh->do( $dbh->do(
"create table innotest1 (A INT NOT NULL AUTO_INCREMENT, D INT NOT NULL, B VARCHAR(200) NOT NULL, C VARCHAR(175), E TIMESTAMP, F TIMESTAMP, G DATETIME, PRIMARY KEY (A, D), INDEX "create table innotest1 (A INT NOT NULL AUTO_INCREMENT, D INT NOT NULL, B VARCHAR(200) NOT NULL, C VARCHAR(175), E TIMESTAMP, F TIMESTAMP, G DATETIME, PRIMARY KEY (A, D), INDEX
(B, C), INDEX (C), INDEX (D), INDEX(E), INDEX(G)) TYPE = INNODB") (B, C), INDEX (C), INDEX (D), INDEX(E), INDEX(G)) TYPE = INNODB")
|| die $dbh->errstr; || die $dbh->errstr;
for ($j = 2; $j < $opt_loop_count - 10; $j = $j + 2) { for ($j = 2; $j < $opt_loop_count - 10; $j = $j + 2) {
if ($j % 10 == 0) { if ($j % 10 == 0) {
$dbh->do( $dbh->do(
"insert into innotest1 (D, B, C, F, G) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."', NULL, NULL)"); "insert into innotest1 (D, B, C, F, G) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."', NULL, NULL)");
} else { } else {
$dbh->do( $dbh->do(
"insert into innotest1 (D, B, C, F, G) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."', NOW(), NOW())"); "insert into innotest1 (D, B, C, F, G) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."', NOW(), NOW())");
} }
$dbh->do("update innotest1 set B = '".$rnd_str[$j + 7]."' where A = ".$random[$j + 5]); $dbh->do("update innotest1 set B = '".$rnd_str[$j + 7]."' where A = ".$random[$j + 5]);
$dbh->do("update innotest1 SET D = D + 1 where A =".($j / 2 - 500)); $dbh->do("update innotest1 SET D = D + 1 where A =".($j / 2 - 500));
$dbh->do("update innotest1 set B = '".$rnd_str[$j + 1]."' where A =".($j / 2 - 505)); $dbh->do("update innotest1 set B = '".$rnd_str[$j + 1]."' where A =".($j / 2 - 505));
$dbh->do("delete from innotest1 where A = ".$random[$random[$j]]); $dbh->do("delete from innotest1 where A = ".$random[$random[$j]]);
fetch_all_rows($dbh, "select b, c from innotest1 where a > ".$random[$j]." and a < ".($random[$j] + 7)); fetch_all_rows($dbh, "select b, c from innotest1 where a > ".$random[$j]." and a < ".($random[$j] + 7));
if (0 == ($j % 10)) { if (0 == ($j % 10)) {
$dbh->do("commit"); $dbh->do("commit");
} }
if (0 == ($j % 97)) { if (0 == ($j % 97)) {
fetch_all_rows($dbh, "select c, e, f, g from innotest1 where c = '".$rnd_str[$j - 68]."'"); fetch_all_rows($dbh, "select c, e, f, g from innotest1 where c = '".$rnd_str[$j - 68]."'");
fetch_all_rows($dbh, "select b, e, f, g from innotest1 where b = '".$rnd_str[$j - 677]."'"); fetch_all_rows($dbh, "select b, e, f, g from innotest1 where b = '".$rnd_str[$j - 677]."'");
fetch_all_rows($dbh, "select b, c, e, f, g from innotest1 where c = '".$rnd_str[$j - 68]."'"); fetch_all_rows($dbh, "select b, c, e, f, g from innotest1 where c = '".$rnd_str[$j - 68]."'");
fetch_all_rows($dbh, "select b, c, g from innotest1 where b = '".$rnd_str[$j - 677]."'"); fetch_all_rows($dbh, "select b, c, g from innotest1 where b = '".$rnd_str[$j - 677]."'");
fetch_all_rows($dbh, "select a, b, c, e, f, g from innotest1 where c = '".$rnd_str[$j - 68]."'"); fetch_all_rows($dbh, "select a, b, c, e, f, g from innotest1 where c = '".$rnd_str[$j - 68]."'");
fetch_all_rows($dbh, "select a, b, c, e, f, g from innotest1 where b = '".$rnd_str[$j - 677]."'"); fetch_all_rows($dbh, "select a, b, c, e, f, g from innotest1 where b = '".$rnd_str[$j - 677]."'");
fetch_all_rows($dbh, "select d, b, c from innotest1 where c = '".$rnd_str[$j - 68]."'"); fetch_all_rows($dbh, "select d, b, c from innotest1 where c = '".$rnd_str[$j - 68]."'");
fetch_all_rows($dbh, "select d, b, c, g from innotest1 where b = '".$rnd_str[$j - 677]."'"); fetch_all_rows($dbh, "select d, b, c, g from innotest1 where b = '".$rnd_str[$j - 677]."'");
$dbh->do("rollback"); $dbh->do("rollback");
} }
for ($k = 1; $k < 10; $k++) { for ($k = 1; $k < 10; $k++) {
$n += fetch_all_rows($dbh, $n += fetch_all_rows($dbh,
"SELECT a, d from innotest1 where a = ".(($k * 1764767) % $j)); "SELECT a, d from innotest1 where a = ".(($k * 1764767) % $j));
$n += fetch_all_rows($dbh, $n += fetch_all_rows($dbh,
"SELECT * from innotest1 where a = ".(($k * 187567) % $j)); "SELECT * from innotest1 where a = ".(($k * 187567) % $j));
} }
if (0 == ($j % 1000)) { if (0 == ($j % 1000)) {
print "round $j, $n rows fetched\n"; print "round $j, $n rows fetched\n";
} }
if (0 == ($j % 20000)) { if (0 == ($j % 20000)) {
print "Checking table innotest1...\n"; print "Checking table innotest1...\n";
$dbh->do("check table innotest1"); $dbh->do("check table innotest1");
print "Table checked.\n"; print "Table checked.\n";
} }
} }
$dbh->do("commit"); $dbh->do("commit");
} }
$dbh->disconnect; # close connection $dbh->disconnect; # close connection
#!/usr/bin/perl #!/usr/bin/perl
############################################################################ ############################################################################
# Stress test for MySQL/InnoDB combined database # Stress test for MySQL/InnoDB combined database
# (c) 2002 Innobase Oy & MySQL AB # (c) 2002 Innobase Oy & MySQL AB
# #
############################################################################ ############################################################################
use Cwd; use Cwd;
use DBI; use DBI;
use Benchmark; use Benchmark;
$opt_loop_count = 200000; $opt_loop_count = 200000;
$pwd = cwd(); $pwd = "." if ($pwd eq ''); $pwd = cwd(); $pwd = "." if ($pwd eq '');
require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n"; require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n";
print "Innotest1a: MySQL/InnoDB stress test in Perl\n"; print "Innotest1a: MySQL/InnoDB stress test in Perl\n";
print "-------------------------------------------\n"; print "-------------------------------------------\n";
print "This is a randomized stress test for concurrent inserts,\n"; print "This is a randomized stress test for concurrent inserts,\n";
print "updates, deletes, commits and rollbacks. The test will generate\n"; print "updates, deletes, commits and rollbacks. The test will generate\n";
print "also a lot of deadlocks, duplicate key errors, and other SQL errors.\n"; print "also a lot of deadlocks, duplicate key errors, and other SQL errors.\n";
print "\n"; print "\n";
print "You should run innotest1, innotest1a, and innotest1b concurrently.\n"; print "You should run innotest1, innotest1a, and innotest1b concurrently.\n";
print "The thing to watch is that the server does not crash or does not\n"; print "The thing to watch is that the server does not crash or does not\n";
print "print to the .err log anything. Currently, due to a buglet in MySQL,\n"; print "print to the .err log anything. Currently, due to a buglet in MySQL,\n";
print "warnings about MySQL lock reservations can appear in the .err log.\n"; print "warnings about MySQL lock reservations can appear in the .err log.\n";
print "The test will run very long, even several hours. You can kill\n"; print "The test will run very long, even several hours. You can kill\n";
print "the perl processes running this test at any time and do CHECK\n"; print "the perl processes running this test at any time and do CHECK\n";
print "TABLE on table innotest1 in the 'test' database.\n"; print "TABLE on table innotest1 in the 'test' database.\n";
print "\n"; print "\n";
print "Some of these stress tests will print a lot of SQL errors\n"; print "Some of these stress tests will print a lot of SQL errors\n";
print "to the standard output. That is not to be worried about.\n"; print "to the standard output. That is not to be worried about.\n";
print "You can direct the output to a file like this:\n"; print "You can direct the output to a file like this:\n";
print "perl innotest1 > out1\n\n"; print "perl innotest1 > out1\n\n";
print "Generating random keys\n"; print "Generating random keys\n";
$random[$opt_loop_count] = 0; $random[$opt_loop_count] = 0;
$rnd_str[$opt_loop_count] = "a"; $rnd_str[$opt_loop_count] = "a";
for ($i = 0; $i < $opt_loop_count; $i++) { for ($i = 0; $i < $opt_loop_count; $i++) {
$random[$i] = ($i * 63857) % $opt_loop_count; $random[$i] = ($i * 63857) % $opt_loop_count;
if (0 == ($random[$i] % 3)) { if (0 == ($random[$i] % 3)) {
$rnd_str[$i] = "kjgclgrtfuylfluyfyufyulfulfyyulofuyolfyufyufuyfyufyufyufyufyyufujhfghd"; $rnd_str[$i] = "kjgclgrtfuylfluyfyufyulfulfyyulofuyolfyufyufuyfyufyufyufyufyyufujhfghd";
} else { if (1 == ($random[$i] % 3)) { } else { if (1 == ($random[$i] % 3)) {
$rnd_str[$i] = "khd"; $rnd_str[$i] = "khd";
} else { if (2 == ($random[$i] % 3)) { } else { if (2 == ($random[$i] % 3)) {
$rnd_str[$i] = "kh"; $rnd_str[$i] = "kh";
}}} }}}
for ($j = 0; $j < (($i * 764877) % 20); $j++) { for ($j = 0; $j < (($i * 764877) % 20); $j++) {
$rnd_str[$i] = $rnd_str[$i]."k"; $rnd_str[$i] = $rnd_str[$i]."k";
} }
} }
#### ####
#### Connect #### Connect
#### ####
$dbh = $server->connect() $dbh = $server->connect()
|| die $dbh->errstr; || die $dbh->errstr;
$dbh->do("set autocommit = 0"); $dbh->do("set autocommit = 0");
for ($i = 0; $i < 1; $i++) { for ($i = 0; $i < 1; $i++) {
print "loop $i\n"; print "loop $i\n";
for ($j = 1; $j < $opt_loop_count - 10; $j = $j + 2) { for ($j = 1; $j < $opt_loop_count - 10; $j = $j + 2) {
$dbh->do( $dbh->do(
"insert into innotest1 (D, B, C) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."')"); "insert into innotest1 (D, B, C) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."')");
$dbh->do("update innotest1 set B = '".$rnd_str[$j + 2]."' where A = ".$random[$j + 5]); $dbh->do("update innotest1 set B = '".$rnd_str[$j + 2]."' where A = ".$random[$j + 5]);
$dbh->do("update innotest1 SET D = D + 1 where A =".(($j - 1) / 2 - 777)); $dbh->do("update innotest1 SET D = D + 1 where A =".(($j - 1) / 2 - 777));
$dbh->do("update innotest1 set B = '".$rnd_str[$j + 8]."' where A =".(($j - 1) / 2 - 770)); $dbh->do("update innotest1 set B = '".$rnd_str[$j + 8]."' where A =".(($j - 1) / 2 - 770));
$dbh->do("delete from innotest1 where A = ".$random[$random[$j]]); $dbh->do("delete from innotest1 where A = ".$random[$random[$j]]);
fetch_all_rows($dbh, "select b, c from innotest1 where a > ".$random[$j]." and a < ".($random[$j] + 7)); fetch_all_rows($dbh, "select b, c from innotest1 where a > ".$random[$j]." and a < ".($random[$j] + 7));
if (0 == ($j % 37)) { if (0 == ($j % 37)) {
$dbh->do("commit"); $dbh->do("commit");
} }
if (0 == ($j % 533)) { if (0 == ($j % 533)) {
$dbh->do("rollback"); $dbh->do("rollback");
} }
if (0 == ($j % 537)) { if (0 == ($j % 537)) {
print fetch_all_rows($dbh, "select c from innotest1 where c = '".$rnd_str[$j - 67]."'"); print fetch_all_rows($dbh, "select c from innotest1 where c = '".$rnd_str[$j - 67]."'");
print fetch_all_rows($dbh, "select b from innotest1 where b = '".$rnd_str[$j - 688]."'"); print fetch_all_rows($dbh, "select b from innotest1 where b = '".$rnd_str[$j - 688]."'");
print fetch_all_rows($dbh, "select b, c from innotest1 where c = '".$rnd_str[$j - 67]."'"); print fetch_all_rows($dbh, "select b, c from innotest1 where c = '".$rnd_str[$j - 67]."'");
print fetch_all_rows($dbh, "select b, c from innotest1 where b = '".$rnd_str[$j - 622]."'"); print fetch_all_rows($dbh, "select b, c from innotest1 where b = '".$rnd_str[$j - 622]."'");
print fetch_all_rows($dbh, "select a, b, c from innotest1 where c = '".$rnd_str[$j - 68]."'"); print fetch_all_rows($dbh, "select a, b, c from innotest1 where c = '".$rnd_str[$j - 68]."'");
print fetch_all_rows($dbh, "select a, b, c from innotest1 where b = '".$rnd_str[$j - 644]."'"); print fetch_all_rows($dbh, "select a, b, c from innotest1 where b = '".$rnd_str[$j - 644]."'");
print fetch_all_rows($dbh, "select d, b, c from innotest1 where c = '".$rnd_str[$j - 68]."'"); print fetch_all_rows($dbh, "select d, b, c from innotest1 where c = '".$rnd_str[$j - 68]."'");
print fetch_all_rows($dbh, "select d, b, c from innotest1 where b = '".$rnd_str[$j - 677]."'"); print fetch_all_rows($dbh, "select d, b, c from innotest1 where b = '".$rnd_str[$j - 677]."'");
print "\n"; print "\n";
} }
if (0 == (($j - 1) % 1000)) { if (0 == (($j - 1) % 1000)) {
print "round $j\n"; print "round $j\n";
} }
} }
$dbh->do("commit"); $dbh->do("commit");
} }
$dbh->disconnect; # close connection $dbh->disconnect; # close connection
#!/usr/bin/perl #!/usr/bin/perl
############################################################################ ############################################################################
# Stress test for MySQL/InnoDB combined database # Stress test for MySQL/InnoDB combined database
# (c) 2002 Innobase Oy & MySQL AB # (c) 2002 Innobase Oy & MySQL AB
# #
############################################################################ ############################################################################
use Cwd; use Cwd;
use DBI; use DBI;
use Benchmark; use Benchmark;
$opt_loop_count = 200000; $opt_loop_count = 200000;
$pwd = cwd(); $pwd = "." if ($pwd eq ''); $pwd = cwd(); $pwd = "." if ($pwd eq '');
require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n"; require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n";
print "Innotest1b: MySQL/InnoDB stress test in Perl\n"; print "Innotest1b: MySQL/InnoDB stress test in Perl\n";
print "-------------------------------------------\n"; print "-------------------------------------------\n";
print "This is a randomized stress test for concurrent inserts,\n"; print "This is a randomized stress test for concurrent inserts,\n";
print "updates, deletes, commits and rollbacks. The test will generate\n"; print "updates, deletes, commits and rollbacks. The test will generate\n";
print "also a lot of deadlocks, duplicate key errors, and other SQL errors.\n"; print "also a lot of deadlocks, duplicate key errors, and other SQL errors.\n";
print "\n"; print "\n";
print "You should run innotest1, innotest1a, and innotest1b concurrently.\n"; print "You should run innotest1, innotest1a, and innotest1b concurrently.\n";
print "The thing to watch is that the server does not crash or does not\n"; print "The thing to watch is that the server does not crash or does not\n";
print "print to the .err log anything. Currently, due to a buglet in MySQL,\n"; print "print to the .err log anything. Currently, due to a buglet in MySQL,\n";
print "warnings about MySQL lock reservations can appear in the .err log.\n"; print "warnings about MySQL lock reservations can appear in the .err log.\n";
print "The test will run very long, even several hours. You can kill\n"; print "The test will run very long, even several hours. You can kill\n";
print "the perl processes running this test at any time and do CHECK\n"; print "the perl processes running this test at any time and do CHECK\n";
print "TABLE on table innotest1 in the 'test' database.\n"; print "TABLE on table innotest1 in the 'test' database.\n";
print "\n"; print "\n";
print "Some of these stress tests will print a lot of SQL errors\n"; print "Some of these stress tests will print a lot of SQL errors\n";
print "to the standard output. That is not to be worried about.\n"; print "to the standard output. That is not to be worried about.\n";
print "You can direct the output to a file like this:\n"; print "You can direct the output to a file like this:\n";
print "perl innotest1 > out1\n\n"; print "perl innotest1 > out1\n\n";
print "Generating random keys\n"; print "Generating random keys\n";
$random[$opt_loop_count] = 0; $random[$opt_loop_count] = 0;
$rnd_str[$opt_loop_count] = "a"; $rnd_str[$opt_loop_count] = "a";
for ($i = 0; $i < $opt_loop_count; $i++) { for ($i = 0; $i < $opt_loop_count; $i++) {
$random[$i] = ($i * 63857) % $opt_loop_count; $random[$i] = ($i * 63857) % $opt_loop_count;
if (0 == ($random[$i] % 3)) { if (0 == ($random[$i] % 3)) {
$rnd_str[$i] = "kjgclgrtfuylfluyfyufyulfulfyyulofuyolfyufyufuyfyufyufyufyufyyufujhfghd"; $rnd_str[$i] = "kjgclgrtfuylfluyfyufyulfulfyyulofuyolfyufyufuyfyufyufyufyufyyufujhfghd";
} else { if (1 == ($random[$i] % 3)) { } else { if (1 == ($random[$i] % 3)) {
$rnd_str[$i] = "khd"; $rnd_str[$i] = "khd";
} else { if (2 == ($random[$i] % 3)) { } else { if (2 == ($random[$i] % 3)) {
$rnd_str[$i] = "kh"; $rnd_str[$i] = "kh";
}}} }}}
for ($j = 0; $j < (($i * 764877) % 20); $j++) { for ($j = 0; $j < (($i * 764877) % 20); $j++) {
$rnd_str[$i] = $rnd_str[$i]."k"; $rnd_str[$i] = $rnd_str[$i]."k";
} }
} }
#### ####
#### Connect #### Connect
#### ####
$dbh = $server->connect() $dbh = $server->connect()
|| die $dbh->errstr; || die $dbh->errstr;
$dbh->do("set autocommit = 0"); $dbh->do("set autocommit = 0");
for ($i = 0; $i < 5; $i++) { for ($i = 0; $i < 5; $i++) {
print "loop $i\n"; print "loop $i\n";
for ($j = 1; $j < $opt_loop_count - 10; $j = $j + 2) { for ($j = 1; $j < $opt_loop_count - 10; $j = $j + 2) {
fetch_all_rows($dbh, "select b, c from innotest1 where a > ".$random[$j]." and a < ".($random[$j] + 7)); fetch_all_rows($dbh, "select b, c from innotest1 where a > ".$random[$j]." and a < ".($random[$j] + 7));
if (0 == ($j % 37)) { if (0 == ($j % 37)) {
$dbh->do("commit"); $dbh->do("commit");
} }
if (0 == ($j % 533)) { if (0 == ($j % 533)) {
$dbh->do("rollback"); $dbh->do("rollback");
} }
if (0 == ($j % 537)) { if (0 == ($j % 537)) {
print fetch_all_rows($dbh, "select c from innotest1 where c = '".$rnd_str[$j - 67]."'"); print fetch_all_rows($dbh, "select c from innotest1 where c = '".$rnd_str[$j - 67]."'");
print fetch_all_rows($dbh, "select b from innotest1 where b = '".$rnd_str[$j - 688]."'"); print fetch_all_rows($dbh, "select b from innotest1 where b = '".$rnd_str[$j - 688]."'");
print fetch_all_rows($dbh, "select b, c from innotest1 where c = '".$rnd_str[$j - 67]."'"); print fetch_all_rows($dbh, "select b, c from innotest1 where c = '".$rnd_str[$j - 67]."'");
print fetch_all_rows($dbh, "select b, c from innotest1 where b = '".$rnd_str[$j - 622]."'"); print fetch_all_rows($dbh, "select b, c from innotest1 where b = '".$rnd_str[$j - 622]."'");
print fetch_all_rows($dbh, "select a, b, c from innotest1 where c = '".$rnd_str[$j - 68]."'"); print fetch_all_rows($dbh, "select a, b, c from innotest1 where c = '".$rnd_str[$j - 68]."'");
print fetch_all_rows($dbh, "select a, b, c from innotest1 where b = '".$rnd_str[$j - 644]."'"); print fetch_all_rows($dbh, "select a, b, c from innotest1 where b = '".$rnd_str[$j - 644]."'");
print fetch_all_rows($dbh, "select d, b, c from innotest1 where c = '".$rnd_str[$j - 68]."'"); print fetch_all_rows($dbh, "select d, b, c from innotest1 where c = '".$rnd_str[$j - 68]."'");
print fetch_all_rows($dbh, "select d, b, c from innotest1 where b = '".$rnd_str[$j - 677]."'"); print fetch_all_rows($dbh, "select d, b, c from innotest1 where b = '".$rnd_str[$j - 677]."'");
print "\n"; print "\n";
} }
if (0 == (($j - 1) % 1000)) { if (0 == (($j - 1) % 1000)) {
print "round $j\n"; print "round $j\n";
} }
} }
$dbh->do("commit"); $dbh->do("commit");
} }
$dbh->disconnect; # close connection $dbh->disconnect; # close connection
This diff is collapsed.
#!/usr/bin/perl #!/usr/bin/perl
############################################################################ ############################################################################
# Stress test for MySQL/Innobase combined database # Stress test for MySQL/Innobase combined database
# (c) 2000 Innobase Oy & MySQL AB # (c) 2000 Innobase Oy & MySQL AB
# #
############################################################################ ############################################################################
use Cwd; use Cwd;
use DBI; use DBI;
use Benchmark; use Benchmark;
$opt_loop_count = 100000; $opt_loop_count = 100000;
$pwd = cwd(); $pwd = "." if ($pwd eq ''); $pwd = cwd(); $pwd = "." if ($pwd eq '');
require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n"; require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n";
print "Innotest2a: MySQL/InnoDB stress test in Perl for FOREIGN keys\n"; print "Innotest2a: MySQL/InnoDB stress test in Perl for FOREIGN keys\n";
print "------------------------------------------------------------\n"; print "------------------------------------------------------------\n";
print "This is a randomized stress test for concurrent inserts,\n"; print "This is a randomized stress test for concurrent inserts,\n";
print "updates, deletes, commits and rollbacks with foreign keys with\n"; print "updates, deletes, commits and rollbacks with foreign keys with\n";
print "the ON DELETE ... clause. The test will generate\n"; print "the ON DELETE ... clause. The test will generate\n";
print "also a lot of deadlocks, duplicate key errors, and other SQL errors.\n"; print "also a lot of deadlocks, duplicate key errors, and other SQL errors.\n";
print "\n"; print "\n";
print "You should run innotest2, innotest2a, and innotest2b concurrently.\n"; print "You should run innotest2, innotest2a, and innotest2b concurrently.\n";
print "The thing to watch is that the server does not crash or does not\n"; print "The thing to watch is that the server does not crash or does not\n";
print "print to the .err log anything. Currently, due to a buglet in MySQL,\n"; print "print to the .err log anything. Currently, due to a buglet in MySQL,\n";
print "warnings about MySQL lock reservations can appear in the .err log.\n"; print "warnings about MySQL lock reservations can appear in the .err log.\n";
print "The test will run very long, even several hours. You can kill\n"; print "The test will run very long, even several hours. You can kill\n";
print "the perl processes running this test at any time and do CHECK\n"; print "the perl processes running this test at any time and do CHECK\n";
print "TABLE on tables innotest2a, b, c, d in the 'test' database.\n"; print "TABLE on tables innotest2a, b, c, d in the 'test' database.\n";
print "\n"; print "\n";
print "Some of these stress tests will print a lot of SQL errors\n"; print "Some of these stress tests will print a lot of SQL errors\n";
print "to the standard output. That is not to be worried about.\n"; print "to the standard output. That is not to be worried about.\n";
print "You can direct the output to a file like this:\n"; print "You can direct the output to a file like this:\n";
print "perl innotest2 > out2\n\n"; print "perl innotest2 > out2\n\n";
print "Generating random keys\n"; print "Generating random keys\n";
$random[$opt_loop_count] = 0; $random[$opt_loop_count] = 0;
$rnd_str[$opt_loop_count] = "a"; $rnd_str[$opt_loop_count] = "a";
for ($i = 0; $i < $opt_loop_count; $i++) { for ($i = 0; $i < $opt_loop_count; $i++) {
$random[$i] = ($i * 63857) % $opt_loop_count; $random[$i] = ($i * 63857) % $opt_loop_count;
if (0 == ($random[$i] % 3)) { if (0 == ($random[$i] % 3)) {
$rnd_str[$i] = "khD"; $rnd_str[$i] = "khD";
} else { if (1 == ($random[$i] % 3)) { } else { if (1 == ($random[$i] % 3)) {
$rnd_str[$i] = "kHd"; $rnd_str[$i] = "kHd";
} else { if (2 == ($random[$i] % 3)) { } else { if (2 == ($random[$i] % 3)) {
$rnd_str[$i] = "khd"; $rnd_str[$i] = "khd";
}}} }}}
for ($j = 0; $j < (($i * 764877) % 20); $j++) { for ($j = 0; $j < (($i * 764877) % 20); $j++) {
$rnd_str[$i] = $rnd_str[$i]."k"; $rnd_str[$i] = $rnd_str[$i]."k";
} }
} }
#### ####
#### Connect #### Connect
#### ####
$dbh = $server->connect() $dbh = $server->connect()
|| die $dbh->errstr; || die $dbh->errstr;
$dbh->do("set autocommit = 0"); $dbh->do("set autocommit = 0");
for ($i = 0; $i < 5; $i++) { for ($i = 0; $i < 5; $i++) {
print "loop $i\n"; print "loop $i\n";
for ($j = 0; $j < $opt_loop_count - 10; $j = $j + 1) { for ($j = 0; $j < $opt_loop_count - 10; $j = $j + 1) {
$dbh->do("update innotest2a set B = '".$rnd_str[$j + 1]."' where A = ".$random[$j + 5]) $dbh->do("update innotest2a set B = '".$rnd_str[$j + 1]."' where A = ".$random[$j + 5])
|| print $dbh->errstr; || print $dbh->errstr;
$dbh->do("delete from innotest2a where A = ".$random[$random[$j]]) $dbh->do("delete from innotest2a where A = ".$random[$random[$j]])
|| print $dbh->errstr; || print $dbh->errstr;
if (0 == ($j % 10)) { if (0 == ($j % 10)) {
$dbh->do("commit"); $dbh->do("commit");
} }
if (0 == ($j % 39)) { if (0 == ($j % 39)) {
$dbh->do("rollback"); $dbh->do("rollback");
} }
if (0 == ($j % 1000)) { if (0 == ($j % 1000)) {
print "round $j\n"; print "round $j\n";
} }
} }
$dbh->do("commit"); $dbh->do("commit");
} }
$dbh->disconnect; # close connection $dbh->disconnect; # close connection
#!/usr/bin/perl #!/usr/bin/perl
############################################################################ ############################################################################
# Stress test for MySQL/Innobase combined database # Stress test for MySQL/Innobase combined database
# (c) 2000 Innobase Oy & MySQL AB # (c) 2000 Innobase Oy & MySQL AB
# #
############################################################################ ############################################################################
use Cwd; use Cwd;
use DBI; use DBI;
use Benchmark; use Benchmark;
$opt_loop_count = 100000; $opt_loop_count = 100000;
$pwd = cwd(); $pwd = "." if ($pwd eq ''); $pwd = cwd(); $pwd = "." if ($pwd eq '');
require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n"; require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n";
print "Innotest2b: MySQL/InnoDB stress test in Perl for FOREIGN keys\n"; print "Innotest2b: MySQL/InnoDB stress test in Perl for FOREIGN keys\n";
print "------------------------------------------------------------\n"; print "------------------------------------------------------------\n";
print "This is a randomized stress test for concurrent inserts,\n"; print "This is a randomized stress test for concurrent inserts,\n";
print "updates, deletes, commits and rollbacks with foreign keys with\n"; print "updates, deletes, commits and rollbacks with foreign keys with\n";
print "the ON DELETE ... clause. The test will generate\n"; print "the ON DELETE ... clause. The test will generate\n";
print "also a lot of deadlocks, duplicate key errors, and other SQL errors.\n"; print "also a lot of deadlocks, duplicate key errors, and other SQL errors.\n";
print "\n"; print "\n";
print "You should run innotest2, innotest2a, and innotest2b concurrently.\n"; print "You should run innotest2, innotest2a, and innotest2b concurrently.\n";
print "The thing to watch is that the server does not crash or does not\n"; print "The thing to watch is that the server does not crash or does not\n";
print "print to the .err log anything. Currently, due to a buglet in MySQL,\n"; print "print to the .err log anything. Currently, due to a buglet in MySQL,\n";
print "warnings about MySQL lock reservations can appear in the .err log.\n"; print "warnings about MySQL lock reservations can appear in the .err log.\n";
print "The test will run very long, even several hours. You can kill\n"; print "The test will run very long, even several hours. You can kill\n";
print "the perl processes running this test at any time and do CHECK\n"; print "the perl processes running this test at any time and do CHECK\n";
print "TABLE on tables innotest2a, b, c, d in the 'test' database.\n"; print "TABLE on tables innotest2a, b, c, d in the 'test' database.\n";
print "\n"; print "\n";
print "Some of these stress tests will print a lot of SQL errors\n"; print "Some of these stress tests will print a lot of SQL errors\n";
print "to the standard output. That is not to be worried about.\n"; print "to the standard output. That is not to be worried about.\n";
print "You can direct the output to a file like this:\n"; print "You can direct the output to a file like this:\n";
print "perl innotest2 > out2\n\n"; print "perl innotest2 > out2\n\n";
print "Generating random keys\n"; print "Generating random keys\n";
$random[$opt_loop_count] = 0; $random[$opt_loop_count] = 0;
$rnd_str[$opt_loop_count] = "a"; $rnd_str[$opt_loop_count] = "a";
for ($i = 0; $i < $opt_loop_count; $i++) { for ($i = 0; $i < $opt_loop_count; $i++) {
$random[$i] = ($i * 98641) % $opt_loop_count; $random[$i] = ($i * 98641) % $opt_loop_count;
if (0 == ($random[$i] % 3)) { if (0 == ($random[$i] % 3)) {
$rnd_str[$i] = "khD"; $rnd_str[$i] = "khD";
} else { if (1 == ($random[$i] % 3)) { } else { if (1 == ($random[$i] % 3)) {
$rnd_str[$i] = "khd"; $rnd_str[$i] = "khd";
} else { if (2 == ($random[$i] % 3)) { } else { if (2 == ($random[$i] % 3)) {
$rnd_str[$i] = "kHd"; $rnd_str[$i] = "kHd";
}}} }}}
for ($j = 0; $j < (($i * 764877) % 10); $j++) { for ($j = 0; $j < (($i * 764877) % 10); $j++) {
$rnd_str[$i] = $rnd_str[$i]."k"; $rnd_str[$i] = $rnd_str[$i]."k";
} }
} }
#### ####
#### Connect #### Connect
#### ####
$dbh = $server->connect(); $dbh = $server->connect();
$dbh->do("set autocommit = 0"); $dbh->do("set autocommit = 0");
for ($i = 0; $i < 1; $i++) { for ($i = 0; $i < 1; $i++) {
print "loop $i\n"; print "loop $i\n";
for ($j = 0; $j < $opt_loop_count - 10; $j = $j + 2) { for ($j = 0; $j < $opt_loop_count - 10; $j = $j + 2) {
$dbh->do( $dbh->do(
"insert into innotest2b (D, B, C) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."')") "insert into innotest2b (D, B, C) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."')")
|| print $dbh->errstr; || print $dbh->errstr;
$dbh->do( $dbh->do(
"insert into innotest2a (D, B, C) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."')") "insert into innotest2a (D, B, C) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."')")
|| print $dbh->errstr; || print $dbh->errstr;
$dbh->do( $dbh->do(
"insert into innotest2c (D, B, C) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."')") "insert into innotest2c (D, B, C) values (5, '".$rnd_str[$j]."' ,'".$rnd_str[$j]."')")
|| print $dbh->errstr; || print $dbh->errstr;
$dbh->do("delete from innotest2b where A = ".$random[$random[$j]]) $dbh->do("delete from innotest2b where A = ".$random[$random[$j]])
|| print $dbh->errstr; || print $dbh->errstr;
$dbh->do("update innotest2b set A = A + 1 where A = ".$random[$j]) $dbh->do("update innotest2b set A = A + 1 where A = ".$random[$j])
|| print $dbh->errstr; || print $dbh->errstr;
if (0 == ($j % 10)) { if (0 == ($j % 10)) {
$dbh->do("commit"); $dbh->do("commit");
} }
if (0 == ($j % 39)) { if (0 == ($j % 39)) {
$dbh->do("rollback"); $dbh->do("rollback");
} }
if (0 == ($j % 1000)) { if (0 == ($j % 1000)) {
print "round $j\n"; print "round $j\n";
} }
} }
$dbh->do("commit"); $dbh->do("commit");
} }
$dbh->disconnect; # close connection $dbh->disconnect; # close connection
# Copyright (c) 2006, 2010, Oracle and/or its affiliates. All rights reserved. # Copyright (c) 2006, 2014, Oracle and/or its affiliates. All rights reserved.
# #
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
...@@ -56,12 +56,14 @@ IF(UNIX) ...@@ -56,12 +56,14 @@ IF(UNIX)
IF(script MATCHES ".ini") IF(script MATCHES ".ini")
SET(comp IniFiles) SET(comp IniFiles)
SET(permissions OWNER_READ OWNER_WRITE GROUP_READ WORLD_READ)
ELSE() ELSE()
SET(comp Server_Scripts) SET(comp Server_Scripts)
SET(permissions OWNER_READ OWNER_WRITE OWNER_EXECUTE GROUP_READ GROUP_EXECUTE WORLD_READ WORLD_EXECUTE)
ENDIF() ENDIF()
INSTALL(FILES ${CMAKE_CURRENT_BINARY_DIR}/${script} INSTALL(FILES ${CMAKE_CURRENT_BINARY_DIR}/${script}
DESTINATION ${inst_location} COMPONENT ${comp} DESTINATION ${inst_location} COMPONENT ${comp}
PERMISSIONS OWNER_READ OWNER_WRITE OWNER_EXECUTE GROUP_READ GROUP_EXECUTE WORLD_READ WORLD_EXECUTE) PERMISSIONS ${permissions})
ENDFOREACH() ENDFOREACH()
IF(INSTALL_SUPPORTFILESDIR) IF(INSTALL_SUPPORTFILESDIR)
INSTALL(FILES magic DESTINATION ${inst_location} COMPONENT SupportFiles) INSTALL(FILES magic DESTINATION ${inst_location} COMPONENT SupportFiles)
......
File mode changed from 100755 to 100644
File mode changed from 100755 to 100644
File mode changed from 100755 to 100644
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment