Commit 35e5e370 authored by Sumant Oemrawsingh's avatar Sumant Oemrawsingh
Browse files

Changed off-stride checks to be only one assertion

Previously, each element that was checked off-stride would count as an
assertion.
parent e8e48977
......@@ -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)
......
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