X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F92storage_on_connect_call.t;h=09befcd2cccd92c5e77135b9c22e7c3928c4cefa;hb=a33d2444e0981129eb060521de27c5e2104f37ba;hp=d0d937bd18c2515006e904e721cd53b6c61fb331;hpb=5fc1107ffcb8986652e955e471460bb00798e644;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/92storage_on_connect_call.t b/t/92storage_on_connect_call.t
index d0d937b..09befcd 100644
--- a/t/92storage_on_connect_call.t
+++ b/t/92storage_on_connect_call.t
@@ -3,7 +3,7 @@ use warnings;
 no warnings qw/once redefine/;
 
 use lib qw(t/lib);
-require DBICTest;
+use DBICTest;
 
 use Test::More tests => 9;
 
@@ -31,6 +31,7 @@ ok $schema->connection(
         [ do_sql => [ 'insert into test1 values (?)', {}, 1 ] ],
         [ do_sql => sub { ['insert into test1 values (2)'] } ],
         [ sub { $_[0]->dbh->do($_[1]) }, 'insert into test1 values (3)' ],
+        # this invokes $storage->connect_call_foo('bar') (above)
         [ foo => 'bar' ],
     ],
     on_connect_do => 'insert into test1 values (4)',