added a couple of tests to check new column: pair_dna_align_feature_id

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');