Commit 79c12923 authored by Morten Welinder's avatar Morten Welinder

solver: non-linear regression test suite. (Fails.)

parent 055554e7
......@@ -15,6 +15,8 @@
# 69xx: Minor formats
#
# 7xxx: Features
# 70xx: Goal seek
# 71xx: Solver
#
# 8xxx: Runs with valgrind and similar tools.
# 80xx: Valgrind
......
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Misra1a.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Chwirut2.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Chwirut1.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Lanczos3.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return 1; # Known failure
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Gauss1.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Gauss2.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "DanWood.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Misra1b.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Kirby2.gnumeric";
my $rle = 5.5;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Hahn1.gnumeric";
my $rle = 2.5;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Nelson.gnumeric";
my $rle = 2.5;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "MGH17.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return 1; # Known failure
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Lanczos1.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return 1; # Known failure
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Lanczos2.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return 1; # Known failure
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Gauss3.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Misra1c.gnumeric";
my $rle = 5.9;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Misra1d.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Roszman1.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return 1; # Known failure
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "ENSO.gnumeric";
my $rle = 3.6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "MGH09.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Thurber.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "BoxBOD.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Rat42.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "MGH10.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Eckerle4.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Rat43.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
my $file = "Bennett5.gnumeric";
my $rle = 6;
&message ("Check non-linear solver on $file problem.");
&test_sheet_calc ("$samples/solver/$file", ['--solve'], "K39",
sub {
chomp;
print STDERR "--> $_\n";
return (/^[-+]?(\d|\.\d)/ &&
$_ > $rle);
});
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment