[Bioperl-guts-l] bioperl-live/t genbank.t,1.22,1.23

Christopher John Fields cjfields at dev.open-bio.org
Thu Jun 14 14:39:46 EDT 2007


Update of /home/repository/bioperl/bioperl-live/t
In directory dev.open-bio.org:/tmp/cvs-serv25208

Modified Files:
	genbank.t 
Log Message:
Removed two tests; the warning that these tests caught is no
longer there (the parser just bypasses blank lines, so no need).

Index: genbank.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/genbank.t,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** genbank.t	14 Jun 2007 14:16:21 -0000	1.22
--- genbank.t	14 Jun 2007 18:39:44 -0000	1.23
***************
*** 10,14 ****
      }
      use Test::More;
!     plan tests => 247;
      use_ok('Bio::SeqIO');
      use_ok('Bio::Root::IO');
--- 10,14 ----
      }
      use Test::More;
!     plan tests => 245;
      use_ok('Bio::SeqIO');
      use_ok('Bio::Root::IO');
***************
*** 349,363 ****
  ok(! -z "tmp_revcomp_mrna.gb", 'revcomp split location');
  
- # check warnings for LOCUS line
- $gb = Bio::SeqIO->new(-format => 'genbank',
-                         -verbose => 2,
-                         -file   => Bio::Root::IO->catfile
-                         (qw(t data revcomp_mrna.gb)));
- eval {$seq = $gb->next_seq();};
- 
- ok($@);
- 
- like($@, qr{Missing tokens in the LOCUS line});
- 
  # bug 1925, continuation of long ORGANISM line ends up in @classification:
  # ORGANISM  Salmonella enterica subsp. enterica serovar Paratyphi A str. ATCC
--- 349,352 ----
***************
*** 375,379 ****
  is $class[$#class], "Bacteria";
  
! # WGS tests
  $gb = Bio::SeqIO->new(-format => 'genbank',
                        -verbose => $verbose,
--- 364,368 ----
  is $class[$#class], "Bacteria";
  
! # WGS   tests
  $gb = Bio::SeqIO->new(-format => 'genbank',
                        -verbose => $verbose,



More information about the Bioperl-guts-l mailing list