From 52046a7ba3c00111bf27195197b486a9ef558416 Mon Sep 17 00:00:00 2001 From: unknown Date: Tue, 29 Aug 2000 12:31:01 +0300 Subject: Bug fixes for 3.23.23 myisam/mi_debug.c: ***MISSING WEAVE*** Docs/internals.texi: Added coding guidelines Docs/manual.texi: Changelog update + Win32 -> Windows client/mysql.cc: Changed --no-named-commands to be on by default client/mysqlimport.c: Bug fix include/config-win.h: Update of supported functions include/global.h: Removed compiler warning libmysql/libmysql.c: Fix for Ia64 myisam/ChangeLog: Changelog myisam/Makefile.am: Added file mi_dbug.c myisam/ft_stopwords.c: Fix for Ia64 myisam/mi_delete_table.c: Extra debugging myisam/mi_rename.c: Extra debugging myisam/mi_rnext.c: Fixed bug with MIN and concurrent insert myisam/mi_rprev.c: Fixed bug with MAX and concurrent insert myisam/mi_search.c: Fixed bug with DECIMAL/NUMERIC keys myisam/myisamdef.h: Extra debugging scripts/make_binary_distribution.sh: Added thread safe mysql library sql/ha_heap.cc: Fix of HEAP bug with range keys sql/ha_heap.h: Fix of HEAP bug with range keys sql/handler.cc: Optimizing sql/handler.h: Optimizing sql/lock.cc: More DEBUG + fix of RENAME bug sql/mini_client.cc: Fix for Ia64 sql/mysql_priv.h: Fix for name locks sql/mysqld.cc: Shorter message if wrong options sql/opt_range.cc: Added TODO sql/sql_base.cc: Fix for DROP TABLE sql/sql_parse.cc: Fix of permission checking for CHECK TABLE sql/sql_select.cc: Fix of using LEFT JOIN with empty table sql/table.h: Fix for name locks tests/fork_test.pl: Fixed typo --- tests/rename_test.pl | 204 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 204 insertions(+) create mode 100755 tests/rename_test.pl (limited to 'tests/rename_test.pl') diff --git a/tests/rename_test.pl b/tests/rename_test.pl new file mode 100755 index 00000000000..bdfb14be927 --- /dev/null +++ b/tests/rename_test.pl @@ -0,0 +1,204 @@ +#!/usr/bin/perl -w +# +# This is a test with uses processes to insert, select and drop tables. +# + +$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_delete=$opt_skip_flush=0; +$opt_host=""; $opt_db="test"; + +GetOptions("host=s","db=s","loop-count=i","skip-create","skip-delete", +"skip-flush") || die "Aborted"; + +print "Testing 5 multiple connections to a server with 1 insert, 1 rename\n"; +print "1 select and 1 flush thread\n"; + +$firsttable = "bench_f1"; + +#### +#### Start timing 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, ${firsttable}_1, ${firsttable}_2"); + + print "Creating table $firsttable in database $opt_db\n"; + $dbh->do("create table $firsttable (id int(6) not null, info varchar(32), marker char(1), primary key(id))") || die $DBI::errstr; + $dbh->disconnect; $dbh=0; # Close handler +} +$|= 1; # Autoflush + +#### +#### Start the tests +#### + +test_insert() if (($pid=fork()) == 0); $work{$pid}="insert"; +test_rename(1) if (($pid=fork()) == 0); $work{$pid}="rename 1"; +test_rename(2) if (($pid=fork()) == 0); $work{$pid}="rename 2"; +test_select() if (($pid=fork()) == 0); $work{$pid}="select"; +if (!$opt_skip_flush) +{ + test_flush() if (($pid=fork()) == 0); $work{$pid}="flush"; +} +$errors=0; +while (($pid=wait()) != -1) +{ + $ret=$?/256; + print "thread '" . $work{$pid} . "' finished with exit code $ret\n"; + $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"); + $dbh->disconnect; $dbh=0; # Close handler +} +print ($errors ? "Test failed\n" :"Test ok\n"); + +$end_time=new Benchmark; +print "Total time: " . + timestr(timediff($end_time, $start_time),"noc") . "\n"; + +exit(0); + +# +# Insert records in the table. Delete table when test is finnished +# + +sub test_insert +{ + my ($dbh,$i,$error); + + $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $opt_user, $opt_password, + { PrintError => 0}) || die $DBI::errstr; + for ($i=0 ; $i < $opt_loop_count; $i++) + { + if (!$dbh->do("insert into $firsttable values ($i,'This is entry $i','')")) + { + $error=$dbh->errstr; + $dbh->do("drop table ${firsttable}"); # End other threads + die "Warning; Got error on insert: " . $error . "\n"; + } + } + sleep(1); + $dbh->do("drop table ${firsttable}") || die "Got error on drop table: " . $dbh->errstr . "\n"; + $dbh->disconnect; $dbh=0; + print "Test_insert: Inserted $i rows\n"; + exit(0); +} + + +sub test_rename +{ + my ($id) = @_; + my ($dbh,$i,$error_counter,$sleep_time); + + $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $opt_user, $opt_password, + { PrintError => 0}) || die $DBI::errstr; + $error_counter=0; + $sleep_time=2; + for ($i=0 ; $i < $opt_loop_count ; $i++) + { + sleep($sleep_time); + $dbh->do("create table ${firsttable}_$id (id int(6) not null, info varchar(32), marker char(1), primary key(id))") || die $DBI::errstr; + if (!$dbh->do("rename table $firsttable to ${firsttable}_${id}_1, ${firsttable}_$id to ${firsttable}")) + { + last if ($dbh->errstr =~ /^Can\'t find/); + die "Got error on rename: " . $dbh->errstr . "\n"; + } + $dbh->do("drop table ${firsttable}_${id}_1") || die "Got error on drop table: " . $dbh->errstr . "\n"; + } + $dbh->disconnect; $dbh=0; + print "Test_drop: Did a drop $i times\n"; + exit(0); +} + + +# +# select records +# + +sub test_select +{ + my ($dbh,$i,$sth,@row,$sleep_time); + + $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $opt_user, $opt_password, + { PrintError => 0}) || die $DBI::errstr; + + $sleep_time=3; + for ($i=0 ; $i < $opt_loop_count ; $i++) + { + sleep($sleep_time); + $sth=$dbh->prepare("select sum(t.id) from $firsttable as t,$firsttable as t2") || die "Got error on select: $dbh->errstr;\n"; + if ($sth->execute) + { + @row = $sth->fetchrow_array(); + $sth->finish; + } + else + { + $sth->finish; + last if (! ($dbh->errstr =~ /doesn\'t exist/)); + die "Got error on select: " . $dbh->errstr . "\n"; + } + } + $dbh->disconnect; $dbh=0; + print "Test_select: ok\n"; + exit(0); +} + +# +# flush records +# + +sub test_flush +{ + my ($dbh,$i,$sth,@row,$error_counter,$sleep_time); + + $dbh = DBI->connect("DBI:mysql:$opt_db:$opt_host", + $opt_user, $opt_password, + { PrintError => 0}) || die $DBI::errstr; + + $error_counter=0; + $sleep_time=5; + for ($i=0 ; $i < $opt_loop_count ; $i++) + { + sleep($sleep_time); + $sth=$dbh->prepare("select count(*) from $firsttable") || die "Got error on prepar: $dbh->errstr;\n"; + if ($sth->execute) + { + @row = $sth->fetchrow_array(); + $sth->finish; + $sleep_time=5; + $dbh->do("flush tables $firsttable") || die "Got error on flush table: " . $dbh->errstr . "\n"; + } + else + { + last if (! ($dbh->errstr =~ /doesn\'t exist/)); + die "Got error on flush: " . $dbh->errstr . "\n"; + } + } + $dbh->disconnect; $dbh=0; + print "Test_select: ok\n"; + exit(0); +} -- cgit v1.2.1