[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