Explicit commenting of test cases

Author: pilcrow

t/xx_sponge.t

@@ -9,30 +9,44 @@ use Test::More tests => 17;
 use Storable qw(dclone);
 use DBI qw(:sql_types);
 
-our @ROWS = (['foo',     undef,       'bazooka'],
-             ['foolery', 'bar',       undef    ],
-             [undef,     'barrowman', 'baz'    ]);
+# our reference table:
+#
+#   A1      B1        C2
+#  ------- --------- -------
+#  foo     NULL      bazooka
+#  foolery bar       NULL
+#  NULL    barrowman baz
+#
+
+our @NAMES = ( 'A0',      'B1',        'C2'      );
+our @ROWS  = (['foo',     undef,       'bazooka'],
+              ['foolery', 'bar',       undef    ],
+              [undef,     'barrowman', 'baz'    ]);
 
 my $dbh = DBI->connect("dbi:Sponge:", '', '');
 ok($dbh, "connect(dbi:Sponge:) succeeds");
 
 my $sth = $dbh->prepare("simple, correct sponge", {
                         rows => dclone( \@ROWS ),
-                        NAME => [ qw(A0 B1 C2) ],
+                        NAME => [ @NAMES ],
                         });
 
 ok($sth, "prepare() of 3x3 result succeeded");
 is_deeply($sth->{NAME}, ['A0', 'B1', 'C2'], "column NAMEs as expected");
 is_deeply($sth->{TYPE}, [SQL_VARCHAR, SQL_VARCHAR, SQL_VARCHAR],
           "column TYPEs default to SQL_VARCHAR");
+#
+# Old versions of DBD-Sponge defaulted PRECISION (data "length") to
+# length of the field _names_ rather than the length of the _data_.
+#
 is_deeply($sth->{PRECISION}, [7, 9, 7],
           "column PRECISION matches lengths of longest field data");
 is_deeply($sth->fetch(), $ROWS[0], "first row fetch as expected");
 is_deeply($sth->fetch(), $ROWS[1], "second row fetch as expected");
 is_deeply($sth->fetch(), $ROWS[2], "third row fetch as expected");
 ok(!defined($sth->fetch()), "fourth fetch returns undef");
 
-
+# Test that DBD-Sponge preserves bogus user-supplied attributes
 $sth = $dbh->prepare('user-supplied silly TYPE and PRECISION', {
                      rows => dclone( \@ROWS ),
                      NAME => [qw( first_col second_col third_col )],