2 # -----------------------------------------------------------------------------
5 use lib
($0 =~ m
|^(.*/)| ?
$1 : ".");
8 my $file = "afiro.mps";
9 my $answer = -464.753216;
10 # lp_solve: -464.753216;
12 &message
("Check solver on $file problem.");
13 &test_sheet_calc
("$samples/solver/$file", ['--solve'], "B5",
16 return (/^[-+]?(\d|\.\d)/ &&
17 abs ($answer - $_) < $tol);