From e2f7af705a3dec379a720265366b5dc0d61ebba9 Mon Sep 17 00:00:00 2001
From: Felix Kokocinski <fsk@sanger.ac.uk>
Date: Thu, 28 Sep 2006 12:18:09 +0000
Subject: [PATCH] update of tests
---
modules/t/ditagFeature.t | 19 ++++++++++++++-----
1 file changed, 14 insertions(+), 5 deletions(-)
diff --git a/modules/t/ditagFeature.t b/modules/t/ditagFeature.t
index 72955f0d95..b01ab7457d 100644
--- a/modules/t/ditagFeature.t
+++ b/modules/t/ditagFeature.t
@@ -2,7 +2,7 @@ use strict;
BEGIN { $| = 1;
use Test;
- plan tests => 17;
+ plan tests => 18;
}
use Bio::EnsEMBL::Test::MultiTestDB;
@@ -55,7 +55,7 @@ my $feature = Bio::EnsEMBL::Map::DitagFeature->new(
ok($feature && $feature->isa('Bio::EnsEMBL::Map::DitagFeature'));
########
-# 2-14 #
+# 2-15 #
########
#test ditag_id, ditag_side, hit_start, hit_end,
@@ -81,9 +81,9 @@ ok($ditagFeature->strand eq $qstrand);
ok($ditagFeature->dbID == $dbID);
ok(length($ditagFeature->sequence) > 10);
-######
-# 13 #
-######
+#########
+# 16-17 #
+#########
#test fetch_ditag
@@ -92,4 +92,13 @@ my $ditag = $ditagFeature->fetch_ditag();
ok(defined $ditag && $ditag->isa('Bio::EnsEMBL::Map::Ditag'));
ok($ditag->dbID == $ditag_id);
+######
+# 18 #
+######
+
+#test get_ditag_location
+
+my ($rstart, $rend, $rstrand) = $ditagFeature->get_ditag_location();
+ok(defined($rstart) && defined($rend) && defined($rstrand));
+
1;
--
GitLab