mirror of
https://github.com/MariaDB/server.git
synced 2025-01-16 12:02:42 +01:00
10c790eff0
Better fix for format('nan')
Fix for HAVING COUNT(DISTINCT...)
myisam/mi_check.c:
Better error message
myisam/mi_dynrec.c:
Simple code cleanup
myisam/myisamchk.c:
Better error messages
mysql-test/r/func_misc.result:
Added back test for format('nan')
mysql-test/r/having.result:
New test
mysql-test/t/func_misc.test:
Added back test for format('nan')
mysql-test/t/having.test:
Added test for count(distinct) in having
mysys/raid.cc:
Safety fix to enable RAID in max binaries
scripts/mysql_install_db.sh:
Create data directories even if --in-rpm is used (for MaxOSX)
sql/item_strfunc.cc:
Better fix for format('nan')
sql/mysqld.cc:
Give stacktrace on assert()
sql/sql_yacc.yy:
Fix for HAVING COUNT(DISTINCT...)
tests/big_record.pl:
Extend test to abuse packed MyISAM tables
tests/table_types.pl:
Fixed wrong merge
96 lines
2.6 KiB
Perl
Executable file
96 lines
2.6 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This is a test with stores big records in a blob.
|
|
# Note that for the default test the mysql server should have been
|
|
# started with at least 'mysqld -O max_allowed_packet=30M' and you should have
|
|
# at least 256M memory in your computer.
|
|
|
|
use DBI;
|
|
use Getopt::Long;
|
|
|
|
$opt_host="";
|
|
$opt_user=$opt_password="";
|
|
$opt_db="test";
|
|
$opt_rows=20; # Test of blobs up to ($rows-1)*100000+1 bytes
|
|
$opt_compress=0;
|
|
$opt_table="test_big_record";
|
|
$opt_loop_count=100000; # Change this to make test harder/easier
|
|
|
|
GetOptions("host=s","db=s","user=s", "password=s", "table=s", "rows=i",
|
|
"compress", "loop-count=i") || die "Aborted";
|
|
|
|
print "Connection to database $test_db\n";
|
|
|
|
$extra_options="";
|
|
$extra_options.=":mysql_compression=1" if ($opt_compress);
|
|
|
|
$dbh = DBI->connect("DBI:mysql:$opt_db:$host$extra_options",$opt_user,$opt_password) || die "Can't connect: $DBI::errstr\n";
|
|
|
|
$dbh->do("drop table if exists $opt_table");
|
|
|
|
print "Creating table $opt_table\n";
|
|
|
|
($dbh->do("\
|
|
CREATE TABLE $opt_table (
|
|
auto int(5) unsigned NOT NULL DEFAULT '0' auto_increment,
|
|
test longblob,
|
|
PRIMARY KEY (auto))")) or die $DBI::errstr;
|
|
|
|
print "Inserting $opt_rows records\n";
|
|
|
|
$|=1; # Flush output to stdout to be able to monitor process
|
|
|
|
for ($i=0 ; $i < $opt_rows ; $i++)
|
|
{
|
|
$tmp= chr(65+($i % 16)) x ($i*100000+1);
|
|
$tmp= $dbh->quote($tmp);
|
|
$dbh->do("insert into $opt_table (test) values ($tmp)") or die $DBI::errstr;
|
|
print ".";
|
|
}
|
|
|
|
print "\nReading records\n";
|
|
|
|
$sth=$dbh->prepare("select * from $opt_table", { "mysql_use_result" => 1}) or die $dbh->errstr;
|
|
|
|
$sth->execute() or die $sth->errstr;
|
|
|
|
$i=0;
|
|
while (($row = $sth->fetchrow_arrayref))
|
|
{
|
|
die "Record $i had wrong data in blob" if ($row->[1] ne (chr(65+($i % 16)) x ($i*100000+1)));
|
|
$i++;
|
|
}
|
|
|
|
die "Didn't get all rows from server" if ($i != $opt_rows);
|
|
|
|
#
|
|
# Test by insert/updating/deleting random rows for a while
|
|
#
|
|
|
|
print "Testing insert/update/delete\n";
|
|
|
|
$max_row_id= $rows;
|
|
for ($i= 0 ; $i < $opt_loop_count ; $i++)
|
|
{
|
|
$length= int(rand 65535);
|
|
$tmp= chr(65+($i % 16)) x $length;
|
|
$tmp= $dbh->quote($tmp);
|
|
$dbh->do("insert into $opt_table (test) values ($tmp)") or die $DBI::errstr;
|
|
$max_row_id++;
|
|
$length=int(rand 65535);
|
|
$tmp= chr(65+($i % 16)) x $length;
|
|
$tmp= $dbh->quote($tmp);
|
|
$id= int(rand $max_row_id);
|
|
$dbh->do("update $opt_table set test= $tmp where auto= $id") or die $DBI::errstr;
|
|
if (($i % 2) == 1)
|
|
{
|
|
$id= int(rand $max_row_id);
|
|
$dbh->do("delete from $opt_table where auto= $id") or die $DBI::errstr;
|
|
}
|
|
print "." if ($i % ($opt_loop_count/100) == 1);
|
|
}
|
|
|
|
# $dbh->do("drop table $opt_table") or die $DBI::errstr;
|
|
|
|
print "\nTest ok\n";
|
|
exit 0;
|