fixup _setup_connect_do, other minor cleanups

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

diff --git a/t/92storage.t b/t/92storage.t
index 94bdfd3..d8bba98 100644 (file)
--- a/t/92storage.t
+++ b/t/92storage.t
@@ -162,7 +162,7 @@ for my $type (keys %$invocations) {
 
   is_deeply (
     [$storage->on_connect_do, $storage->on_disconnect_do ],
-    [ [qw/a b c/], [qw/d e f/] ],
+    [ [ map [ do_sql => $_ ], qw/a b c/ ], [ map [ do_sql => $_ ], qw/d e f/ ] ],
     "$type correctly parsed DBIC specific on_[dis]connect_do",
   );
 }