Better test case which reports what has gone wrong

a5230e0e · Andy Yates · 870a00e4 · a5230e0e
Commit a5230e0e authored 12 years ago by Andy Yates
--- a/modules/t/slice.t
+++ b/modules/t/slice.t
@@ -249,7 +249,7 @@ $count += scalar @$dafs;
 # Test Slice::get_all_ProteinAlignFeatures
 #
 my $pafs = $slice->get_all_ProteinAlignFeatures;
-ok(@$pafs == 7205);
+is(scalar(@$pafs),7205, 'Checking count of returned ProteinAlignFeatures');
 $count += scalar @$pafs;

 #