[gnumeric] solver tests: a few tests are no longer expected to fail.

[Morten Welinder <mortenw src gnome org>]

commit 09b7baf34ebbe7e0dc1a42398933065ef7da3677
Author: Morten Welinder <terra gnome org>
Date:   Wed Jun 2 10:02:33 2010 -0400

    solver tests: a few tests are no longer expected to fail.

 test/t7120-solver-Kirby2.pl   |    9 ++-------
 test/t7122-solver-Nelson.pl   |    9 ++-------
 test/t7129-solver-Roszman1.pl |    7 +------
 test/t7142-solver-BoxBOD.pl   |    9 ++-------
 4 files changed, 7 insertions(+), 27 deletions(-)
---
diff --git a/test/t7120-solver-Kirby2.pl b/test/t7120-solver-Kirby2.pl
index ec6e0d7..51e3ce3 100755
--- a/test/t7120-solver-Kirby2.pl
+++ b/test/t7120-solver-Kirby2.pl
@@ -6,17 +6,12 @@ use lib ($0 =~ m|^(.*/)| ? $1 : ".");
 use GnumericTest;
 
 my $file = "Kirby2.gnumeric";
-my $rle = 5.5;
+my $rle = 5.0;
 &message ("Check non-linear solver on $file problem.");
 &test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
 		  sub {
 		      chomp;
 		      print STDERR "--> $_\n";
 		      my $ok = (/^[-+]?(\d|\.\d)/ && $_ > $rle);
-		      if ($ok) {
-			  print STDERR "Unexpected success.\n";
-		      } else {
-			  print STDERR "Known failure.\n" ;
-			  $ok = 1;
-		      }
+		      return $ok;
 		  });
diff --git a/test/t7122-solver-Nelson.pl b/test/t7122-solver-Nelson.pl
index a643f88..f31ff52 100755
--- a/test/t7122-solver-Nelson.pl
+++ b/test/t7122-solver-Nelson.pl
@@ -6,17 +6,12 @@ use lib ($0 =~ m|^(.*/)| ? $1 : ".");
 use GnumericTest;
 
 my $file = "Nelson.gnumeric";
-my $rle = 2.5;
+my $rle = 6;
 &message ("Check non-linear solver on $file problem.");
 &test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
 		  sub {
 		      chomp;
 		      print STDERR "--> $_\n";
 		      my $ok = (/^[-+]?(\d|\.\d)/ && $_ > $rle);
-		      if ($ok) {
-			  print STDERR "Unexpected success.\n";
-		      } else {
-			  print STDERR "Known failure.\n" ;
-			  $ok = 1;
-		      }
+		      return $ok;
 		  });
diff --git a/test/t7129-solver-Roszman1.pl b/test/t7129-solver-Roszman1.pl
index 42e48ca..e60c987 100755
--- a/test/t7129-solver-Roszman1.pl
+++ b/test/t7129-solver-Roszman1.pl
@@ -13,10 +13,5 @@ my $rle = 6;
 		      chomp;
 		      print STDERR "--> $_\n";
 		      my $ok = (/^[-+]?(\d|\.\d)/ && $_ > $rle);
-		      if ($ok) {
-			  print STDERR "Unexpected success.\n";
-		      } else {
-			  print STDERR "Known failure.\n" ;
-			  $ok = 1;
-		      }
+		      return $ok;
 		  });
diff --git a/test/t7142-solver-BoxBOD.pl b/test/t7142-solver-BoxBOD.pl
index ec575fe..dd90b20 100755
--- a/test/t7142-solver-BoxBOD.pl
+++ b/test/t7142-solver-BoxBOD.pl
@@ -6,17 +6,12 @@ use lib ($0 =~ m|^(.*/)| ? $1 : ".");
 use GnumericTest;
 
 my $file = "BoxBOD.gnumeric";
-my $rle = 6;
+my $rle = 7;
 &message ("Check non-linear solver on $file problem.");
 &test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
 		  sub {
 		      chomp;
 		      print STDERR "--> $_\n";
 		      my $ok = (/^[-+]?(\d|\.\d)/ && $_ > $rle);
-		      if ($ok) {
-			  print STDERR "Unexpected success.\n";
-		      } else {
-			  print STDERR "Known failure.\n" ;
-			  $ok = 1;
-		      }
+		      return $ok;
 		  });