[med-svn] [libfreecontact-perl] 35/46: fixed 02test, forwarded fix upstream

[Laszlo Kajan]

This is an automated email from the git hooks/post-receive script.

lkajan pushed a commit to branch master
in repository libfreecontact-perl.

commit 9ca237edfe087f63df41b7c907f044ac97100141
Author: Laszlo Kajan <lkajan at debian.org>
Date:   Mon Jun 17 16:43:55 2013 +0200

    fixed 02test, forwarded fix upstream
---
 t/02test.t |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/t/02test.t b/t/02test.t
index f99063e..ca3e608 100644
--- a/t/02test.t
+++ b/t/02test.t
@@ -34,7 +34,7 @@ sub check_obj {
     is(reftype($res), 'HASH');
 
     #use Data::Dumper; warn(Dumper($res));
-    ok(abs($res->{fro}->[2741]->[2]-$evfold_24_42)/$evfold_24_42 < 1e-6, 'precision test'); # 25 K 43 N 0.230969 0.0129471
+    ok(abs($res->{fro}->[2741]->[2]-$evfold_24_42)/$evfold_24_42 < 1e-5, 'precision test'); # 25 K 43 N 0.230969 0.0129471
     ok($timing->{num_threads} == $num_threads, "timing results test");
 
     #use Data::Dumper; warn(Dumper($timing));
@@ -53,8 +53,7 @@ sub check_obj {
         ok(abs($wtot-620.777)/620.777 < 1e-6, 'wtot test');
 
         my $res = FreeContact::Predictor->new(dbg => 1)->run_with_seq_weights(ali => \@aln, aliw => $aliw, wtot => $wtot, num_threads => $num_threads, timing => $timing);
-warn($res->{fro}->[2741]->[2]);
-        ok(abs($res->{fro}->[2741]->[2]-$evfold_24_42)/$evfold_24_42 < 1e-6, 'wtot precision test'); # [ 2, 3, 8.08998+- ]
+        ok(abs($res->{fro}->[2741]->[2]-$evfold_24_42)/$evfold_24_42 < 1e-5, 'wtot precision test'); # [ 2, 3, 8.08998+- ]
     }
 }
 

-- 
Alioth's /git/debian-med/git-commit-notice on /srv/git.debian.org/git/debian-med/libfreecontact-perl.git