-
Notifications
You must be signed in to change notification settings - Fork 128
/
data_fakes.clj
36 lines (33 loc) · 1.84 KB
/
data_fakes.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
(ns ^{:doc "=contains=> prereqisites"}
midje.parsing.2-to-lexical-maps.data-fakes
(:use [utilize.seq :only (separate find-first)]
[midje.util.object-utils :only [object-name]]
[midje.checkers :only [exactly]]
[midje.checking.checkers.defining :only [checker? checker-makers]]
[midje.parsing.1-to-explicit-form.expects :only [expect? up-to-full-expect-form]]
[midje.util.form-utils :only [first-named? translate-zipper map-difference
hash-map-duplicates-ok pred-cond
quoted-list-form? extended-fn?]]
[midje.checking.extended-equality :only [extended-= extended-list-=]]
[midje.parsing.util.file-position :only [user-file-position]]
[midje.util.thread-safe-var-nesting :only [namespace-values-inside-out
with-pushed-namespace-values
with-altered-roots]]
[midje.parsing.util.wrapping :only [with-wrapping-target]]
[midje.util.deprecation :only [deprecate]]
midje.error-handling.validation-errors
midje.error-handling.semi-sweet-validations
[midje.parsing.arrow-symbols]
[clojure.tools.macro :only [macrolet]])
(:require [midje.data.metaconstant :as metaconstant]
[clojure.zip :as zip]
[midje.config :as config]
[midje.parsing.util.fnref :as fnref]
[midje.error-handling.exceptions :as exceptions]
[midje.parsing.lexical-maps :as lexical-maps]
[midje.emission.api :as emit])
(:import midje.data.metaconstant.Metaconstant))
(defn to-lexical-map-form [a-list]
(when-valid a-list
(let [[_ metaconstant arrow contained & overrides] a-list]
(lexical-maps/data-fake metaconstant arrow contained overrides))))