|
135 | 135 | floor-min (fn [v] (if (nil? v) min-int (max min-int v)))
|
136 | 136 | {^Period mn :min ^Period mx :max ^Period gen-min :gen/min ^Period gen-max :gen/max}
|
137 | 137 | (merge
|
138 |
| - (m/type-properties schema options) |
139 |
| - (m/properties schema options)) |
| 138 | + (m/type-properties schema options) |
| 139 | + (m/properties schema options)) |
140 | 140 | _ (when (and mn gen-min (not (pos? (time/compare-periods gen-min min))))
|
141 | 141 | (m/-fail! ::mg/invalid-property {:key :gen/min, :value gen-min, :min min}))
|
142 |
| - _ (when (and mx gen-max (not (pos? (time/compare-periods max gen-max)))) |
| 142 | + _ (when (and mx gen-max (not (pos? (time/compare-periods max gen-max)))) |
143 | 143 | (m/-fail! ::mg/invalid-property {:key :gen/max, :value gen-min, :max min}))
|
144 | 144 | mn (or mn gen-min)
|
145 | 145 | mx (or mx gen-max)
|
146 |
| - min-years (when mn (zero->nil (.getYears mn))), max-years (when mx (zero->nil (.getYears mx))) |
| 146 | + min-years (when mn (zero->nil (.getYears mn))), max-years (when mx (zero->nil (.getYears mx))) |
147 | 147 | min-months (when mn (zero->nil (.getMonths mn))), max-months (when mx (zero->nil (.getMonths mx)))
|
148 |
| - min-days (when mn (zero->nil (.getDays mn))), max-days (when mx (zero->nil (.getDays mx)))] |
| 148 | + min-days (when mn (zero->nil (.getDays mn))), max-days (when mx (zero->nil (.getDays mx)))] |
149 | 149 | (->>
|
150 |
| - (gen/tuple |
151 |
| - ;; Period constructor only accepts java type `int` not `long`, clamp the values |
152 |
| - (gen/large-integer* {:min (floor-min min-years) :max (ceil-max max-years)}) |
153 |
| - (gen/large-integer* {:min (floor-min min-months) :max (ceil-max max-months)}) |
154 |
| - (gen/large-integer* {:min (floor-min min-days) :max (ceil-max max-days)})) |
155 |
| - (gen/fmap (fn [[years months days]] |
156 |
| - (. Period of years months days)))))) |
| 150 | + (gen/tuple |
| 151 | + ;; Period constructor only accepts java type `int` not `long`, clamp the values |
| 152 | + (gen/large-integer* {:min (floor-min min-years) :max (ceil-max max-years)}) |
| 153 | + (gen/large-integer* {:min (floor-min min-months) :max (ceil-max max-months)}) |
| 154 | + (gen/large-integer* {:min (floor-min min-days) :max (ceil-max max-days)})) |
| 155 | + (gen/fmap (fn [[years months days]] |
| 156 | + (. Period of years months days)))))) |
0 commit comments