Shutdown: help the style leak printer out a bit.
[gnumeric.git] / test / t7146-solver-Rat43.pl
bloba6ea7fed9bfbbe91d65c7bb32ae0be9e8a7eeb6a
1 #!/usr/bin/perl -w
2 # -----------------------------------------------------------------------------
4 use strict;
5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
6 use GnumericTest;
8 my $file = "Rat43.gnumeric";
9 my $rle = 4;
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 return (/^[-+]?(\d|\.\d)/ &&
16 $_ > $rle);
17 });