[Bioperl-guts-l] bioperl-live/t BioDBSeqFeature.t,1.2,1.3

Lincoln Stein lstein at dev.open-bio.org
Sun Oct 1 13:15:32 EDT 2006


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

Modified Files:
	BioDBSeqFeature.t 
Log Message:
fixed bugs: 1) load_id() again returns the load ID as documented; 2) get_SeqFeatures(@typelist) works with children that are inline, not just stored in normalized fashion

Index: BioDBSeqFeature.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/t/BioDBSeqFeature.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** BioDBSeqFeature.t	6 Sep 2006 18:23:51 -0000	1.2
--- BioDBSeqFeature.t	1 Oct 2006 17:15:30 -0000	1.3
***************
*** 9,13 ****
  use Bio::Root::IO;
  use FindBin '$Bin';
! use constant TEST_COUNT => 43;
  use constant GFF_FILE    => Bio::Root::IO->catfile('t','data',
  					   'seqfeaturedb','test.gff3');
--- 9,13 ----
  use Bio::Root::IO;
  use FindBin '$Bin';
! use constant TEST_COUNT => 46;
  use constant GFF_FILE    => Bio::Root::IO->catfile('t','data',
  					   'seqfeaturedb','test.gff3');
***************
*** 181,184 ****
--- 181,192 ----
  ok($feature_count == $count);
  
+ # regression test on bug in which get_SeqFeatures('type') did not filter inline segments
+ @f = $db->get_features_by_name('agt830.3');
+ ok(@f && !$f[0]->get_SeqFeatures('exon'));
+ ok(@f && $f[0]->get_SeqFeatures('EST_match'));
+ 
+ # regression test on bug in which the load_id disappeared
+ ok(@f && $f[0]->load_id eq 'Match2');
+ 
  1;
  



More information about the Bioperl-guts-l mailing list