使用Plumatic Sc​​hema生成器从正则表达式生成

Question

正则表达式似乎是可接受的模式：

(require '[schema.core :as schema])

(schema/validate #"^..$" "hi") ; => "hi"

但架构生成器似乎无法从它们生成：

(require '[schema-generators.generators :as gen])

(gen/generate #"^..$")
; 1. Unhandled java.lang.RuntimeException
;    You must provide a leaf generator for
;    schema.spec.leaf.LeafSpec@3d398cfd

是否有可能以某种方式解决这个问题？

Answer 1

如果我们使用miner/strgen库，我们确实可以找到解决方案：

(require '[schema.core  :as schema]
         '[miner.strgen :as strgen]
         '[schema-generators.generators :as gen])

(def two-char #"^..$")
(schema/validate two-char "hi") ; => "hi"

(gen/generate two-char {two-char (strgen/string-generator #"^..$")})
; => "x["

虽然应该注意，这只是为正则表达式中的正则表达式#"^..$"提供了一个生成器而不是正则表达式。我们需要一个更好的解决方案，或许在某个地方扩展一些协议。