1#!/usr/bin/perl -w
2# -----------------------------------------------------------------------------
3
4use strict;
5use lib ($0 =~ m|^(.*/)| ? $1 : ".");
6use GnumericTest;
7
8&GnumericTest::report_skip ("No linear solver found")
9    unless &GnumericTest::has_linear_solver ();
10
11my $file = "afiro.mps";
12my $answer = -464.753216;
13# lp_solve:  -464.753216;
14my $tol = 1e-4;
15&message ("Check solver on $file problem.");
16&test_sheet_calc ("$samples/solver/$file", ['--solve'], "B5",
17		  sub {
18		      chomp;
19		      return (/^[-+]?(\d|\.\d)/ &&
20			      abs ($answer - $_) < $tol);
21		  });
22