test/t7113-solver-Lanczos3.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 my $file = "Lanczos3.gnumeric";
   9 my $rle = 6;
  10 &message ("Check non-linear solver on $file problem.");
  11 &test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
  12                   sub {
  13                       chomp;
  14                       print STDERR "--> $_\n";
  15                       my $ok = (/^[-+]?(\d|\.\d)/ && $_ > $rle);
  16                       if ($ok) {
  17                           print STDERR "Unexpected success.\n";
  18                       } else {
  19                           print STDERR "Known failure.\n" ;
  20                           $ok = 1;
  21                       }
  22                       return $ok;
  23                   });