-#!/usr/bin/perl
-
use strict;
use warnings;
[ $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;