DEBUG

Author: choroba

.github/workflows/ci.yaml

@@ -560,6 +560,9 @@ jobs:
           fi
           make
       - name: Test
+        # system-pic times out on GitHub Actions, so far we weren't
+        # able to find the reason.
+        if:  ${{ matrix.server-version != 'system-pic' }}
         run: |
           TEST_VERBOSE=0
           if [ "${{ matrix.perl-version }}" = "system" ]; then
@@ -572,6 +575,9 @@ jobs:
           if [ "${{ matrix.server-version }}" = "system-pic" ] && [ "${{ matrix.client-version }}" = "system-pic" ]; then
             export TEST_VERBOSE=1
           fi
+          if [ "${{ matrix.server-version }}" = "mysql-4.1.22" ] && [ "${{ matrix.client-version }}" = "mysql-8.0.3-rc" ]; then
+            export TEST_VERBOSE=1
+          fi
           if [ "${{ matrix.server-version }}" != "none" ]; then
             export CONNECTION_TESTING=1
           fi

t/50chopblanks.t

@@ -8,15 +8,18 @@ require 'lib.pl';
 
 use vars qw($test_dsn $test_user $test_password);
 
+DBI->trace(100) if $ENV{TEST_VERBOSE};
+
 my $dbh = DbiTestConnect($test_dsn, $test_user, $test_password,
-                      { RaiseError => 1, PrintError => 0 });
+                      { RaiseError => 1, PrintError => 1 });
 $dbh->disconnect;
 
-plan tests => (6 + ((5 + 8 + 8) * 4)) * 2;
+#plan tests => (6 + ((5 + 8 + 8) * 4)) * 2;
+plan tests => 936;
 
 for my $mariadb_server_prepare (0, 1) {
 $dbh = DBI->connect("$test_dsn;mariadb_server_prepare=$mariadb_server_prepare;mariadb_server_prepare_disable_fallback=1", $test_user, $test_password,
-                      { RaiseError => 1, PrintError => 0 });
+                      { RaiseError => 1, PrintError => 1 });
 
 ok $dbh->do("DROP TABLE IF EXISTS dbd_mysql_t50chopblanks"), "drop table if exists dbd_mysql_t50chopblanks";
 
@@ -36,13 +39,21 @@ EOT
 
 ok $dbh->do($create), "create table dbd_mysql_t50chopblanks";
 
+for my $size (1 .. 8) {
+
 my @fields = qw(c_text c_tinytext c_mediumtext c_longtext b_blob b_tinyblob b_mediumblob b_longblob);
 my $numfields = scalar @fields;
 my $fieldlist = join(', ', @fields);
+my $select_fields = join ', ', @fields[0 .. $size - 1];
 
 ok (my $sth= $dbh->prepare("INSERT INTO dbd_mysql_t50chopblanks (id, $fieldlist) VALUES (".('?, ' x $numfields)."?)"));
+note('insert prepared');
 
-ok (my $sth2= $dbh->prepare("SELECT $fieldlist FROM dbd_mysql_t50chopblanks WHERE id = ?"));
+my $sth2;
+eval {
+$sth2 = $dbh->prepare("SELECT $select_fields FROM dbd_mysql_t50chopblanks WHERE id = ?");
+1 } or die $dbh->errstr;
+note('select prepared');
 
 my $rows;
 
@@ -51,7 +62,7 @@ $rows = [ [1, ''], [2, ' '], [3, ' a b c '], [4, 'blah'] ];
 for my $ref (@$rows) {
 	my ($id, $value) = @$ref;
 	ok $sth->execute($id, ($value) x $numfields), "insert into dbd_mysql_t50chopblanks values ($id ".(", '$value'" x $numfields).")";
-	ok $sth2->execute($id), "select $fieldlist from dbd_mysql_t50chopblanks where id = $id";
+	ok $sth2->execute($id), "select $select_fields from dbd_mysql_t50chopblanks where id = $id";
 
 	# First try to retrieve without chopping blanks.
 	$sth2->{'ChopBlanks'} = 0;
@@ -74,7 +85,7 @@ for my $ref (@$rows) {
 		$choppedvalue =~ s/\s+$// if $character_field; # only chop character, not binary
 		cmp_ok $ret_ref->[$i], 'eq', $choppedvalue, "ChopBlanks: $fields[$i] should ".($character_field ? "" : "not ")."have blanks chopped";
 	}
-
+    }
 }
 ok $dbh->do("DROP TABLE dbd_mysql_t50chopblanks"), "drop dbd_mysql_t50chopblanks";
 ok $dbh->disconnect;