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