Shutdown: help the style leak printer out a bit.
[gnumeric.git] / test / t7140-solver-MGH09.pl
blob00f213b64b85f4dae443b75fa0ad9525dcaccc20
1 #!/usr/bin/perl -w
2 # -----------------------------------------------------------------------------
4 use strict;
5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
6 use GnumericTest;
8 my $file = "MGH09.gnumeric";
9 my $rle = 6;
10 &message ("Check non-linear solver on $file problem.");
11 &test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
12 sub {
13 chomp;
14 print STDERR "--> $_\n";
15 my $ok = (/^[-+]?(\d|\.\d)/ && $_ > $rle);
16 if ($ok) {
17 print STDERR "Unexpected success.\n";
18 } else {
19 print STDERR "Known failure.\n" ;
20 $ok = 1;
22 });