From d09271e3593e7cc0afea7446752c65144847d8a2 Mon Sep 17 00:00:00 2001
From: Arne Stabenau <stabenau@sanger.ac.uk>
Date: Thu, 26 Feb 2004 16:17:18 +0000
Subject: [PATCH] added project return value check
---
modules/t/slice.t | 20 ++++++++++++++++++--
1 file changed, 18 insertions(+), 2 deletions(-)
diff --git a/modules/t/slice.t b/modules/t/slice.t
index 57ebf4b3cc..b3695a9b3b 100644
--- a/modules/t/slice.t
+++ b/modules/t/slice.t
@@ -5,13 +5,14 @@ use lib 't';
BEGIN { $| = 1;
use Test;
- plan tests => 47;
+ plan tests => 48;
}
use TestUtils qw( debug );
use MultiTestDB;
use Bio::EnsEMBL::Slice;
+use Bio::EnsEMBL::ProjectionSegment;
our $verbose= 0;
@@ -283,7 +284,22 @@ ok(scalar @{$slice->get_all_MiscFeatures()});
#
# Test Slice::project
#
-ok(scalar @{$slice->project('seqlevel')});
+
+my @segments = @{$slice->project( 'seqlevel' )};
+ok(scalar @segments );
+
+eval {
+ my @sub_slices = map { $_->to_Slice() } @segments;
+ my @starts = map { $_->from_start() } @segments;
+ my @ends = map { $_->from_end() } @segments;
+};
+
+if( $@ ) {
+ debug( "to_Slice call failed on segment of projection" );
+ ok(0);
+} else {
+ ok(1)
+}
#my $super_slices = $slice->get_all_supercontig_Slices();
--
GitLab