[gnumeric] Tests: add gsl's tests for complex number functions.



commit ec5b5874bbd690b5133ab92e35e88c18adb0a46c
Author: Morten Welinder <terra gnome org>
Date:   Sat Mar 5 16:05:52 2016 -0500

    Tests: add gsl's tests for complex number functions.

 NEWS                 |    1 +
 samples/gsl.gnumeric |  Bin 0 -> 149778 bytes
 test/Makefile.am     |    1 +
 test/t1014-gsl.pl    |   16 ++++++++++++++++
 4 files changed, 18 insertions(+), 0 deletions(-)
---
diff --git a/NEWS b/NEWS
index 83fdf3a..0b313c2 100644
--- a/NEWS
+++ b/NEWS
@@ -7,6 +7,7 @@ Morten:
        * Add sensitivity report to solver.
        * Fix bounds problem with cplex exporter.
        * Fix IMARCCOSH(1).
+       * Add more tests for complex number evaluation.
 
 --------------------------------------------------------------------------
 Gnumeric 1.12.27
diff --git a/samples/gsl.gnumeric b/samples/gsl.gnumeric
new file mode 100644
index 0000000..3c002ea
Binary files /dev/null and b/samples/gsl.gnumeric differ
diff --git a/test/Makefile.am b/test/Makefile.am
index 4301d03..d96e8f9 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -40,6 +40,7 @@ TESTS =       t1000-statfuns.pl                       \
        t1011-yalta2008.pl                      \
        t1012-burkardt.pl                       \
        t1013-crlibm.pl                         \
+       t1014-gsl.pl                            \
        t1100-chitest.pl                        \
        t1101-ftest.pl                          \
        t1102-ttest.pl                          \
diff --git a/test/t1014-gsl.pl b/test/t1014-gsl.pl
new file mode 100755
index 0000000..6444290
--- /dev/null
+++ b/test/t1014-gsl.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl -w
+# -----------------------------------------------------------------------------
+
+use strict;
+use lib ($0 =~ m|^(.*/)| ? $1 : ".");
+use GnumericTest;
+
+my $file = "gsl.gnumeric";
+&message ("Check that $file evaluates correctly.");
+&test_sheet_calc ("$samples/$file", "C2:F2",
+                 sub {
+                     foreach my $a (split (',')) {
+                         return 0 unless $a > 14.4;
+                     }
+                     return 1;
+                 });


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]