From 4042553f63d005c28a1eaafe3555de387044870a Mon Sep 17 00:00:00 2001
From: jason <jason@bioperl.org>
Date: Thu, 24 Jun 2004 21:46:47 +0000
Subject: [PATCH] tests more resistant to rounding differences

svn path=/bioperl-run/trunk/; revision=13539
---
 t/PAML.t | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/t/PAML.t b/t/PAML.t
index f0c4abf..a5f7676 100644
--- a/t/PAML.t
+++ b/t/PAML.t
@@ -22,7 +22,7 @@ BEGIN {
     }
     use Test;
 
-    $NUMTESTS = 17;
+    $NUMTESTS = 18;
     plan tests => $NUMTESTS;
 
     unless (eval "require IO::String; 1;") {
@@ -96,10 +96,10 @@ if( $result->version =~ /3\.12/ ) {
 # PAML 2.13 results
     ok($MLmatrix->[0]->[1]->{'dN'}, 0.0713);
     ok($MLmatrix->[0]->[1]->{'dS'},1.2462);
-    ok($MLmatrix->[0]->[1]->{'omega'}, 0.0572);
+    ok(sprintf("%.4f",$MLmatrix->[0]->[1]->{'omega'}), 0.0572);
     ok($MLmatrix->[0]->[1]->{'S'}, 278.8);
     ok($MLmatrix->[0]->[1]->{'N'}, 723.2);
-    ok($MLmatrix->[0]->[1]->{'t'}, 1.1946);
+    ok(sprintf("%.4f",$MLmatrix->[0]->[1]->{'t'}), 1.1946);
 } else { 
     for( 1..6) { 
 	skip("Can't test the result output, don't know about PAML version ".$result->version,1);
@@ -126,3 +126,10 @@ ok($MLmatrix->[0]->[1]->{'N'}, 723.6);
 ok($MLmatrix->[0]->[1]->{'t'}, 1.0941);
 
 ok($yn00->error_string !~ /Error/); # we don't expect any errors;
+
+
+$codeml = new Bio::Tools::Run::Phylo::PAML::Codeml
+    (-params => { 'alpha' => 1.53 },
+     -verbose => $verbose);
+
+ok($codeml);
-- 
2.11.4.GIT