diff --git a/tests/fast-fourier-transform.lisp b/tests/fast-fourier-transform.lisp index 4981f339c7fb66327d44c3af6f9b59f0439bd1ce..40209dacb0127737508134a4d0f9cb71f336ace7 100644 --- a/tests/fast-fourier-transform.lisp +++ b/tests/fast-fourier-transform.lisp @@ -37,7 +37,7 @@ (loop with size = (size vector) for i from 0 below size unless (zerop (mod i stride)) - unless (lisp-unit:assert-numerical-equal + unless (lisp-unit:numerical-equal (complex (+ offset (* 2 i)) (+ offset (* 2 i) 1)) (grid:gref vector i)) @@ -57,9 +57,9 @@ '+dbl-epsilon+))) (lisp-unit:*measure* :infinity)) (when (> ,stride 1) - (fft-complex-off-stride-check fft ,stride 2000) - (fft-complex-off-stride-check fft-roundtrip ,stride 0) - (fft-complex-off-stride-check fft-reverse ,stride 2000) + (lisp-unit:assert-true (fft-complex-off-stride-check fft ,stride 2000)) + (lisp-unit:assert-true (fft-complex-off-stride-check fft-roundtrip ,stride 0)) + (lisp-unit:assert-true (fft-complex-off-stride-check fft-reverse ,stride 2000)) (setf dft (grid:stride dft ,stride) fft (grid:stride fft ,stride) original (grid:stride original ,stride)