[Bast-commits] r8331 - DBIx-Class/0.08/branches/no_duplicate_indexes_for_pk_cols/t

abraxxa at dev.catalyst.perl.org abraxxa at dev.catalyst.perl.org
Fri Jan 15 18:32:16 GMT 2010


Author: abraxxa
Date: 2010-01-15 18:32:16 +0000 (Fri, 15 Jan 2010)
New Revision: 8331

Modified:
   DBIx-Class/0.08/branches/no_duplicate_indexes_for_pk_cols/t/99dbic_sqlt_parser.t
Log:
don't use eq_set in test


Modified: DBIx-Class/0.08/branches/no_duplicate_indexes_for_pk_cols/t/99dbic_sqlt_parser.t
===================================================================
--- DBIx-Class/0.08/branches/no_duplicate_indexes_for_pk_cols/t/99dbic_sqlt_parser.t	2010-01-15 18:30:00 UTC (rev 8330)
+++ DBIx-Class/0.08/branches/no_duplicate_indexes_for_pk_cols/t/99dbic_sqlt_parser.t	2010-01-15 18:32:16 UTC (rev 8331)
@@ -50,9 +50,9 @@
     
     for my $index (@indices) {
         my $source = $schema->source($source_name);
-        my @pks = $source->primary_columns;
-        my @idx_cols = $index->fields;
-        ok ( !eq_set(\@pks, \@idx_cols), "no additional index for the primary columns exists in $source_name");
+        my $pk_test = join("\x00", sort $source->primary_columns);
+        my $idx_test = join("\x00", sort $index->fields);
+        isnt ( $pk_test, $idx_test, "no additional index for the primary columns exists in $source_name");
     }
   }
 }




More information about the Bast-commits mailing list