Как отобразить тест на список номеров

Question

У меня есть функция с ошибкой:

user> (-> 42 int-to-bytes bytes-to-int)
42
user> (-> 128 int-to-bytes bytes-to-int)
-128
user> 

похоже, мне нужно обработать переполнение при обратном преобразовании ...

Лучше написать тест, чтобы убедиться, что это никогда не повторится. Этот проект использует clojure.contrib.test-is, поэтому я пишу:

(deftest int-to-bytes-to-int
  (let [lots-of-big-numbers (big-test-numbers)]
    (map #(is (= (-> %
                     int-to-bytes
                     bytes-to-int)
                 %))
         lots-of-big-numbers)))

Это должно быть тестирование при преобразовании в последовательность байтов, и обратно снова получается оригинальный результат в списке 10000 случайных чисел. Выглядит нормально в теории? за исключением того, что ни один из тестов никогда не запускался.

Testing com.cryptovide.miscTest

Ran 23 tests containing 34 assertions.
0 failures, 0 errors.

• почему тесты не запускаются?
• что я могу сделать, чтобы заставить их работать?

Answer 1

dorun + map => doseq

(doseq [x (big-test-numbers)]
  (is (= x (-> x int-to-bytes bytes-to-int))))

Answer 2

Избегайте необходимости писать выражение карты (или дозаq) в целом, используя are для написания теста.

Answer 3

снова укушен ленивым жуком. нужен (dorun по карте :) * румянец *