[gnumeric] Tests: update amath tests.
- From: Morten Welinder <mortenw src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gnumeric] Tests: update amath tests.
- Date: Thu, 28 Jan 2016 15:06:49 +0000 (UTC)
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]