[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