t7123-solver-MGH17.pl 589 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------

use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;

my $file = "MGH17.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
		  sub {
		      chomp;
		      print STDERR "--> $_\n";
15 16 17 18 19 20 21
		      my $ok = (/^[-+]?(\d|\.\d)/ && $_ > $rle);
		      if ($ok) {
			  print STDERR "Unexpected success.\n";
		      } else {
			  print STDERR "Known failure.\n" ;
			  $ok = 1;
		      }
22
		  });