2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
8 my $file = "Gauss2.gnumeric";
10 &message
("Check non-linear solver on $file problem.");
11 &test_sheet_calc
("$samples/solver/$file", ['--solve'], "K39",
14 print STDERR
"--> $_\n";
15 return (/^[-+]?(\d|\.\d)/ &&