[Bast-commits] r7982 - DBIx-Class/0.08/branches/prefetch/t/inflate

ribasushi at dev.catalyst.perl.org ribasushi at dev.catalyst.perl.org
Sun Nov 29 11:58:50 GMT 2009


Author: ribasushi
Date: 2009-11-29 11:58:50 +0000 (Sun, 29 Nov 2009)
New Revision: 7982

Modified:
   DBIx-Class/0.08/branches/prefetch/t/inflate/hri.t
Log:
And one more backwards incompatibility... really need to think if this will break HRI or not

Modified: DBIx-Class/0.08/branches/prefetch/t/inflate/hri.t
===================================================================
--- DBIx-Class/0.08/branches/prefetch/t/inflate/hri.t	2009-11-29 11:51:39 UTC (rev 7981)
+++ DBIx-Class/0.08/branches/prefetch/t/inflate/hri.t	2009-11-29 11:58:50 UTC (rev 7982)
@@ -42,14 +42,14 @@
         elsif (ref ($datahashref->{$col}) eq 'ARRAY') {
             my @dbic_reltable = $dbic_obj->$col;
             my @hashref_reltable = @{$datahashref->{$col}};
-  
+
             is (scalar @hashref_reltable, scalar @dbic_reltable, 'number of related entries');
 
             # for my $index (0..scalar @hashref_reltable) {
             for my $index (0..scalar @dbic_reltable) {
                 my $dbic_reltable_obj       = $dbic_reltable[$index];
                 my $hashref_reltable_entry  = $hashref_reltable[$index];
-                
+
                 check_cols_of($dbic_reltable_obj, $hashref_reltable_entry);
             }
         }
@@ -110,8 +110,8 @@
     my $datahashref = $hashrefinf[$index];
 
     is ($track->cd->artist->name, $datahashref->{name}, 'Brought back correct artist');
-    for my $col (keys %{$datahashref->{cds}{tracks}}) {
-        is ($track->get_column ($col), $datahashref->{cds}{tracks}{$col}, "Correct track '$col'");
+    for my $col (keys %{$datahashref->{cds}[0]{tracks}[0]}) {
+        is ($track->get_column ($col), $datahashref->{cds}[0]{tracks}[0]{$col}, "Correct track '$col'");
     }
 }
 




More information about the Bast-commits mailing list