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