From c3d967c1ed0b08f7e2f3e0f4f6a53efd4c68970a Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Tue, 5 Sep 2017 20:40:19 -0700 Subject: [PATCH] Make test fail to see how pipeline works. --- tests/trig.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/trig.lisp b/tests/trig.lisp index 84fc74c1a..a979ca813 100644 --- a/tests/trig.lisp +++ b/tests/trig.lisp @@ -16,7 +16,7 @@ (define-test sin.very-small "Tests sin for the case of |x| < 2^-27, but not 0." (:tag :sin) - (assert-eql (scale-float 1d0 -28) + (assert-eql (scale-float 1d0 -27) (sin (scale-float 1d0 -28)))) (define-test sin.no-reduction -- GitLab