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