don't use eq_set in test
Alexander Hartmaier [Fri, 15 Jan 2010 18:32:16 +0000 (18:32 +0000)]
t/99dbic_sqlt_parser.t

index ccfc60a..81381e9 100644 (file)
@@ -50,9 +50,9 @@ my @sources = grep
     
     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");
     }
   }
 }