Introspection: add col/row manipulations
[gnumeric.git] / test / t7101-solver-afiro.pl
blob734e8e06ff91ad1a2aaa41685d63530faa019f31
1 #!/usr/bin/perl -w
2 # -----------------------------------------------------------------------------
4 use strict;
5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
6 use GnumericTest;
8 &GnumericTest::report_skip ("No linear solver found")
9 unless &GnumericTest::has_linear_solver ();
11 my $file = "afiro.mps";
12 my $answer = -464.753216;
13 # lp_solve: -464.753216;
14 my $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 });