X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Fdbh_do.t;h=eb8bd20bacc90fbf52f00d040405be5384b983a9;hb=38ed54cd3980bd344e13fad27ed11b935ae932aa;hp=a5a58d6200aa4d518455f16a074254f10d24545e;hpb=9e34d55419481925691c7177d43ba48ec02b02eb;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/storage/dbh_do.t b/t/storage/dbh_do.t
index a5a58d6..eb8bd20 100644
--- a/t/storage/dbh_do.t
+++ b/t/storage/dbh_do.t
@@ -33,4 +33,10 @@ is_deeply (
   [ $storage, $storage->dbh, "baz", "buz" ],
 );
 
+# test aliasing
+my $res = 'original';
+$storage->dbh_do (sub { $_[2] = 'changed' }, $res);
+
+is ($res, 'changed', "Arguments properly aliased for dbh_do");
+
 done_testing;