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