GNOME.org
 

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

commit 79c129237425cde31083c7ed4eeacfc507333aad
Author: Morten Welinder <terra gnome org>
Date:   Mon May 24 17:10:04 2010 -0400

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

 samples/solver/Bennett5.gnumeric |  Bin 0 -> 6765 bytes
 samples/solver/BoxBOD.gnumeric   |  Bin 0 -> 3426 bytes
 samples/solver/Chwirut1.gnumeric |  Bin 0 -> 6803 bytes
 samples/solver/Chwirut2.gnumeric |  Bin 0 -> 4045 bytes
 samples/solver/DanWood.gnumeric  |  Bin 0 -> 3676 bytes
 samples/solver/ENSO.gnumeric     |  Bin 0 -> 7125 bytes
 samples/solver/Eckerle4.gnumeric |  Bin 0 -> 4017 bytes
 samples/solver/Gauss1.gnumeric   |  Bin 0 -> 8753 bytes
 samples/solver/Gauss2.gnumeric   |  Bin 0 -> 8760 bytes
 samples/solver/Gauss3.gnumeric   |  Bin 0 -> 8776 bytes
 samples/solver/Hahn1.gnumeric    |  Bin 0 -> 8645 bytes
 samples/solver/Kirby2.gnumeric   |  Bin 0 -> 6614 bytes
 samples/solver/Lanczos1.gnumeric |  Bin 0 -> 4149 bytes
 samples/solver/Lanczos2.gnumeric |  Bin 0 -> 4070 bytes
 samples/solver/Lanczos3.gnumeric |  Bin 0 -> 3872 bytes
 samples/solver/MGH09.gnumeric    |  Bin 0 -> 3898 bytes
 samples/solver/MGH10.gnumeric    |  Bin 0 -> 3790 bytes
 samples/solver/MGH17.gnumeric    |  Bin 0 -> 4254 bytes
 samples/solver/Misra1a.gnumeric  |  Bin 0 -> 3365 bytes
 samples/solver/Misra1b.gnumeric  |  Bin 0 -> 3547 bytes
 samples/solver/Misra1c.gnumeric  |  Bin 0 -> 3543 bytes
 samples/solver/Misra1d.gnumeric  |  Bin 0 -> 3555 bytes
 samples/solver/Nelson.gnumeric   |  Bin 0 -> 5930 bytes
 samples/solver/Rat42.gnumeric    |  Bin 0 -> 3575 bytes
 samples/solver/Rat43.gnumeric    |  Bin 0 -> 3824 bytes
 samples/solver/Roszman1.gnumeric |  Bin 0 -> 4177 bytes
 samples/solver/Thurber.gnumeric  |  Bin 0 -> 4580 bytes
 test/Makefile.am                 |    2 ++
 test/t7110-solver-Misra1a.pl     |   17 +++++++++++++++++
 test/t7111-solver-Chwirut2.pl    |   17 +++++++++++++++++
 test/t7112-solver-Chwirut1.pl    |   17 +++++++++++++++++
 test/t7113-solver-Lanczos3.pl    |   18 ++++++++++++++++++
 test/t7114-solver-Gauss1.pl      |   17 +++++++++++++++++
 test/t7115-solver-Gauss2.pl      |   17 +++++++++++++++++
 test/t7116-solver-DanWood.pl     |   17 +++++++++++++++++
 test/t7116-solver-Misra1b.pl     |   17 +++++++++++++++++
 test/t7120-solver-Kirby2.pl      |   17 +++++++++++++++++
 test/t7121-solver-Hahn1.pl       |   17 +++++++++++++++++
 test/t7122-solver-Nelson.pl      |   17 +++++++++++++++++
 test/t7123-solver-MGH17.pl       |   18 ++++++++++++++++++
 test/t7124-solver-Lanczos1.pl    |   18 ++++++++++++++++++
 test/t7125-solver-Lanczos2.pl    |   18 ++++++++++++++++++
 test/t7126-solver-Gauss3.pl      |   17 +++++++++++++++++
 test/t7127-solver-Misra1c.pl     |   17 +++++++++++++++++
 test/t7128-solver-Misra1d.pl     |   17 +++++++++++++++++
 test/t7129-solver-Roszman1.pl    |   18 ++++++++++++++++++
 test/t7130-solver-ENSO.pl        |   17 +++++++++++++++++
 test/t7140-solver-MGH09.pl       |   17 +++++++++++++++++
 test/t7141-solver-Thurber.pl     |   17 +++++++++++++++++
 test/t7142-solver-BoxBOD.pl      |   17 +++++++++++++++++
 test/t7143-solver-Rat42.pl       |   17 +++++++++++++++++
 test/t7144-solver-MGH10.pl       |   17 +++++++++++++++++
 test/t7145-solver-Eckerle4.pl    |   17 +++++++++++++++++
 test/t7146-solver-Rat43.pl       |   17 +++++++++++++++++
 test/t7147-solver-Bennett5.pl    |   17 +++++++++++++++++
 55 files changed, 466 insertions(+), 0 deletions(-)
---
diff --git a/samples/solver/Bennett5.gnumeric b/samples/solver/Bennett5.gnumeric
new file mode 100644
index 0000000..f7c18f3
Binary files /dev/null and b/samples/solver/Bennett5.gnumeric differ
diff --git a/samples/solver/BoxBOD.gnumeric b/samples/solver/BoxBOD.gnumeric
new file mode 100644
index 0000000..e45d0ef
Binary files /dev/null and b/samples/solver/BoxBOD.gnumeric differ
diff --git a/samples/solver/Chwirut1.gnumeric b/samples/solver/Chwirut1.gnumeric
new file mode 100644
index 0000000..3d4f2e5
Binary files /dev/null and b/samples/solver/Chwirut1.gnumeric differ
diff --git a/samples/solver/Chwirut2.gnumeric b/samples/solver/Chwirut2.gnumeric
new file mode 100644
index 0000000..85ff7bb
Binary files /dev/null and b/samples/solver/Chwirut2.gnumeric differ
diff --git a/samples/solver/DanWood.gnumeric b/samples/solver/DanWood.gnumeric
new file mode 100644
index 0000000..9ff7df1
Binary files /dev/null and b/samples/solver/DanWood.gnumeric differ
diff --git a/samples/solver/ENSO.gnumeric b/samples/solver/ENSO.gnumeric
new file mode 100644
index 0000000..c230712
Binary files /dev/null and b/samples/solver/ENSO.gnumeric differ
diff --git a/samples/solver/Eckerle4.gnumeric b/samples/solver/Eckerle4.gnumeric
new file mode 100644
index 0000000..4b80004
Binary files /dev/null and b/samples/solver/Eckerle4.gnumeric differ
diff --git a/samples/solver/Gauss1.gnumeric b/samples/solver/Gauss1.gnumeric
new file mode 100644
index 0000000..79401e1
Binary files /dev/null and b/samples/solver/Gauss1.gnumeric differ
diff --git a/samples/solver/Gauss2.gnumeric b/samples/solver/Gauss2.gnumeric
new file mode 100644
index 0000000..179debb
Binary files /dev/null and b/samples/solver/Gauss2.gnumeric differ
diff --git a/samples/solver/Gauss3.gnumeric b/samples/solver/Gauss3.gnumeric
new file mode 100644
index 0000000..70e61ff
Binary files /dev/null and b/samples/solver/Gauss3.gnumeric differ
diff --git a/samples/solver/Hahn1.gnumeric b/samples/solver/Hahn1.gnumeric
new file mode 100644
index 0000000..d1724c1
Binary files /dev/null and b/samples/solver/Hahn1.gnumeric differ
diff --git a/samples/solver/Kirby2.gnumeric b/samples/solver/Kirby2.gnumeric
new file mode 100644
index 0000000..8797e81
Binary files /dev/null and b/samples/solver/Kirby2.gnumeric differ
diff --git a/samples/solver/Lanczos1.gnumeric b/samples/solver/Lanczos1.gnumeric
new file mode 100644
index 0000000..09fa6b2
Binary files /dev/null and b/samples/solver/Lanczos1.gnumeric differ
diff --git a/samples/solver/Lanczos2.gnumeric b/samples/solver/Lanczos2.gnumeric
new file mode 100644
index 0000000..63f2b84
Binary files /dev/null and b/samples/solver/Lanczos2.gnumeric differ
diff --git a/samples/solver/Lanczos3.gnumeric b/samples/solver/Lanczos3.gnumeric
new file mode 100644
index 0000000..85b14b5
Binary files /dev/null and b/samples/solver/Lanczos3.gnumeric differ
diff --git a/samples/solver/MGH09.gnumeric b/samples/solver/MGH09.gnumeric
new file mode 100644
index 0000000..b63f183
Binary files /dev/null and b/samples/solver/MGH09.gnumeric differ
diff --git a/samples/solver/MGH10.gnumeric b/samples/solver/MGH10.gnumeric
new file mode 100644
index 0000000..962737c
Binary files /dev/null and b/samples/solver/MGH10.gnumeric differ
diff --git a/samples/solver/MGH17.gnumeric b/samples/solver/MGH17.gnumeric
new file mode 100644
index 0000000..ed977af
Binary files /dev/null and b/samples/solver/MGH17.gnumeric differ
diff --git a/samples/solver/Misra1a.gnumeric b/samples/solver/Misra1a.gnumeric
new file mode 100644
index 0000000..939de1d
Binary files /dev/null and b/samples/solver/Misra1a.gnumeric differ
diff --git a/samples/solver/Misra1b.gnumeric b/samples/solver/Misra1b.gnumeric
new file mode 100644
index 0000000..bc2d998
Binary files /dev/null and b/samples/solver/Misra1b.gnumeric differ
diff --git a/samples/solver/Misra1c.gnumeric b/samples/solver/Misra1c.gnumeric
new file mode 100644
index 0000000..a0a02c0
Binary files /dev/null and b/samples/solver/Misra1c.gnumeric differ
diff --git a/samples/solver/Misra1d.gnumeric b/samples/solver/Misra1d.gnumeric
new file mode 100644
index 0000000..78c9727
Binary files /dev/null and b/samples/solver/Misra1d.gnumeric differ
diff --git a/samples/solver/Nelson.gnumeric b/samples/solver/Nelson.gnumeric
new file mode 100644
index 0000000..c1d3480
Binary files /dev/null and b/samples/solver/Nelson.gnumeric differ
diff --git a/samples/solver/Rat42.gnumeric b/samples/solver/Rat42.gnumeric
new file mode 100644
index 0000000..930c1f1
Binary files /dev/null and b/samples/solver/Rat42.gnumeric differ
diff --git a/samples/solver/Rat43.gnumeric b/samples/solver/Rat43.gnumeric
new file mode 100644
index 0000000..5867ef2
Binary files /dev/null and b/samples/solver/Rat43.gnumeric differ
diff --git a/samples/solver/Roszman1.gnumeric b/samples/solver/Roszman1.gnumeric
new file mode 100644
index 0000000..d68f9a8
Binary files /dev/null and b/samples/solver/Roszman1.gnumeric differ
diff --git a/samples/solver/Thurber.gnumeric b/samples/solver/Thurber.gnumeric
new file mode 100644
index 0000000..14c244e
Binary files /dev/null and b/samples/solver/Thurber.gnumeric differ
diff --git a/test/Makefile.am b/test/Makefile.am
index f022682..bac4bc6 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -15,6 +15,8 @@
 # 69xx:   Minor formats
 #
 # 7xxx: Features
+# 70xx:   Goal seek
+# 71xx:   Solver
 #
 # 8xxx: Runs with valgrind and similar tools.
 # 80xx:   Valgrind
diff --git a/test/t7110-solver-Misra1a.pl b/test/t7110-solver-Misra1a.pl
new file mode 100755
index 0000000..f39f89e
--- /dev/null
+++ b/test/t7110-solver-Misra1a.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7111-solver-Chwirut2.pl b/test/t7111-solver-Chwirut2.pl
new file mode 100755
index 0000000..3dca58c
--- /dev/null
+++ b/test/t7111-solver-Chwirut2.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7112-solver-Chwirut1.pl b/test/t7112-solver-Chwirut1.pl
new file mode 100755
index 0000000..3a187c1
--- /dev/null
+++ b/test/t7112-solver-Chwirut1.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7113-solver-Lanczos3.pl b/test/t7113-solver-Lanczos3.pl
new file mode 100755
index 0000000..1b3ef79
--- /dev/null
+++ b/test/t7113-solver-Lanczos3.pl
@@ -0,0 +1,18 @@
+#!/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);
+		  });
diff --git a/test/t7114-solver-Gauss1.pl b/test/t7114-solver-Gauss1.pl
new file mode 100755
index 0000000..62be5fa
--- /dev/null
+++ b/test/t7114-solver-Gauss1.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7115-solver-Gauss2.pl b/test/t7115-solver-Gauss2.pl
new file mode 100755
index 0000000..6ed3267
--- /dev/null
+++ b/test/t7115-solver-Gauss2.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7116-solver-DanWood.pl b/test/t7116-solver-DanWood.pl
new file mode 100755
index 0000000..3b6461d
--- /dev/null
+++ b/test/t7116-solver-DanWood.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7116-solver-Misra1b.pl b/test/t7116-solver-Misra1b.pl
new file mode 100755
index 0000000..d5f9325
--- /dev/null
+++ b/test/t7116-solver-Misra1b.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7120-solver-Kirby2.pl b/test/t7120-solver-Kirby2.pl
new file mode 100755
index 0000000..7c99ee5
--- /dev/null
+++ b/test/t7120-solver-Kirby2.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7121-solver-Hahn1.pl b/test/t7121-solver-Hahn1.pl
new file mode 100755
index 0000000..669b41f
--- /dev/null
+++ b/test/t7121-solver-Hahn1.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7122-solver-Nelson.pl b/test/t7122-solver-Nelson.pl
new file mode 100755
index 0000000..e641753
--- /dev/null
+++ b/test/t7122-solver-Nelson.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7123-solver-MGH17.pl b/test/t7123-solver-MGH17.pl
new file mode 100755
index 0000000..32fa109
--- /dev/null
+++ b/test/t7123-solver-MGH17.pl
@@ -0,0 +1,18 @@
+#!/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);
+		  });
diff --git a/test/t7124-solver-Lanczos1.pl b/test/t7124-solver-Lanczos1.pl
new file mode 100755
index 0000000..c723c23
--- /dev/null
+++ b/test/t7124-solver-Lanczos1.pl
@@ -0,0 +1,18 @@
+#!/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);
+		  });
diff --git a/test/t7125-solver-Lanczos2.pl b/test/t7125-solver-Lanczos2.pl
new file mode 100755
index 0000000..c8e42ae
--- /dev/null
+++ b/test/t7125-solver-Lanczos2.pl
@@ -0,0 +1,18 @@
+#!/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);
+		  });
diff --git a/test/t7126-solver-Gauss3.pl b/test/t7126-solver-Gauss3.pl
new file mode 100755
index 0000000..f61cdab
--- /dev/null
+++ b/test/t7126-solver-Gauss3.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7127-solver-Misra1c.pl b/test/t7127-solver-Misra1c.pl
new file mode 100755
index 0000000..98ad48a
--- /dev/null
+++ b/test/t7127-solver-Misra1c.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7128-solver-Misra1d.pl b/test/t7128-solver-Misra1d.pl
new file mode 100755
index 0000000..ef6035d
--- /dev/null
+++ b/test/t7128-solver-Misra1d.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7129-solver-Roszman1.pl b/test/t7129-solver-Roszman1.pl
new file mode 100755
index 0000000..6757fac
--- /dev/null
+++ b/test/t7129-solver-Roszman1.pl
@@ -0,0 +1,18 @@
+#!/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);
+		  });
diff --git a/test/t7130-solver-ENSO.pl b/test/t7130-solver-ENSO.pl
new file mode 100755
index 0000000..76d6dba
--- /dev/null
+++ b/test/t7130-solver-ENSO.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7140-solver-MGH09.pl b/test/t7140-solver-MGH09.pl
new file mode 100755
index 0000000..d748cda
--- /dev/null
+++ b/test/t7140-solver-MGH09.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7141-solver-Thurber.pl b/test/t7141-solver-Thurber.pl
new file mode 100755
index 0000000..262f2fa
--- /dev/null
+++ b/test/t7141-solver-Thurber.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7142-solver-BoxBOD.pl b/test/t7142-solver-BoxBOD.pl
new file mode 100755
index 0000000..b5a7f37
--- /dev/null
+++ b/test/t7142-solver-BoxBOD.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7143-solver-Rat42.pl b/test/t7143-solver-Rat42.pl
new file mode 100755
index 0000000..1161fbe
--- /dev/null
+++ b/test/t7143-solver-Rat42.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7144-solver-MGH10.pl b/test/t7144-solver-MGH10.pl
new file mode 100755
index 0000000..071f566
--- /dev/null
+++ b/test/t7144-solver-MGH10.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7145-solver-Eckerle4.pl b/test/t7145-solver-Eckerle4.pl
new file mode 100755
index 0000000..9b325d0
--- /dev/null
+++ b/test/t7145-solver-Eckerle4.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7146-solver-Rat43.pl b/test/t7146-solver-Rat43.pl
new file mode 100755
index 0000000..49a1378
--- /dev/null
+++ b/test/t7146-solver-Rat43.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
diff --git a/test/t7147-solver-Bennett5.pl b/test/t7147-solver-Bennett5.pl
new file mode 100755
index 0000000..895be90
--- /dev/null
+++ b/test/t7147-solver-Bennett5.pl
@@ -0,0 +1,17 @@
+#!/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);
+		  });
[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]