1#!/usr/bin/perl -w
2# -----------------------------------------------------------------------------
3
4use strict;
5use lib ($0 =~ m|^(.*/)| ? $1 : ".");
6use GnumericTest;
7
8my $file = "Kirby2.gnumeric";
9my $rle = 3;
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		      return $ok;
17		  });
18