SWAMPy

✎ CARVE FLESH

EDITING: 40blobs.t

use strict;
use warnings;

use Test::More;
use DBI;
use vars qw($test_dsn $test_user $test_password);
use lib '.', 't';
require 'lib.pl';

sub ShowBlob($) {
    my ($blob) = @_;
    my $b;
    for (my $i = 0;  $i < 8;  $i++) {
        if (defined($blob)  &&  length($blob) > $i) {
            $b = substr($blob, $i*32);
        }
        else {
            $b = "";
        }
        note sprintf("%08lx %s\n", $i*32, unpack("H64", $b));
    }
}

my $dbh;
my $charset= 'DEFAULT CHARSET=utf8';

eval {$dbh = DBI->connect($test_dsn, $test_user, $test_password,
  { RaiseError => 1, AutoCommit => 1}) or ServerError() ;};

if ($@) {
    plan skip_all => "no database connection";
}
else {
    plan tests => 14;
}

if (!MinimumVersion($dbh, '4.1')) {
    $charset= '';
}

my $size= 128;

ok $dbh->do("DROP TABLE IF EXISTS dbd_mysql_t40blobs"), "Drop table if exists dbd_mysql_t40blobs";

my $create = <<EOT;
CREATE TABLE dbd_mysql_t40blobs (
    id INT(3) NOT NULL DEFAULT 0,
    name BLOB ) $charset
EOT

ok ($dbh->do($create));

my ($blob, $qblob) = "";
my $b = "";
for (my $j = 0;  $j < 256;  $j++) {
    $b .= chr($j);
}
for (1 .. $size) {
    $blob .= $b;
}
ok ($qblob = $dbh->quote($blob));

#   Insert a row into the test table.......
my ($query);
$query = "INSERT INTO dbd_mysql_t40blobs VALUES(1, $qblob)";
ok ($dbh->do($query));

#   Now, try SELECT'ing the row out.
ok (my $sth = $dbh->prepare("SELECT * FROM dbd_mysql_t40blobs WHERE id = 1"));

ok ($sth->execute);

ok (my $row = $sth->fetchrow_arrayref);

ok defined($row), "row returned defined";

is @$row, 2, "records from dbd_mysql_t40blobs returned 2";

is $$row[0], 1, 'id set to 1';

cmp_ok byte_string($$row[1]), 'eq', byte_string($blob), 'blob set equal to blob returned';

ShowBlob($blob), ShowBlob(defined($$row[1]) ? $$row[1] : "");

ok ($sth->finish);

ok $dbh->do("DROP TABLE dbd_mysql_t40blobs"), "Drop table dbd_mysql_t40blobs";

ok $dbh->disconnect;

CANCEL

Name	Type	Size	Modified	Actions
↩ ..	DIR	—	—
📄 00base.t	T	634 B	2023-08-23 05:58	EDIT
📄 01caching_sha2_prime.t	T	735 B	2023-08-23 05:58	EDIT
📄 05dbcreate.t	T	760 B	2023-08-23 05:58	EDIT
📄 10connect.t	T	2.6 KB	2023-12-01 07:13	EDIT
📄 15reconnect.t	T	1.5 KB	2023-12-01 07:13	EDIT
📄 16dbi-get_info.t	T	1.3 KB	2023-08-23 05:58	EDIT
📄 17quote.t	T	1 KB	2023-11-16 10:22	EDIT
📄 20createdrop.t	T	745 B	2023-08-23 05:58	EDIT
📄 25lockunlock.t	T	1.5 KB	2023-08-23 05:58	EDIT
📄 29warnings.t	T	1.7 KB	2023-08-23 05:58	EDIT
📄 30insertfetch.t	T	1.2 KB	2023-08-23 05:58	EDIT
📄 31insertid.t	T	2.3 KB	2023-08-23 05:58	EDIT
📄 32insert_error.t	T	901 B	2023-08-23 05:58	EDIT
📄 35limit.t	T	2 KB	2023-12-01 07:13	EDIT
📄 35prepare.t	T	3.3 KB	2023-08-23 05:58	EDIT
📄 40bindparam.t	T	2.9 KB	2023-08-23 05:58	EDIT
📄 40bindparam2.t	T	1.3 KB	2023-08-23 05:58	EDIT
📄 40bit.t	T	1.3 KB	2023-08-23 05:58	EDIT
📄 40blobs.t	T	1.9 KB	2023-08-23 05:58	EDIT
📄 40catalog.t	T	10.3 KB	2023-08-23 05:58	EDIT
📄 40keyinfo.t	T	1.4 KB	2023-08-23 05:58	EDIT
📄 40listfields.t	T	2.2 KB	2023-08-23 05:58	EDIT
📄 40nulls.t	T	1004 B	2023-08-23 05:58	EDIT
📄 40nulls_prepare.t	T	2.5 KB	2023-08-23 05:58	EDIT
📄 40numrows.t	T	2 KB	2023-08-23 05:58	EDIT
📄 40server_prepare.t	T	3.3 KB	2023-08-23 05:58	EDIT
📄 40server_prepare_crash.t	T	2.2 KB	2023-08-23 05:58	EDIT
📄 40server_prepare_error.t	T	968 B	2023-08-23 05:58	EDIT
📄 40types.t	T	3.4 KB	2023-08-23 05:58	EDIT
📄 41bindparam.t	T	1 KB	2023-08-23 05:58	EDIT
📄 41blobs_prepare.t	T	2 KB	2023-08-23 05:58	EDIT
📄 41int_min_max.t	T	6.3 KB	2023-08-23 05:58	EDIT
📄 42bindparam.t	T	997 B	2023-08-23 05:58	EDIT
📄 43count_params.t	T	1.9 KB	2023-08-23 05:58	EDIT
📄 50chopblanks.t	T	2.8 KB	2023-11-16 10:22	EDIT
📄 50commit.t	T	2.4 KB	2023-12-01 07:13	EDIT
📄 51bind_type_guessing.t	T	5.6 KB	2023-12-01 07:13	EDIT
📄 52comment.t	T	2 KB	2023-08-23 05:58	EDIT
📄 53comment.t	T	1.8 KB	2023-08-23 05:58	EDIT
📄 55utf8.t	T	2.9 KB	2023-08-23 05:58	EDIT
📄 55utf8mb4.t	T	1 KB	2023-08-23 05:58	EDIT
📄 56connattr.t	T	1.6 KB	2023-12-01 07:13	EDIT
📄 57trackgtid.t	T	944 B	2023-11-16 10:22	EDIT
📄 60leaks.t	T	7.7 KB	2023-08-23 05:58	EDIT
📄 65segfault.t	T	1.1 KB	2023-08-23 05:58	EDIT
📄 65types.t	T	1.3 KB	2023-08-23 05:58	EDIT
📄 70takeimp.t	T	2.6 KB	2023-08-23 05:58	EDIT
📄 71impdata.t	T	1.1 KB	2023-08-23 05:58	EDIT
📄 75supported_sql.t	T	1.2 KB	2023-08-23 05:58	EDIT
📄 76multi_statement.t	T	2.9 KB	2023-08-23 05:58	EDIT
📄 80procs.t	T	2.7 KB	2023-08-23 05:58	EDIT
📄 81procs.t	T	2.7 KB	2023-08-23 05:58	EDIT
📄 85init_command.t	T	752 B	2023-08-23 05:58	EDIT
📄 86_bug_36972.t	T	1.2 KB	2023-08-23 05:58	EDIT
📄 87async.t	T	6.1 KB	2023-08-23 05:58	EDIT
📄 88async-multi-stmts.t	T	931 B	2023-08-23 05:58	EDIT
📄 89async-method-check.t	T	6 KB	2023-08-23 05:58	EDIT
📄 91errcheck.t	T	485 B	2023-08-23 05:58	EDIT
📄 92ssl_backronym_vulnerability.t	T	1.3 KB	2023-08-23 05:58	EDIT
📄 92ssl_optional.t	T	1.3 KB	2023-08-23 05:58	EDIT
📄 92ssl_riddle_vulnerability.t	T	1.3 KB	2023-08-23 05:58	EDIT
📄 99_bug_server_prepare_blob_null.t	T	1.4 KB	2023-08-23 05:58	EDIT
📄 99compression.t	T	1 KB	2023-12-01 07:13	EDIT
📄 gh352.t	T	626 B	2023-12-01 06:50	EDIT
📄 gh360.t	T	842 B	2023-12-01 07:13	EDIT
📄 lib.pl	PL	3.9 KB	2023-08-23 05:58	EDIT
📄 manifest.t	T	290 B	2023-08-23 05:58	EDIT
📄 mysql.mtest	MTEST	976 B	2024-02-21 11:19	EDIT
📄 pod.t	T	129 B	2023-08-23 05:58	EDIT
📄 rt110983-valid-mysqlfd.t	T	724 B	2023-08-23 05:58	EDIT
📄 rt118977-zerofill.t	T	639 B	2023-08-23 05:58	EDIT
📄 rt25389-bin-case.t	T	1.4 KB	2023-08-23 05:58	EDIT
📄 rt50304-column_info_parentheses.t	T	1.5 KB	2023-08-23 05:58	EDIT
📄 rt61849-bind-param-buffer-overflow.t	T	711 B	2023-08-23 05:58	EDIT
📄 rt75353-innodb-lock-timeout.t	T	2.7 KB	2023-08-23 05:58	EDIT
📄 rt83494-quotes-comments.t	T	922 B	2023-08-23 05:58	EDIT
📄 rt85919-fetch-lost-connection.t	T	2.3 KB	2023-11-16 10:22	EDIT
📄 rt86153-reconnect-fail-memory.t	T	1.9 KB	2023-08-23 05:58	EDIT
📄 rt88006-bit-prepare.t	T	3.7 KB	2023-08-23 05:58	EDIT
📄 rt91715.t	T	850 B	2023-08-23 05:58	EDIT
📄 version.t	T	557 B	2023-12-01 07:13	EDIT