Единичное тестирование локальных функций (letfn) в Clojure?

Question

Я провел пару лет, выполняя Схему «в тот же день», и теперь изучаю Clojure. Одной из «лучших практик» в Схеме было определение вспомогательных функций внутри родительской функции, что ограничивало их видимость «снаружи». Конечно, тогда TDD не было сделано (или не было!), Поэтому тестирование таких функций не было проблемой.

Я все еще испытываю соблазн структурировать функции Clojure таким образом; то есть, используя letfn для связывания вспомогательных функций в основной функции. Конечно, тестирование таких «локальных» функций проблематично. Я понимаю, что могу определить «частные» функции, но это позволяет видеть видимость в пространстве имен, которое помогает, но не так тонко. Если вы сталкиваетесь с letfn в рамках другой функции, довольно ясно, что эта функция недоступна для общего использования.

Итак, на мой вопрос, можно ли проверить такие локальные функции, и если да, то как? Если нет, то есть ли какое-то соглашение, помогающее в чтении кода, так что ясно, что функция имеет только один вызывающий?

ТИА, Билл

Answer 1

Обычный подход просто положить функции в пространстве имен.

Одним из вариантов является использование метаданных:

user=> (defn ^{::square #(* % %)} cube [x] 
    #_=> (* x ((::square (meta #'cube)) x))) 
#'user/cube 
user=> (meta #'cube) 
{…, :user/square #<user$fn__780 user$fn__780@2e62c3f9>} 
user=> (cube 3) 
27 

Это, конечно, можно написать макрос, чтобы сделать это похорошела.