[Bioperl-guts-l] bioperl-live/t SeqIO.t,1.95,1.96

[Brian Osborne]

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

Modified Files:
	SeqIO.t 
Log Message:
Add tests for bug 1643 - multi-line SOURCE


Index: SeqIO.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/SeqIO.t,v
retrieving revision 1.95
retrieving revision 1.96
diff -C2 -d -r1.95 -r1.96
*** SeqIO.t	26 Aug 2005 01:52:39 -0000	1.95
--- SeqIO.t	26 Aug 2005 02:17:32 -0000	1.96
***************
*** 12,16 ****
  	}
  	use Test;
! 	$TESTCOUNT = 367;
  	# interpro uses XML::DOM
  	eval {require XML::DOM::XPath};
--- 12,16 ----
  	}
  	use Test;
! 	$TESTCOUNT = 369;
  	# interpro uses XML::DOM
  	eval {require XML::DOM::XPath};
***************
*** 154,157 ****
--- 154,165 ----
  ok($class[$#class],'Eukaryota');
  ok($as->species->common_name,'mitochondrion Bolitoglossa n. sp. RLM-2004 (mushroomtongue salamander)');
+ 
+ $ast = Bio::SeqIO->new(-format => 'genbank' ,
+                        -file => Bio::Root::IO->catfile("t","data",
+                                                        "U71225.gb"));
+ $as = $ast->next_seq;
+ @class = $as->species->classification;
+ ok($class[$#class],'Eukaryota');
+ ok $as->species->common_name,'mitochondrion Desmognathus quadramaculatus (black-bellied salamander)';
  
  # test for unusual common name