From: Peter Rabbitson Date: Wed, 16 Dec 2009 10:29:20 +0000 (+0000) Subject: Clearer debug X-Git-Tag: v0.08116~61^2~12 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8c333730df3277fee493df7ba6601ce1bb5f6ec;p=dbsrgits%2FDBIx-Class.git Clearer debug --- diff --git a/t/746mssql.t b/t/746mssql.t index 6d2e2b0..f9142f7 100644 --- a/t/746mssql.t +++ b/t/746mssql.t @@ -272,12 +272,12 @@ lives_ok ( sub { $schema->storage->debug (1); diag "\n"; - my @subq_names = [ map { $_->name } ($sealed_owners->all) ]; - my @names = [ map { $_->name } ($owners->all) ]; + my @names = map { $_->name } ($owners->all); + my @subq_names = map { $_->name } ($sealed_owners->all); is_deeply ( - \@subq_names, \@names, + \@subq_names, 'Sort preserved from within a subquery' ) || diag do { require Data::Dumper::Concise; Data::Dumper::Concise::Dumper (\@names, \@subq_names) }; $schema->storage->debug (0);