From 9fd360aea824badb827148d94d1f98520592834b Mon Sep 17 00:00:00 2001
From: Daniel Rios <dr2@sanger.ac.uk>
Date: Wed, 29 Oct 2008 10:41:56 +0000
Subject: [PATCH] added a couple of tests to check new column:
pair_dna_align_feature_id
---
modules/t/dnaAlignFeatureAdaptor.t | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/modules/t/dnaAlignFeatureAdaptor.t b/modules/t/dnaAlignFeatureAdaptor.t
index 63d2bd621c..156cdee5ab 100644
--- a/modules/t/dnaAlignFeatureAdaptor.t
+++ b/modules/t/dnaAlignFeatureAdaptor.t
@@ -2,7 +2,7 @@ use strict;
BEGIN { $| = 1;
use Test;
- plan tests => 27;
+ plan tests => 29;
}
@@ -62,6 +62,7 @@ ok($feat);
print_features([$feat]);
ok($feat->db_name eq 'EMBL');
ok($feat->db_display_name eq 'EMBL');
+ok($feat->pair_dna_align_feature_id == 1449321);
$feat = $feat->transform('supercontig');
@@ -101,6 +102,7 @@ my $evalue = 23.2;
my $cigar_string = '100M';
my $hcoverage = 99.5;
my $external_db_id = 2200;
+my $pair_dna_align_feature_id = 10;
$feat = Bio::EnsEMBL::DnaDnaAlignFeature->new
(-START => $start,
@@ -117,7 +119,8 @@ $feat = Bio::EnsEMBL::DnaDnaAlignFeature->new
-P_VALUE => $evalue,
-ANALYSIS => $analysis,
-HCOVERAGE => $hcoverage,
- -EXTERNAL_DB_ID => $external_db_id );
+ -EXTERNAL_DB_ID => $external_db_id,
+ -PAIR_DNA_ALIGN_FEATURE_ID => $pair_dna_align_feature_id );
ok(!$feat->is_stored($db));
@@ -145,6 +148,7 @@ ok($feat->p_value == $evalue);
ok($feat->analysis->logic_name eq $analysis->logic_name);
ok($feat->external_db_id == $external_db_id);
ok($feat->hcoverage == $hcoverage);
+ok($feat->pair_dna_align_feature_id == $pair_dna_align_feature_id);
$multi->restore('core', 'dna_align_feature');
--
GitLab