mirror of
https://github.com/MariaDB/server.git
synced 2025-01-19 13:32:33 +01:00
6d5ad61a11
Extended max_allowed_packet for clients to 1G Fixed bug in sending compressed rows >= 16M Fix bug in skiping too long packets from clients. Added checking of wrong command number sent by client.
69 lines
1.8 KiB
Perl
Executable file
69 lines
1.8 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=200; # Test of blobs up to ($rows-1)*100000+1 bytes
|
|
$opt_compress=0;
|
|
$opt_table="test_big_record";
|
|
|
|
GetOptions("host=s","db=s","user=s", "password=s", "table=s", "rows=i",
|
|
"compress") || 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);
|
|
print $i," ",length($tmp),"\n";
|
|
$tmp= $dbh->quote($tmp);
|
|
$dbh->do("insert into $opt_table (test) values ($tmp)") or die $DBI::errstr;
|
|
}
|
|
|
|
print "Reading 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))
|
|
{
|
|
print $row->[0]," ",length($row->[1]),"\n";
|
|
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);
|
|
|
|
$dbh->do("drop table $opt_table") or die $DBI::errstr;
|
|
|
|
print "Test ok\n";
|
|
exit 0;
|