Commit 3163435e authored by Raymond Toy's avatar Raymond Toy
Browse files

Include true result for tests that signal errors

We want to see the expected value when the test signals an error so we
can easily test implementations against the expected value.
Previously, we'd have to look at the data files to find the expected
value.
parent 481fd7e3
Pipeline #2435 passed with stage
in 4 minutes and 53 seconds
......@@ -1974,7 +1974,7 @@
(ignore-errors (incomplete-gamma-upper a z :normalized-p t))
(if ok
(check-accuracy 300 ok true)
error))
(list error true)))
when result
append (list (list (list k a z) result))))
nil)
......@@ -2007,7 +2007,7 @@
(ignore-errors (incomplete-gamma-lower a z :normalized-p t))
(if ok
(check-accuracy 300 ok true)
error))
(list error true)))
when result
append (list (list (list k a z) result))))
nil)
......@@ -2026,7 +2026,7 @@
(ignore-errors (incomplete-gamma-upper a z))
(if ok
(check-accuracy 188.07 ok true)
error)))
(list error true))))
when result
append (list (list (list k a z) result))))
......@@ -2045,7 +2045,7 @@
(ignore-errors (incomplete-gamma-upper a z :normalized-p t))
(if ok
(check-accuracy 500 ok true)
error)))
(list error true))))
when result
append (list (list (list k a z) result))))
......@@ -2064,7 +2064,7 @@
(ignore-errors (incomplete-gamma-lower a z))
(if ok
(check-accuracy 188.07 ok true)
error)))
(list error true))))
when result
append (list (list (list k a z) result))))
......@@ -2083,7 +2083,7 @@
(ignore-errors (incomplete-gamma-lower a z :normalized-p t))
(if ok
(check-accuracy 500 ok true)
error)))
(list error true))))
when result
append (list (list (list k a z) result))))
......
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