[Bioperl-guts-l] bioperl-run/t ProtDist.t,1.14,1.15

George Hartzell hartzell at pub.open-bio.org
Thu Sep 29 16:59:31 EDT 2005


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

Modified Files:
	ProtDist.t 
Log Message:

* generalize the ProtDist test so that it only compares 3 significant 
  digits worth of the score.  This allows the test to pass with perl 
  5.8.7 on FreeBSD 5.4-STABLE i386.

  Reviewed by Jason.

	t/ProtDist.t (modified)




Index: ProtDist.t
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/t/ProtDist.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** ProtDist.t	18 Dec 2002 13:43:45 -0000	1.14
--- ProtDist.t	29 Sep 2005 20:59:29 -0000	1.15
***************
*** 96,100 ****
  ($matrix) = $dist_factory->create_distance_matrix($inputfilename);
  
! ok($matrix->get_entry('ENSP000003','SINFRUP001'),0.27708);
  
  $inputfilename = Bio::Root::IO->catfile("t","data","cysprot.fa");
--- 96,100 ----
  ($matrix) = $dist_factory->create_distance_matrix($inputfilename);
  
! ok(sprintf("%.3f", $matrix->get_entry('ENSP000003','SINFRUP001')),0.277);
  
  $inputfilename = Bio::Root::IO->catfile("t","data","cysprot.fa");



More information about the Bioperl-guts-l mailing list