Проверьте карту известных и неизвестных значений ключа с помощью Spec - PullRequest
Новая
       47

Проверьте карту известных и неизвестных значений ключа с помощью Spec

2 голосов
/ 20 ноября 2019

Я хочу создать спецификацию clojure для проверки параметра :multipart запроса http, созданного промежуточным программным обеспечением reitit.ring.middleware.multipart.

Данные составной формы должны содержать конкретные параметры, которые можно проверить с помощью s/keys и любое количество файлов с произвольным именем параметра.

Карта для проверки выглядела бы так: 

           {:visualisation "vis"
            :file-xy       {:filename     "foo.png",
                            :content-type "image/png",
                            :tempfile     "C:\\Temp\\ring-multipart-123.tmp",
                            :size         295281}
            :file-abc      {:filename     "bar.png",
                            :content-type "image/png",
                            :tempfile     "C:\\Temp\\ring-multipart-456.tmp",
                            :size         42}}

Я могу проверить файлы со спецификацией reitit.ring.middleware.multipart/temp-file-part следующим образом: 

    (s/def :multipart/files (s/map-of :multipart/param multipart/temp-file-part))

Собрав все вместе, я придумал спецификацию, которая передает, но она позволяет всем неизвестным параметрам быть либо файлом, либо строкой: 

(s/def :multipart/param keyword?)
(s/def :multipart/visualisation string?)
(s/def :multipart/items (s/map-of :multipart/param (s/or :file multipart/temp-file-part :visualisation string?)))
(s/def :visualisation/files (s/and (s/keys :req-un [:multipart/visualisation])
                                   :multipart/items))

Как определить спецификацию длякарта с определенными ключами и валидатором значения для других ключей?

1 Ответ

0 голосов
/ 21 ноября 2019

Вы можете добавить функцию предиката, чтобы гарантировать, что только одно из значений карты является строкой: 

(s/def :visualisation/files
  (s/and (s/keys :req-un [:multipart/visualisation])
         #(= 1 (count (filter string? (vals %))))
         :multipart/items))

(s/conform :visualisation/files
  {:visualisation "vis"
   :file-xy       {:filename "" :content-type "" :tempfile "" :size 0}})

(s/conform :visualisation/files
  {:visualisation "vis"
   :file-abc      "not valid"
   :file-xy       {:filename "" :content-type "" :tempfile "" :size 0}})

Но универсальная s/or спецификация будет создавать избыточные теги, если вы используете conform 'd output.

Другим вариантом может быть использование двух проверок спецификаций: 

(def data
  {:visualisation "vis"
   :file-xy       {:filename "" :content-type "" :tempfile "" :size 0}})

(s/conform (s/keys :req-un [:multipart/visualisation])
           data)

(s/conform (s/map-of :multipart/param :multipart/temp-file-part)
           (dissoc data :visualisation))

Если вы управляете формой данных или можете изменить их, я бы подумал что-то вродеэто было бы проще для спецификации: 

{:visualisation "foo"
 :files {:file-1 {,,,}
         :file-2 {,,,}}}
...