[Bioperl-guts-l] bioperl-run/t Genewise.t,1.9,1.10
Jason Stajich
jason at pub.open-bio.org
Tue Sep 27 11:06:11 EDT 2005
Update of /home/repository/bioperl/bioperl-run/t
In directory pub.open-bio.org:/tmp/cvs-serv23659/t
Modified Files:
Genewise.t
Log Message:
test for wise 2.2.0 and 2.2.3
Index: Genewise.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/t/Genewise.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Genewise.t 25 Sep 2005 19:38:30 -0000 1.9
--- Genewise.t 27 Sep 2005 15:06:09 -0000 1.10
***************
*** 31,36 ****
my $factory = Bio::Tools::Run::Genewise->new(@params);
- #$factory->executable("/usr/local/bin/genewise");
my $version = $factory->version;
ok $factory->isa('Bio::Tools::Run::Genewise');
unless ($factory->executable) {
--- 31,36 ----
my $factory = Bio::Tools::Run::Genewise->new(@params);
my $version = $factory->version;
+
ok $factory->isa('Bio::Tools::Run::Genewise');
unless ($factory->executable) {
***************
*** 64,71 ****
ok($featpair->feature2->seq_id,'roa1_drome');
ok($featpair->feature1->seq_id,'HSHNRNPA');
-
if( defined $version && $version eq 'wise2-2-0' ) {
ok($transcripts[0]->start, 1386);
! ok($transcripts[0]->end, 4304);
ok($feat[0]->start, 1386);
ok($feat[0]->end, 1493);
--- 64,70 ----
ok($featpair->feature2->seq_id,'roa1_drome');
ok($featpair->feature1->seq_id,'HSHNRNPA');
if( defined $version && $version eq 'wise2-2-0' ) {
ok($transcripts[0]->start, 1386);
! ok($transcripts[0]->end, 3963);
ok($feat[0]->start, 1386);
ok($feat[0]->end, 1493);
More information about the Bioperl-guts-l
mailing list