added github pages support
This commit is contained in:
didier amyot committed
1 parent
b14ebdbf63
commit
6ed638a1cc
373 files changed
+185436
-2343
No files matched your search
File diff suppressed because it is too large.
Load diff
@@ -0,0 +1 @@
|
||||
{:rename-macros {}, :renames {}, :externs {Error {}, goog {string {StringBuffer {prototype {append {}}}}}}, :use-macros {}, :excludes #{cat * or merge keys + and def}, :name cljs.spec.alpha, :imports nil, :requires {cljs.core cljs.core, gobj goog.object, goog.object goog.object, walk clojure.walk, gen cljs.spec.gen.alpha, c cljs.core, str clojure.string, clojure.string clojure.string, clojure.walk clojure.walk, cljs.spec.gen.alpha cljs.spec.gen.alpha}, :cljs.spec/speced-vars [], :uses nil, :defs {form {:protocol-inline nil, :meta {:file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :line 162, :column 7, :end-line 162, :end-column 11, :arglists (quote ([spec])), :doc "returns the spec as data"}, :name cljs.spec.alpha/form, :variadic false, :file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :end-column 11, :method-params ([spec]), :protocol-impl nil, :arglists-meta (nil nil), :column 1, :line 162, :end-line 162, :max-fixed-arity 1, :fn-var true, :arglists (quote ([spec])), :doc "returns the spec as data"}, nilable-impl {:protocol-inline nil, :meta {:file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :line 1360, :column 19, :end-line 1360, :end-column 31, :skip-wiki true, :arglists (quote ([form pred gfn])), :doc "Do not call this directly, use 'nilable'"}, :name cljs.spec.alpha/nilable-impl, :variadic false, :file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :end-column 31, :method-params ([form pred gfn]), :protocol-impl nil, :skip-wiki true, :arglists-meta (nil nil), :column 1, :line 1360, :end-line 1360, :max-fixed-arity 3, :fn-var true, :arglists (quote ([form pred gfn])), :doc "Do not call this directly, use 'nilable'"}, *recursion-limit* {:meta {:file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :line 21, :column 16, :end-line 21, :end-column 33, :dynamic true}, :name cljs.spec.alpha/*recursion-limit*, :file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :end-column 33, :column 1, :dynamic true, :line 21, :end-line 21, :tag number, :doc "A soft limit on how many times a branching spec (or/alt/*/opt-keys/multi-spec)\n can be recursed through during generation. After this a\n non-recursive branch will be chosen."}, *coll-error-limit* {:meta {:file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :line 35, :column 16, :end-line 35, :end-column 34, :dynamic true}, :name cljs.spec.alpha/*coll-error-limit*, :file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :end-column 34, :column 1, :dynamic true, :line 35, :end-line 35, :tag number, :doc "The number of errors reported by explain in a collection spec'ed with 'every'"}, explain-printer {:protocol-inline nil, :meta {:file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :line 216, :column 7, :end-line 216, :end-column 22, :arglists (quote ([ed])), :doc "Default printer for explain-data. nil indicates a successful validation."}, :name cljs.spec.alpha/explain-printer, :variadic false, :file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :end-column 22, :method-params ([ed]), :protocol-impl nil, :arglists-meta (nil nil), :column 1, :line 216, :end-line 216, :max-fixed-arity 1, :fn-var true, :arglists (quote ([ed])), :doc "Default printer for explain-data. nil indicates a successful validation."}, op-explain {:protocol-inline nil, :meta {:file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :line 1112, :column 8, :end-line 1112, :end-column 18, :private true, :arglists (quote ([form p path via in input]))}, :private true, :name cljs.spec.alpha/op-explain, :variadic false, :file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :end-column 18, :method-params ([form p path via in input]), :protocol-impl nil, :arglists-meta (nil nil), :column 1, :line 1112, :end-line 1112, :max-fixed-arity 6, :fn-var true, :arglists (quote ([form p path via in input]))}, Specize {:meta {:file "file:/home/didier/.m2/repository/org/clojure/clojurescript/1.9.946/clojurescript-1.9.946.jar!/cljs/spec/alpha.cljs", :line 123, :column 14, :end-line 123, :end-column 21, :doc nil, :protocol-symbol true, :jsdoc ("@interface"), :protocol-info {:methods {specize* [[_] [_ form]]}}}, :protocol-symbol true, :name cljs.spec.alpha/Specize, :file "file:/home/didLine truncated
|
||||
File diff suppressed because it is too large.
Load diff
@@ -0,0 +1 @@
|
||||
{"version":3,"file":"\/home\/didier\/clojupyter\/website\/target\/cljsbuild\/public\/js\/out\/cljs\/spec\/alpha.js","sources":["alpha.cljs?rel=1517021948405"],"lineCount":5561,"mappings":";AAQA;;;;;;;AAUA,0BAAA,1BAAaA;AAEb;;;;;8CAAA,9CAAeC;AAMf;;;+CAAA,\/CAAeC;AAIf;;;+CAAA,\/CAAeC;AAIf;;;+CAAA,\/CAAeC;AAIf,AAAA;AAAA;;;uBAAA,vBAAaW;;AAAb,gCAAA,hCACGC,wEAAUC,KAAKC;AADlB,AAAA,GAAA,CAAA,EAAA,SAAA,YAAA,EAAA,CAAA,mDAAA,1EACaD,uBAAAA;AADb,OACaA,gDAAAA,KAAKC;;AADlB,IAAAb,mBAAA,EAAA,SAAA,OAAA,fACaY,oBAAAA;IADbX,mBAAA,CAAAC,8BAAA,AAAAC,YAAAH;AAAA,AAAA,GAAA,EAAA,CAAAC,oBAAA;AAAA,OAAAA,2BACaW,KAAKC;;AADlB,IAAAZ,uBAAA,CAAAC,8BAAA;AAAA,AAAA,GAAA,EAAA,CAAAD,wBAAA;AAAA,OAAAA,+BACaW,KAAKC;;AADlB,MAAA,AAAAT,qCAAA,gBACaQ;;;;;;AADb,+BAAA,\/BAEGE,sEAASF,KAAKG;AAFjB,AAAA,GAAA,CAAA,EAAA,SAAA,YAAA,EAAA,CAAA,kDAAA,zEAEYH,uBAAAA;AAFZ,OAEYA,+CAAAA,KAAKG;;AAFjB,IAAAf,mBAAA,EAAA,SAAA,OAAA,fAEYY,oBAAAA;IAFZX,mBAAA,CAAAI,6BAAA,AAAAF,YAAAH;AAAA,AAAA,GAAA,EAAA,CAAAC,oBAAA;AAAA,OAAAA,2BAEYW,KAAKG;;AAFjB,IAAAd,uBAAA,CAAAI,6BAAA;AAAA,AAAA,GAAA,EAAA,CAAAJ,wBAAA;AAAA,OAAAA,+BAEYW,KAAKG;;AAFjB,MAAA,AAAAX,qCAAA,eAEYQ;;;;;;AAFZ,gCAAA,hCAGGI,wEAAUJ,KAAKK,KAAKC,IAAIC,IAAGN;AAH9B,AAAA,GAAA,CAAA,EAAA,SAAA,YAAA,EAAA,CAAA,mDAAA,1EAGaD,uBAAAA;AAHb,OAGaA,gDAAAA,KAAKK,KAAKC,IAAIC,IAAGN;;AAH9B,IAAAb,mBAAA,EAAA,SAAA,OAAA,fAGaY,oBAAAA;IAHbX,mBAAA,CAAAK,8BAAA,AAAAH,YAAAH;AAAA,AAAA,GAAA,EAAA,CAAAC,oBAAA;AAAA,OAAAA,2BAGaW,KAAKK,KAAKC,IAAIC,IAAGN;;AAH9B,IAAAZ,uBAAA,CAAAK,8BAAA;AAAA,AAAA,GAAA,EAAA,CAAAL,wBAAA;AAAA,OAAAA,+BAGaW,KAAKK,KAAKC,IAAIC,IAAGN;;AAH9B,MAAA,AAAAT,qCAAA,gBAGaQ;;;;;;AAHb,4BAAA,5BAIGQ,gEAAMR,KAAKS,UAAUJ,KAAKK;AAJ7B,AAAA,GAAA,CAAA,EAAA,SAAA,YAAA,EAAA,CAAA,+CAAA,tEAISV,uBAAAA;AAJT,OAISA,4CAAAA,KAAKS,UAAUJ,KAAKK;;AAJ7B,IAAAtB,mBAAA,EAAA,SAAA,OAAA,fAISY,oBAAAA;IAJTX,mBAAA,CAAAM,0BAAA,AAAAJ,YAAAH;AAAA,AAAA,GAAA,EAAA,CAAAC,oBAAA;AAAA,OAAAA,2BAISW,KAAKS,UAAUJ,KAAKK;;AAJ7B,IAAArB,uBAAA,CAAAM,0BAAA;AAAA,AAAA,GAAA,EAAA,CAAAN,wBAAA;AAAA,OAAAA,+BAISW,KAAKS,UAAUJ,KAAKK;;AAJ7B,MAAA,AAAAlB,qCAAA,YAISQ;;;;;;AAJT,iCAAA,jCAKGW,0EAAWX,KAAKY;AALnB,AAAA,GAAA,CAAA,EAAA,SAAA,YAAA,EAAA,CAAA,oDAAA,3EAKcZ,uBAAAA;AALd,OAKcA,iDAAAA,KAAKY;;AALnB,IAAAxB,mBAAA,EAAA,SAAA,OAAA,fAKcY,oBAAAA;IALdX,mBAAA,CAAAO,+BAAA,AAAAL,YAAAH;AAAA,AAAA,GAAA,EAAA,CAAAC,oBAAA;AAAA,OAAAA,2BAKcW,KAAKY;;AALnB,IAAAvB,uBAAA,CAAAO,+BAAA;AAAA,AAAA,GAAA,EAAA,CAAAP,wBAAA;AAAA,OAAAA,+BAKcW,KAAKY;;AALnB,MAAA,AAAApB,qCAAA,iBAKcQ;;;;;;AALd,iCAAA,jCAMGa,0EAAWb;AANd,AAAA,GAAA,CAAA,EAAA,SAAA,YAAA,EAAA,CAAA,oDAAA,3EAMcA,uBAAAA;AANd,OAMcA,iDAAAA;;AANd,IAAAZ,mBAAA,EAAA,SAAA,OAAA,fAMcY,oBAAAA;IANdX,mBAAA,CAAAQ,+BAAA,AAAAN,YAAAH;AAAA,AAAA,GAAA,EAAA,CAAAC,oBAAA;AAAA,OAAAA,2BAMcW;;AANd,IAAAX,uBAAA,CAAAQ,+BAAA;AAAA,AAAA,GAAA,EAAA,CAAAR,wBAAA;AAAA,OAAAA,+BAMcW;;AANd,MAAA,AAAAR,qCAAA,iBAMcQ;;;;;;AANd,AAQA,GAAA,OAAmBc;AAAnB;AAAA,AAAA,AAAmBA,+BAAa,yBAAA,zBAACC;;AAEjC,+BAAA,\/BAAOC,sEAAcC,IAAIC;AAAzB,AACE,IAAOlB,OAAKkB;;AAAZ,AACE,GAAI,AAACC,iCAAOnB;AACV,eAAO,AAACoB,wBAAIH,IAAIjB;;;;AAChBA;;;;;AAEN;;;8BAAA,9BAAOqB,oEAEJH;AAFH,AAGE,GAAI,AAACC,iCAAOD;AACV,UAAA,AAAAI,NAAML,gCAAKH;IACLd,OAAK,AAACoB,wBAAIH,IAAIC;AADpB,AAEE,GAAA,EAAQ,AAACC,iCAAOnB;AACdA;;AACA,OAACgB,uCAAaC,IAAIjB;;;AACtBkB;;;AAEJ;;;oCAAA,pCAAOK,gFAEJL;AAFH,AAGE,GAAI,AAACC,iCAAOD;AACV,IAAAM,oBAAM,AAACH,sCAAYH;AAAnB,AAAA,oBAAAM;AAAAA;;AACM,MAAO,KAAAC,MAAW,CAAA,uEAAgCP;;;AACxDA;;;AAEJ;;;8BAAA,9BAAMQ,oEAEHzB;AAFH,AAGE,GAAM,EAAA,EAAA,MAAA,QAAA,EAAA,CAAA,WAAA,CAAA0B,gCAAA,2BAAA,KAAA,OAAA,nGAAkB1B,4DAAAA;AAAxB,AACEA;;AADF;;;AAGF;;;+BAAA,\/BAAM2B,sEAEH3B;AAFH,AAGE,IAAA4B,qBAAO,AAAA,6GAAM5B;AAAb,AAAA,oBAAA4B;AAAgB5B;;AAAhB4B;;;AAEF,4BAAA,5BAAOC,gEAAW9B,KAAK+B;AAAvB,AACE,GACC,AAACZ,iCAAOnB;AAAMA;;AADf,oBAEC,AAAC4B,uCAAO5B;AAAM,sCAAA,\/BAACgC,0BAAMhC,sFAAY+B;;AAFlC,GAIC,EAAA,EAAA,SAAA,QAAA,EAAA,CAAA,CAAA,2CAAA,eAAA,CAAAJ,gCAAA,yBAAA,KAAA,OAAA,pJAAmB3B,oBAAAA,2FAAAA;AACnB,OAACiC,8BAAUjC,KAAK,yDAAA,zDAACgC,0BAAM,AAACE,yBAAKlC,uFAAa+B;;AAL3C;;;;;AAOF,4BAAA,5BAAOI,gEAAWnC;AAAlB,AACE,GACC,AAACmB,iCAAOnB;AAAMA;;AADf,oBAGC,AAAC4B,uCAAO5B;AAAM,OAAA,+GAAQA;;AAHvB,GAKC,EAAA,EAAA,SAAA,QAAA,EAAA,CAAA,CAAA,2CAAA,eAAA,CAAA2B,gCAAA,yBAAA,KAAA,OAAA,pJAAmB3B,oBAAAA,2FAAAA;AACnB,OAAA,+GAAI,AAACkC,yBAAKlC;;AANX;;;;;AAQF,AAAA,AACA,AAAA,AAEA;;;6BAAA,7BAAOoC,kEAEJC;AAFH,AAGE,IAAMC,IAAE,iBAAAd,oBAAM,iBAAAK,qBAAO,AAACV,iCAAOkB;AAAf,AAAA,GAAAR;AAA0B,OAACR,sCAAYgB;;AAAvCR;;;AAAN,AAAA,oBAAAL;AAAAA;;AAAA,IAAAA,wBACM,AAACE,sCAAMW;AADb,AAAA,oBAAAb;AAAAA;;AAAA,IAAAA,wBAEM,AAACI,uCAAOS;AAFd,AAAA,oBAAAb;AAAAA;;AAAA;;;;;AAAR,AAIE,oBAAI,AAACI,uCAAOU;AACV,OAACR,oCAAU,4CAAA,5CAACS,0CAAgBD,QAAO,AAACH,oCAAUG;;AAC9CA;;;AAEN;;;2BAAA,3BAAOE,8DAEJH;AAFH,AAGE,IAAAb,oBAAM,AAACY,qCAAWC;AAAlB,AAAA,oBAAAb;AAAAA;;AACM,GAAM,AAACL,iCAAOkB;AAAd,AACE,MAAO,KAAAZ,MAAW,CAAA,uEAAgCY;;AADpD;;;;AAGR,AAAA;AAAA;;;0BAAA,1BAAaQ;;AAAb,AAAA,gCAAA,wCAAAJ,xEACGE;AADH,AAAA,IAAAD,WAAA,AAAA;AAAA,AAAA,QAAAA;KAAA;AAAA,OAAAC,4DAAA,CAAA,UAAA;;;KAAA;AAAA,OAAAA,4DAAA,CAAA,UAAA,MAAA,CAAA,UAAA;;;;AAAA,MAAA,KAAAlB,MAAA,CAAA,8DAAA,AAAA;;;;;AAAA,AAAA,8DAAA,9DACGkB,yEAAUG;AADb,AAAA,GAAA,CAAA,EAAA,MAAA,YAAA,EAAA,CAAA,mDAAA,vEACaA,oBAAAA;AADb,OACaA,gDAAAA;;ALine truncated
|
||||
@@ -0,0 +1,180 @@
|
||||
; Copyright (c) Rich Hickey. All rights reserved.
|
||||
; The use and distribution terms for this software are covered by the
|
||||
; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
|
||||
; which can be found in the file epl-v10.html at the root of this distribution.
|
||||
; By using this software in any fashion, you are agreeing to be bound by
|
||||
; the terms of this license.
|
||||
; You must not remove this notice, or any other, from this software.
|
||||
|
||||
(ns cljs.spec.gen.alpha
|
||||
(:refer-clojure :exclude [boolean cat hash-map list map not-empty set vector
|
||||
char double int keyword symbol string uuid delay])
|
||||
(:require-macros [cljs.core :as c]
|
||||
[cljs.spec.gen.alpha :as gen :refer [dynaload lazy-combinators lazy-prims]])
|
||||
(:require [cljs.core :as c]))
|
||||
|
||||
(deftype LazyVar [f ^:mutable cached]
|
||||
IDeref
|
||||
(-deref [this]
|
||||
(if-not (nil? cached)
|
||||
cached
|
||||
(let [x (f)]
|
||||
(when-not (nil? x)
|
||||
(set! cached x))
|
||||
x))))
|
||||
|
||||
(def ^:private quick-check-ref
|
||||
(dynaload 'clojure.test.check/quick-check))
|
||||
|
||||
(defn quick-check
|
||||
[& args]
|
||||
(apply @quick-check-ref args))
|
||||
|
||||
(def ^:private for-all*-ref
|
||||
(dynaload 'clojure.test.check.properties/for-all*))
|
||||
|
||||
(defn for-all*
|
||||
"Dynamically loaded clojure.test.check.properties/for-all*."
|
||||
[& args]
|
||||
(apply @for-all*-ref args))
|
||||
|
||||
(let [g? (dynaload 'clojure.test.check.generators/generator?)
|
||||
g (dynaload 'clojure.test.check.generators/generate)
|
||||
mkg (dynaload 'clojure.test.check.generators/->Generator)]
|
||||
(defn- generator?
|
||||
[x]
|
||||
(@g? x))
|
||||
(defn- generator
|
||||
[gfn]
|
||||
(@mkg gfn))
|
||||
(defn generate
|
||||
"Generate a single value using generator."
|
||||
[generator]
|
||||
(@g generator)))
|
||||
|
||||
(defn ^:skip-wiki delay-impl
|
||||
[gfnd]
|
||||
;;N.B. depends on test.check impl details
|
||||
(generator (fn [rnd size]
|
||||
((:gen @gfnd) rnd size))))
|
||||
|
||||
;(defn gen-for-name
|
||||
; "Dynamically loads test.check generator named s."
|
||||
; [s]
|
||||
; (let [g (dynaload s)]
|
||||
; (if (generator? g)
|
||||
; g
|
||||
; (throw (js/Error. (str "Var " s " is not a generator"))))))
|
||||
|
||||
(lazy-combinators hash-map list map not-empty set vector vector-distinct fmap elements
|
||||
bind choose one-of such-that tuple sample return
|
||||
large-integer* double* frequency)
|
||||
|
||||
(lazy-prims any any-printable boolean char char-alpha char-alphanumeric char-ascii double
|
||||
int keyword keyword-ns large-integer ratio simple-type simple-type-printable
|
||||
string string-ascii string-alphanumeric symbol symbol-ns uuid)
|
||||
|
||||
(defn cat
|
||||
"Returns a generator of a sequence catenated from results of
|
||||
gens, each of which should generate something sequential."
|
||||
[& gens]
|
||||
(fmap #(apply concat %)
|
||||
(apply tuple gens)))
|
||||
|
||||
(defn- ^boolean qualified? [ident] (not (nil? (namespace ident))))
|
||||
|
||||
(def ^:private
|
||||
gen-builtins
|
||||
(c/delay
|
||||
(let [simple (simple-type-printable)]
|
||||
{any? (one-of [(return nil) (any-printable)])
|
||||
number? (one-of [(large-integer) (double)])
|
||||
integer? (large-integer)
|
||||
int? (large-integer)
|
||||
pos-int? (large-integer* {:min 1})
|
||||
neg-int? (large-integer* {:max -1})
|
||||
nat-int? (large-integer* {:min 0})
|
||||
float? (double)
|
||||
double? (double)
|
||||
string? (string-alphanumeric)
|
||||
ident? (one-of [(keyword-ns) (symbol-ns)])
|
||||
simple-ident? (one-of [(keyword) (symbol)])
|
||||
qualified-ident? (such-that qualified? (one-of [(keyword-ns) (symbol-ns)]))
|
||||
keyword? (keyword-ns)
|
||||
simple-keyword? (keyword)
|
||||
qualified-keyword? (such-that qualified? (keyword-ns))
|
||||
symbol? (symbol-ns)
|
||||
simple-symbol? (symbol)
|
||||
qualified-symbol? (such-that qualified? (symbol-ns))
|
||||
uuid? (uuid)
|
||||
inst? (fmap #(js/Date. %)
|
||||
(large-integer))
|
||||
seqable? (one-of [(return nil)
|
||||
(list simple)
|
||||
(vector simple)
|
||||
(map simple simple)
|
||||
(set simple)
|
||||
(string-alphanumeric)])
|
||||
indexed? (vector simple)
|
||||
map? (map simple simple)
|
||||
vector? (vector simple)
|
||||
list? (list simple)
|
||||
seq? (list simple)
|
||||
char? (char)
|
||||
set? (set simple)
|
||||
nil? (return nil)
|
||||
false? (return false)
|
||||
true? (return true)
|
||||
boolean? (boolean)
|
||||
zero? (return 0)
|
||||
;rational? (one-of [(large-integer) (ratio)])
|
||||
coll? (one-of [(map simple simple)
|
||||
(list simple)
|
||||
(vector simple)
|
||||
(set simple)])
|
||||
empty? (elements [nil '() [] {} #{}])
|
||||
associative? (one-of [(map simple simple) (vector simple)])
|
||||
sequential? (one-of [(list simple) (vector simple)])
|
||||
;ratio? (such-that ratio? (ratio))
|
||||
})))
|
||||
|
||||
(defn gen-for-pred
|
||||
"Given a predicate, returns a built-in generator if one exists."
|
||||
[pred]
|
||||
(if (set? pred)
|
||||
(elements pred)
|
||||
(get @gen-builtins pred)))
|
||||
|
||||
(comment
|
||||
(require 'clojure.test.check)
|
||||
(require 'clojure.test.check.properties)
|
||||
(require 'cljs.spec.gen)
|
||||
(in-ns 'cljs.spec.gen)
|
||||
|
||||
;; combinators, see call to lazy-combinators above for complete list
|
||||
(generate (one-of [(gen-for-pred integer?) (gen-for-pred string?)]))
|
||||
(generate (such-that #(< 10000 %) (gen-for-pred integer?)))
|
||||
(let [reqs {:a (gen-for-pred number?)
|
||||
:b (gen-for-pred keyword?)}
|
||||
opts {:c (gen-for-pred string?)}]
|
||||
(generate (bind (choose 0 (count opts))
|
||||
#(let [args (concat (seq reqs) (shuffle (seq opts)))]
|
||||
(->> args
|
||||
(take (+ % (count reqs)))
|
||||
(mapcat identity)
|
||||
(apply hash-map))))))
|
||||
(generate (cat (list (gen-for-pred string?))
|
||||
(list (gen-for-pred integer?))))
|
||||
|
||||
;; load your own generator
|
||||
;(gen-for-name 'clojure.test.check.generators/int)
|
||||
|
||||
;; failure modes
|
||||
;(gen-for-name 'unqualified)
|
||||
;(gen-for-name 'clojure.core/+)
|
||||
;(gen-for-name 'clojure.core/name-does-not-exist)
|
||||
;(gen-for-name 'ns.does.not.exist/f)
|
||||
|
||||
)
|
||||
|
||||
|
||||
@@ -0,0 +1 @@
|
||||
{:rename-macros {}, :renames {}, :externs {Error {}, Date {}}, :use-macros {lazy-prims cljs.spec.gen.alpha, dynaload cljs.spec.gen.alpha, lazy-combinators cljs.spec.gen.alpha}, :excludes #{uuid set boolean map delay char cat double int symbol string vector not-empty list keyword hash-map}, :name cljs.spec.gen.alpha, :imports nil, :requires {c cljs.core, cljs.core cljs.core}, :cljs.spec/speced-vars [], :uses nil, :defs {uuid {:protocol-inline nil, :meta {:file "/home/didier/clojupyter/website/target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :line 75, :column 60, :end-line 75, :end-column 64, :arglists (quote ([& args])), :doc "Fn returning clojure.test.check.generators/uuid", :top-fn {:variadic true, :max-fixed-arity 0, :method-params [(args)], :arglists ([& args]), :arglists-meta (nil)}}, :name cljs.spec.gen.alpha/uuid, :variadic true, :file "target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :end-column 64, :top-fn {:variadic true, :max-fixed-arity 0, :method-params [(args)], :arglists ([& args]), :arglists-meta (nil)}, :method-params [(args)], :protocol-impl nil, :arglists-meta (nil), :column 1, :line 73, :end-line 75, :max-fixed-arity 0, :fn-var true, :arglists ([& args]), :doc "Fn returning clojure.test.check.generators/uuid"}, gen-for-pred {:protocol-inline nil, :meta {:file "/home/didier/clojupyter/website/target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :line 141, :column 7, :end-line 141, :end-column 19, :arglists (quote ([pred])), :doc "Given a predicate, returns a built-in generator if one exists."}, :name cljs.spec.gen.alpha/gen-for-pred, :variadic false, :file "target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :end-column 19, :method-params ([pred]), :protocol-impl nil, :arglists-meta (nil nil), :column 1, :line 141, :end-line 141, :max-fixed-arity 1, :fn-var true, :arglists (quote ([pred])), :doc "Given a predicate, returns a built-in generator if one exists."}, set {:protocol-inline nil, :meta {:file "/home/didier/clojupyter/website/target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :line 69, :column 47, :end-line 69, :end-column 50, :arglists (quote ([& args])), :doc "Lazy loaded version of clojure.test.check.generators/set", :top-fn {:variadic true, :max-fixed-arity 0, :method-params [(args)], :arglists ([& args]), :arglists-meta (nil)}}, :name cljs.spec.gen.alpha/set, :variadic true, :file "target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :end-column 50, :top-fn {:variadic true, :max-fixed-arity 0, :method-params [(args)], :arglists ([& args]), :arglists-meta (nil)}, :method-params [(args)], :protocol-impl nil, :arglists-meta (nil), :column 1, :line 69, :end-line 69, :max-fixed-arity 0, :fn-var true, :arglists ([& args]), :doc "Lazy loaded version of clojure.test.check.generators/set"}, one-of {:protocol-inline nil, :meta {:file "/home/didier/clojupyter/website/target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :line 70, :column 15, :end-line 70, :end-column 21, :arglists (quote ([& args])), :doc "Lazy loaded version of clojure.test.check.generators/one-of", :top-fn {:variadic true, :max-fixed-arity 0, :method-params [(args)], :arglists ([& args]), :arglists-meta (nil)}}, :name cljs.spec.gen.alpha/one-of, :variadic true, :file "target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :end-column 21, :top-fn {:variadic true, :max-fixed-arity 0, :method-params [(args)], :arglists ([& args]), :arglists-meta (nil)}, :method-params [(args)], :protocol-impl nil, :arglists-meta (nil), :column 1, :line 69, :end-line 70, :max-fixed-arity 0, :fn-var true, :arglists ([& args]), :doc "Lazy loaded version of clojure.test.check.generators/one-of"}, any-printable {:protocol-inline nil, :meta {:file "/home/didier/clojupyter/website/target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :line 73, :column 17, :end-line 73, :end-column 30, :arglists (quote ([& args])), :doc "Fn returning clojure.test.check.generators/any-printable", :top-fn {:variadic true, :max-fixed-arity 0, :method-params [(args)], :arglists ([& args]), :arglists-meta (nil)}}, :name cljs.spec.gen.alpha/any-printable, :variadic true, :file "target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :end-column 30, :top-fn {:variadic true, :max-fixed-arity 0, :method-params [(args)], :arglists ([& args]), :arglists-meta (nil)}, :method-params [(args)], :protocol-impl nil, :arglists-meta (nil), :column 1, :line 73, :end-line 73, :max-fixed-arity 0, :fn-var true, :arglists ([& args]), :doc "Fn returning clojure.test.check.generators/any-printable"}, vector-distinct {:protocol-inline nil, :meta {:file "/home/didier/clojupyter/website/target/cljsbuild/public/js/out/cljs/spec/gen/alpha.cljs", :line 69, :column 58, :end-line 69, :end-column 73, :arglists (quote ([& args])), :doc "Lazy loaded version of clojure.test.check.generators/vector-distinct", :top-fn {:variadic true, :max-fixed-arity 0, :method-params [(args)], :arglists ([& args]), :arglists-meta (nil)}}, :name cljs.spec.gen.alphaLine truncated
|
||||
File diff suppressed because it is too large.
Load diff
@@ -0,0 +1 @@
|
||||
{"version":3,"file":"\/home\/didier\/clojupyter\/website\/target\/cljsbuild\/public\/js\/out\/cljs\/spec\/gen\/alpha.js","sources":["alpha.cljs?rel=1517021947631"],"lineCount":2111,"mappings":";AAQA;;;AAOA,AAAA;;;;;;;;;;;AAAA,AAAA,AAAA,AAAA,wEAAA,xEAASI,mFAEEI;;AAFX,AAAA,gBAAA,ZAEWA;AAFX,AAGI,GAAA,EAAQ,kBAAA,jBAAMD;AACZA;;AACA,IAAME,IAAE,AAACH;AAAT,AACE,GAAU,MAAA,LAAMG;AAAhB;AAAA,AACE,AAAMF,gBAAOE;;;AACfA;;;;AARR,AAAA,uCAAA,vCAASL;AAAT,AAAA,0FAAA,iDAAA,oBAAA,8DAAA,2CAAA,0DAAA;;;AAAA,AAAA,6CAAA,7CAASA;;AAAT,AAAA,gDAAA,hDAASA;;AAAT,AAAA,qDAAA,WAAAJ,oBAAAC,sBAAAC,1GAASE;AAAT,AAAA,OAAAD,2BAAAF,sBAAA;;;AAAA,mCAAA,nCAASI,8EAASC,EAAYC;AAA9B,AAAA,YAAAH,4BAAkBE,EAAYC;;;AAArBH,AAUT,AAAeM,sCACb,KAAAN,4BAAA;AAAA,AAAA,GAAA,CAAA,OAAAO,kCAAA,OAAWG;AAAAA;;AAAX,MAAA,KAAAF,MAAA,CAAA,mDAAA,2GAAA,gEAAA,AAAAC,8BAAA,4GAAA;;GAAA;AAEF,AAAA,kCAAA,0CAAAE,5EAAMM;AAAN,AAAA,IAAAL,sBAAA;AAAA,AAAA,IAAAC,2BAAA,AAAA;AAAA,AAAA,IAAAC,yBAAA;;AAAA,AAAA,GAAA,CAAAA,yBAAAD;AAAA,AAAA,AAAAD,yBAAA,CAAA,UAAAE;;AAAA,eAAA,CAAAA,yBAAA;;;;AAAA;;;;AAAA,IAAAC,wBAAA,EAAA,CAAA,MAAA,AAAAH,6BAAA,AAAA,KAAAI,qBAAA,AAAAJ,0BAAA,KAAA,IAAA,OAAA;AAAA,AAAA,OAAAK,qEAAAF;;;AAAA,AAAA,AAAA,AAAAE,uEAAA,WACKG;AADL,AAEE,iCAAA,AAAAC,1BAACC,oDAAOhB,qCAAgBc;;;AAF1B,AAAA,AAAAH,0DAAA;;AAAA,AAAA,AAAAA,oDAAA,WAAAC;AAAA,AAAA,OAAAD,qEAAA,AAAAE,wBAAAD;;;AAAA,AAIA,AAAeK,wCACb,KAAAvB,4BAAA;AAAA,AAAA,GAAA,CAAA,OAAAO,kCAAA,OAAAiB,wCAAA,OAAWC;AAAAA;;AAAX,MAAA,KAAAjB,MAAA,CAAA,mDAAA,yHAAA,gEAAA,AAAAC,8BAAA,0HAAA;;GAAA;AAEF,AAAA;;;oCAAA,4CAAAE,hFAAMe;AAAN,AAAA,IAAAd,sBAAA;AAAA,AAAA,IAAAC,2BAAA,AAAA;AAAA,AAAA,IAAAC,yBAAA;;AAAA,AAAA,GAAA,CAAAA,yBAAAD;AAAA,AAAA,AAAAD,yBAAA,CAAA,UAAAE;;AAAA,eAAA,CAAAA,yBAAA;;;;AAAA;;;;AAAA,IAAAC,wBAAA,EAAA,CAAA,MAAA,AAAAH,6BAAA,AAAA,KAAAI,qBAAA,AAAAJ,0BAAA,KAAA,IAAA,OAAA;AAAA,AAAA,OAAAc,uEAAAX;;;AAAA,AAAA,AAAA,AAAAW,yEAAA,WAEKN;AAFL,AAGE,iCAAA,AAAAC,1BAACC,oDAAOC,uCAAaH;;;AAHvB,AAAA,AAAAM,4DAAA;;AAAA,AAAA,AAAAA,sDAAA,WAAAC;AAAA,AAAA,OAAAD,uEAAA,AAAAP,wBAAAQ;;;AAAA,AAKA,IAAMC,iBAAG,KAAA5B,4BAAA;AAAA,AAAA,GAAA,CAAA,OAAAO,kCAAA,OAAAiB,wCAAA,OAAWK;AAAAA;;AAAX,MAAA,KAAArB,MAAA,CAAA,mDAAA,gIAAA,gEAAA,AAAAC,8BAAA,iIAAA;;GAAA;IACHqB,UAAE,KAAA9B,4BAAA;;AAAA,AAAA,GAAA,CAAA,OAAAO,kCAAA,OAAAiB,wCAAA,OAAWO;AAAAA;;AAAX,MAAA,KAAAvB,MAAA,CAAA,mDAAA,2HAAA,gEAAA,AAAAC,8BAAA,4HAAA;;;CAAA;IACFuB,YAAI,KAAAhC,4BAAA;;AAAA,AAAA,GAAA,CAAA,OAAAO,kCAAA,OAAAiB,wCAAA,OAAWS;AAAAA;;AAAX,MAAA,KAAAzB,MAAA,CAAA,mDAAA,kIAAA,gEAAA,AAAAC,8BAAA,mIAAA;;;CAAA;AAFV,AAGE,uCAAA,vCAAOyB;sDACJ7B;AADH,AAEE,OAAA,AAAAgB,0BAAEO,0BAAGvB;;;;AACP,gCAAA,hCAAO8B;+CACJC;AADH,AAEE,OAAA,AAAAf,0BAAEW,qBAAII;;;;AACR;;;+BAAA,\/BAAMC;8CAEHC;AAFH,AAGE,OAAA,AAAAjB,0BAAES,mBAAEQ;;;AAER,iCAAA,jCAAkBC,0EACfC;AADH,AAGE,OAACL,wCAAU,WAAKM,IAAIC;AAAT,AACE,OAAC,AAAA,gFAAA,AAAArB,0BAAOmB,iBAAMC,IAAIC;;;AAUjC,AAAA,IAAAC,yBAAA,KAAA3C,4BAAA;AAAA,AAAA,GAAA,CAAA,OAAAO,kCAAA,OAAAiB,wCAAA,OAAAoB;AAAAA;;AAAA,MAAA,KAAApC,MAAA,CAAA,mDAAA,2HAAA,gEAAA,AAAAC,8BAAA,4HAAA;;GAAA;AAAA,AAAA,AAAA;;;+BAAA,\/BAAkBoC;8CAAlBlC;AAAA,AAAA,IAAAC,sBAAA;AAAA,AAAA,IAAAC,2BAAA,AAAA;AAAA,AAAA,IAAAC,yBAAA;;AAAA,AAAA,GAAA,CAAAA,yBAAAD;AAAA,AAAA,AAAAD,yBAAA,CAAA,UAAAE;;AAAA,eAAA,CAAAA,yBAAA;;;;AAAA;;;;AAAA,IAAAC,wBAAA,EAAA,CAAA,MAAA,AAAAH,6BAAA,AAAA,KAAAI,qBAAA,AAAAJ,0BAAA,KAAA,IAAA,OAAA;AAAA,AAAA,OAAAiC,kEAAA9B;;;;AAAA,AAAA,AAAA,AAAA8B,oEAAA;kBAAAzB;AAAA,AAAA,OAAAE,0BAAA,AAAAD,0BAAAsB,wBAAAvB;;;;AAAA,AAAA,AAAAyB,uDAAA;;AAAA,AAAA,AAAAA,iDAAA;kBAAAC;AAAA,AAAA,OAAAD,kEAAA,AAAA1B,wBAAA2B;;;;AAAA;AAAA,IAAAH,yBAAA,KAAA3C,4BAAA;AAAA,AAAA,GAAA,CAAA,OAAAO,kCAAA,OAAAiB,wCAAA,OAAAuB;AAAAA;;AAAA,MAAA,KAAAvC,MAAA,CAAA,mDAAA,kHAAA,gEAAA,AAAAC,8BAAA,mHAAA;;GAAA;AAAA,AAAA,AAAA;;;2BAAA,3BAA2BuC;0CAA3BrC;AAAA,AAAA,IAAAC,sBAAA;AAAA,AAAA,IAAAC,2BAAA,AAAA;AAAA,AAAA,IAAAC,yBAAA;;AAAA,AAAA,GAAA,CAAAA,yBAAAD;AAAA,AAAA,AAAAD,yBAAA,CAAA,UAAAE;;AAAA,eAAA,CAAAA,yBAAA;;;;AAAA;;;;AAAA,IAAAC,wBAAA,EAAA,CAAA,MAAA,AAAAH,6BAAA,AAAA,KAAAI,qBAAA,AAAAJ,0BAAA,KAAA,IAAA,OAAA;AAAA,AAAA,OAAAoC,8DAAAjC;;;;AAAA,AAAA,AAAA,AAAAiC,gEAAA;kBAAA5B;AAAA,AAAA,OAAAE,0BAAA,AAAAD,0BAAAsB,wBAAAvB;;;;AAAA,AAAA,AAAA4B,mDAAA;;AAAA,AAAA,AAAAA,6CAAA;kBAAAC;AAAA,AAAA,OAAAD,8DAAA,AAAA7B,wBAAA8B;;;;AAAA;AAAA,IAAAN,yBAAA,KAAA3C,4BAAA;AAAA,AAAA,GAAA,CAAA,OAAAO,kCAAA,OAAAiB,wCAAA,OAAA0B;AAAAA;;AAAA,MAAA,KAAA1C,MAAA,CAAA,mDAAA,+GAAA,gEAAA,AAAAC,8BAAA,gHAAA;;GAAA;AAAA,AAAA,AAAA;;;0BAAA,1BAAgC0C;yCAAhCxC;AAAA,AAAA,IAAAC,sBAAA;AAAA,AAAA,IAAAC,2BAAA,AAAA;AAAA,AAAA,IAAAC,yBAAA;;AAAA,AAAA,GAAA,CAAAA,yBAAAD;AAAA,AAAA,AAAAD,yBAAA,CAAA,UAAAE;;AAAA,eAAA,CAAAA,yBAAA;;;;AAAA;;;;AAAA,IAAAC,wBAAA,EAAA,CAAA,MAAA,AAAAH,6BAAA,AAAA,KAAAI,qBAAA,AAAAJ,0BAAA,KAAA,IAAA,OAAA;AAAA,AAAA,OAAAuC,6DAAApC;;;;AAAA,AAAA,AAAA,AAAAoC,+DAAA;kBAAA\/B;AAAA,AAAA,OAAAE,0BAAA,AAAAD,0BAAAsB,wBAAAvB;;;;AAAA,AAAA,AAAA+B,kDAAA;;AAAA,AAAA,AAAAA,4CAAA;kBAAAC;AAAA,AAAA,OAAAD,6DAAA,AAAAhC,wBAAAiC;;;;AAAA;AAAA,IAAAT,yBAAA,KAAA3C,4BAAA;AAAA,AAAA,GAAA,CAAA,OAAAO,kCAAA,OAAAiB,wCAAA,OAAA6B;AAAAA;;AAAA,MAAA,KAAA7C,MAAA,CAAA,mDAAA,6HAAA,gEAAA,AAAAC,8BAAA,8HAAA;;GAAA;AAAA,AAAA,AAAA;;;gCAAA,hCAAoC6C;+CAApC3C;AAAA,AAAA,IAAAC,sBAAA;AAAA,AAAA,IAAAC,2BAAA,AAAA;AAAA,AAAA,IAAAC,yBAAA;;AAAA,Line truncated
|
||||
Reference in new issue
Block a user