[Bast-commits] r8126 - DBIx-Class/0.08/branches/mssql_limit_regression/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-12-16 10:29:20 +0000 (Wed, 16 Dec 2009)
New Revision: 8126

Modified:
   DBIx-Class/0.08/branches/mssql_limit_regression/t/746mssql.t
Log:
Clearer debug

Modified: DBIx-Class/0.08/branches/mssql_limit_regression/t/746mssql.t
===================================================================
--- DBIx-Class/0.08/branches/mssql_limit_regression/t/746mssql.t	2009-12-16 10:25:37 UTC (rev 8125)
+++ DBIx-Class/0.08/branches/mssql_limit_regression/t/746mssql.t	2009-12-16 10:29:20 UTC (rev 8126)
@@ -272,12 +272,12 @@
 
   $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 (
+    \@names,
     \@subq_names,
-    \@names,
     'Sort preserved from within a subquery'
   ) || diag do { require Data::Dumper::Concise; Data::Dumper::Concise::Dumper (\@names, \@subq_names) };
   $schema->storage->debug (0);