Re-enable kaocha.plugin.alpha/spec-test-check

src/github_changelog/conventional.clj

@@ -109,7 +109,7 @@
       pulls
       (conj pulls pull))))
 
-(defn parse-changes [config {:keys [pulls] :as tag}]
+(defn ^:no-gen parse-changes [config {:keys [pulls] :as tag}]
   (->> (map (partial parse-pull config) pulls)
        (remove nil?)
        (reduce filter-reverted [])

src/github_changelog/core.clj

@@ -26,7 +26,7 @@
 (defn map-commits [tags git-repo]
   (map (partial assoc-commits git-repo) tags))
 
-(defn load-tags [config]
+(defn ^:no-gen load-tags [config]
   (let [git-repo (git/init config)
         prefix   (get config :tag-prefix "v")]
     (-> (git/tags git-repo)
@@ -40,7 +40,7 @@
 (defn find-pull [pulls sha]
   (first (filter #(= (github/get-sha %) sha) pulls)))
 
-(defn assoc-pulls [pulls {:keys [commits] :as tag}]
+(defn ^:no-gen assoc-pulls [pulls {:keys [commits] :as tag}]
   (->> commits
        (map (partial find-pull pulls))
        (remove nil?)
@@ -50,17 +50,16 @@
   :args (s/cat :pulls (s/* ::github/pull) :tag ::core-spec/tag)
   :ret ::core-spec/tag-with-pulls)
 
-(defn collect-tags [config]
+(defn ^:no-gen collect-tags [config]
   (let [pulls (github/fetch-pulls config)]
     (->> (load-tags config)
          (map (partial assoc-pulls pulls)))))
 
 (s/fdef collect-tags
-  :args (s/cat :config ::config/confg-map)
+  :args (s/cat :config ::config/config-map)
   :ret (s/* ::core-spec/tag-with-pulls))
 
-
-(defn changelog
+(defn ^:no-gen changelog
   "Fetches the changelog"
   [config]
   (->> (collect-tags config)

src/github_changelog/git.clj

@@ -83,7 +83,7 @@
       (split-lines)
       (first)))
 
-(defn commits [dir from until]
+(defn ^:no-gen commits [dir from until]
   (let [commit (format "%s..%s"
                        (or from (initial-commit dir))
                        (or until "HEAD"))]

src/github_changelog/semver.clj

@@ -10,9 +10,13 @@
     pre-release (str "-" pre-release)
     build (str "+" build)))
 
-(s/def ::major nat-int?)
-(s/def ::minor nat-int?)
-(s/def ::patch nat-int?)
+(def nat-int (s/with-gen
+               nat-int?
+               #(gen/int)))
+
+(s/def ::major nat-int)
+(s/def ::minor nat-int)
+(s/def ::patch nat-int)
 
 (s/def ::pre-release (s/with-gen
                        (s/nilable ::spec/non-blank-string)
@@ -45,6 +49,7 @@
 (def valid? semver/valid?)
 
 (s/fdef valid?
+  :args (s/cat :v any?)
   :ret boolean?)
 
 (defn parse [version]
@@ -93,10 +98,10 @@
 
 (def overrides
   {::major       #(s/gen pos-int?)
-   ::minor       #(s/gen zero?)
-   ::patch       #(s/gen zero?)
-   ::pre-release #(s/gen nil?)
-   ::build       #(s/gen nil?)})
+   ::minor       #(gen/return 0)
+   ::patch       #(gen/return 0)
+   ::pre-release #(gen/return nil)
+   ::build       #(gen/return nil)})
 
 (defn- version-gen [overrides]
   #(s/gen ::version overrides))
@@ -130,6 +135,8 @@
   (s/exercise ::version-string)
   (s/exercise ::version)
 
+  (s/exercise ::major)
+
   (s/exercise ::major-version)
   (s/exercise ::minor-version)
   (s/exercise ::patch-version)

tests.edn

@@ -2,4 +2,4 @@
 {:plugins [:kaocha.plugin/profiling
            :kaocha.plugin/print-invocations
            :kaocha.plugin/cloverage
-           #_:kaocha.plugin.alpha/spec-test-check]}
+           :kaocha.plugin.alpha/spec-test-check]}