[gnumeric] Tests: update amath tests.



commit 85dc14afbef8731dbd1265d15529a96491eb332a
Author: Morten Welinder <terra gnome org>
Date:   Thu Jan 28 10:06:27 2016 -0500

    Tests: update amath tests.

 samples/amath.gnumeric |  Bin 46306 -> 46705 bytes
 tools/process-amath.pl |    5 ++++-
 2 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/samples/amath.gnumeric b/samples/amath.gnumeric
index 16ba260..08fbbd0 100644
Binary files a/samples/amath.gnumeric and b/samples/amath.gnumeric differ
diff --git a/tools/process-amath.pl b/tools/process-amath.pl
index db9e826..61f9110 100755
--- a/tools/process-amath.pl
+++ b/tools/process-amath.pl
@@ -134,6 +134,9 @@ my %invalid_tests =
      'besselj(13.323691936314223032,1)' => 1,
      'bessely(13.36109747387276348,0)' => 1,
      'bessely(14.89744212833672538,1)' => 1,
+
+     # Overflow, not zero
+     'bessely(1.5,-1700.5)' => 1,
     );
 
 sub def_expr_handler {
@@ -232,7 +235,7 @@ sub output_test {
     my ($gfunc,$expr,$res) = @_;
 
     my $gfunc0 = ($gfunc eq $last_func) ? '' : $gfunc;
-    $res = "=$res" if $res =~ m{/};
+    $res = "=$res" if $res =~ m{[*/]};
 
     my $N = 1 + @test_lines;
     push @test_lines, 
"\"$gfunc0\",\"=$expr\",\"$res\",\"=IF(B$N=C$N,\"\"\"\",IF(C$N=0,-LOG10(ABS(B$N)),-LOG10(ABS((B$N-C$N)/C$N))))\"";


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