better money value comparison in tests

[dbsrgits/DBIx-Class.git] / t / 92storage_on_connect_call.t

diff --git a/t/92storage_on_connect_call.t b/t/92storage_on_connect_call.t
index d0d937b..09befcd 100644 (file)
--- 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)',