From 7a8d503359783d9f0d2dd2c4ebf8a3157f36e095 Mon Sep 17 00:00:00 2001
From: Graham McVicker <mcvicker@sanger.ac.uk>
Date: Tue, 27 Apr 2004 09:38:07 +0000
Subject: [PATCH] added test for new seq_region_Slice method
---
modules/t/slice.t | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/modules/t/slice.t b/modules/t/slice.t
index 944098cb25..5444fd7a41 100644
--- a/modules/t/slice.t
+++ b/modules/t/slice.t
@@ -5,7 +5,7 @@ use lib 't';
BEGIN { $| = 1;
use Test;
- plan tests => 47;
+ plan tests => 48;
}
use TestUtils qw( debug );
@@ -332,3 +332,11 @@ ok($a == 234371
&& $gc_content == 48.59
&& $a+$c+$t+$g+$n == $slice->length);
+
+$slice = $slice_adaptor->fetch_by_region('chromosome', '20', 10, 30);
+
+my $sr_slice = $slice->seq_region_Slice();
+
+ok($sr_slice->start() == 1 &&
+ $sr_slice->end() == $slice->seq_region_length() &&
+ $sr_slice->strand() == 1);
--
GitLab