Skip to content
Snippets Groups Projects
Commit 6d9450df authored by Graham McVicker's avatar Graham McVicker
Browse files

changed overlaps tests

parent 10523a09
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ use lib 't'; ...@@ -5,7 +5,7 @@ use lib 't';
BEGIN { $| = 1; BEGIN { $| = 1;
use Test; use Test;
plan tests => 94; plan tests => 92;
} }
use TestUtils qw( debug test_getter_setter ); use TestUtils qw( debug test_getter_setter );
...@@ -443,12 +443,12 @@ my $chr_slice = $db->get_SliceAdaptor->fetch_by_region('chromosome', ...@@ -443,12 +443,12 @@ my $chr_slice = $db->get_SliceAdaptor->fetch_by_region('chromosome',
30_249_935, 30_249_935,
31_000_000); 31_000_000);
my $sctg_slice = $db->get_SliceAdaptor->fetch_by_region('supercontig', # my $sctg_slice = $db->get_SliceAdaptor->fetch_by_region('supercontig',
'NT_028392'); # 'NT_028392');
my $ctg_slice = $db->get_SliceAdaptor->fetch_by_region('contig', # my $ctg_slice = $db->get_SliceAdaptor->fetch_by_region('contig',
'AL359765.6.1.13780', # 'AL359765.6.1.13780',
'30', '3000'); # '30', '3000');
my $f1 = new Bio::EnsEMBL::Feature( -start => 1, my $f1 = new Bio::EnsEMBL::Feature( -start => 1,
...@@ -485,32 +485,32 @@ ok( ! $f2->overlaps( $f1 )); ...@@ -485,32 +485,32 @@ ok( ! $f2->overlaps( $f1 ));
# other coord system overlaps # other coord system overlaps
# #
$f2 = new Bio::EnsEMBL::Feature( -start => 1, # $f2 = new Bio::EnsEMBL::Feature( -start => 1,
-end => 1000_000, # -end => 1000_000,
-strand => -1, # -strand => -1,
-slice => $sctg_slice, # -slice => $sctg_slice,
-analysis => $analysis # -analysis => $analysis
); # );
debug( "Other coord overlaps ".( $f1->overlaps( $f2 ))); # debug( "Other coord overlaps ".( $f1->overlaps( $f2 )));
ok( $f1->overlaps( $f2 )); # ok( $f1->overlaps( $f2 ));
# # #
# Just seqname features # # Just seqname features
# # #
$f1->seqname( "minigenewise" ); # $f1->seqname( "minigenewise" );
$f1->slice( undef ); # $f1->slice( undef );
$f2 = new Bio::EnsEMBL::Feature( -start => 10, # $f2 = new Bio::EnsEMBL::Feature( -start => 10,
-end => 20, # -end => 20,
-strand => -1, # -strand => -1,
-seqname => "minigenewise", # -seqname => "minigenewise",
-analysis => $analysis # -analysis => $analysis
); # );
debug( "seqname f1<->f2 overlap = ".($f1->overlaps( $f2 ))); # debug( "seqname f1<->f2 overlap = ".($f1->overlaps( $f2 )));
ok( ($f1->overlaps( $f2 ))); # ok( ($f1->overlaps( $f2 )));
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment