How to check Clojure, macro specs?

See also questions close to this topic

• Clojure: Filter files with a specific ext but not folders folder

  I am new to Clojure.
  I have a Clojure app, which exposes log directory on http/s. But unfortunately there are some other files in this same dir. I need to filter files with .log* extensions only.

  We had the following code:

  (defn get-dir-listing [dir]
    (map #(get-all-attribs %) (fs/list-dir dir)))
  
  (defn get-all-attribs [fpath]
  {:type    (if (fs/directory? fpath)
              "Directory"
              "File")
   :name    (.getName fpath)
   :modtime (-> (fs/mod-time fpath)
                time/from-long)
   :size    (-> (fs/size fpath)
                get-size-in-KB)
  })
  

  I changed it to the following:

  (defn get-dir-listing [dir]
    (map #(get-dirs-log-files-only %) (fs/list-dir dir)))
  
  (defn get-dirs-log-files-only [fpath]
   (if (and (not (fs/directory? fpath)) (.contains (.getName fpath) ".log"))
      (get-all-attribs fpath)
  
    (if (fs/directory? fpath)
       (get-all-attribs fpath))))
  
  (defn get-all-attribs [fpath]
  {:type    (if (fs/directory? fpath)
              "Directory"
              "File")
   :name    (.getName fpath)
   :modtime (-> (fs/mod-time fpath)
                time/from-long)
   :size    (-> (fs/size fpath)
                get-size-in-KB)
  })
  
  ;To remove nil
  (remove nil? (get-dir-listing "C:\\tmp"))
  

  Does anyone have a better way to resolve it?
• How to replace the last instance of a substring within a quoted expression

  Say I have some quoted expression

  '(b (a (c 1 3) 2))

  where I would like to replace the last parenthesis with some value,

  '(b (a (c 1 3) 2) e)

  What is the best way to do this? should I first convert it to a string then flip it, then apply replace-first then flip it back? or is there a more efficient way to accomplish this?
• quick way to apply hash-map to anonymous function in clojure

  My question is whether given a hashmap

  (def my-map {'x 1 'y 2 'z})

  I can apply it to an anonymous function,

  (fn [x y z] (+ x (* y z))

  so that the arguments match the keys in the map, somthing like

  (apply-ish my-map (fn [x y z] (+ x (* y z)))

  Is there an easy fix to this problem? I feel like there is but I cant figure it out.
• Macros to run for mutiple workbooks

  I have multiple workbook on same type and i have placed in one folder.I want to run one macro for that folder
• Common Lisp Compile and Load Directory

  I am wondering how I can re-compile and load all .lisp files in a certain directory. I have modified a macro that is heavily used by all the files in that directory. Hence, it would be most efficient to just re-compile and re-load the entire thing.

  If it helps, I am doing this on Allegro, but am curious about the same for SBCL.
• Code::Blocks can you @brief a macro definition?

  When using variables declared in libraries i observed that some of them have a description shown when the autocomplete window pops up. If you have, for example, this code:

  /** This variable stores the number of apples i have. */
  int Apples;
  

  After the declaration of Apples, when i type App the autocomplete window shows the Apple variable and beneath it, the description typed above.

  Now i ask if it is possible to have the same behaviour for a macro definition.

  I tried it with the code below, however it only shows the macro value.

  /** The maximum number of apples a person can have.*/
  #define MAX_APPLES 255
  
• Get just the test data for a spec'd function

  Is there a way for me to generate just the test data for a function previously spec'd with fdef? In other words I would like to have the functionality of check but up to just generating a number of argument sets for me, not running the function and checking the outputs are correct.

  Alternatively, if it's possible to lookup the argument (:args) spec of a function then this would achieve the same goal as I could then make a generator from it.
• Is this a bug? NullPointerException when trying to generate from s/or spec which includes nil

  I found a way to throw NullPointerExceptions by generating values using an s/or spec. I want to be able to generate and label a nil value, no s/nilable isn't suitable.

  Is this a bug in clojure.spec?

  (ns blah
    (:require [clojure.spec.alpha :as s])) 
  
  (s/def ::fine (s/or :int int? :nil nil?)
  (s/def ::throws (s/or :int (s/int-in 1 5) :zero zero? :nil nil?)
  
  (s/exercise ::fine)
  =>
  ([nil [:nil nil]
   [-1 [:int -1]]
   [nil [:nil nil]]
   [0 [:int 0]]
   [nil [:nil nil]]
   [15 [:int 15]]
   [-25 [:int -25]]
   [nil [:nil nil]]
   [-2 [:int -2]]
   [-30 [:int -30]]])]])
  
  (s/exercise ::throws)
  =>
  NullPointerException   clojure.lang.Numbers.ops (Numbers.java:1018)
  

  If you limit the number of times ::throws is exercised, you see correct :int and :zero values, it's the :nil which throws.
• How to generate the same value for two different paths in spec?

  I'm trying to learn how to use overrides with s/gen.

  I have a ::parent map which contains a ::child map. Both parent and child have keys in common. The requirement is that the keys have the same value between parent and child, e.g. {:a 1 :b 2 :child {:a 1 :b 2}. I know this seems redundant, but the problem domain requires it.

  The code below generates examples, but the requirement above is not met.

  Is there a way to use the same generated value in two locations?

  (ns blah
    (:require [clojure.spec.alpha :as s]
              [clojure.spec.gen.alpha :as gen])) 
  
  (s/def ::a (s/int-in 1 5))
  (s/def ::b (s/int-in 1 6))
  
  (s/def ::child
    (s/keys :req-un [::a ::b]))
  
  (defn- parent-gen []
    (let [a #(s/gen ::a)
          b #(s/gen ::b)]
      (s/gen ::parent-nogen
             ; overrides map follows
             {::a a ::b b
              ::child #(s/gen ::child
                              ; another overrides map
                              {::a a ::b b})))
  
  (s/def ::parent-nogen
    (s/keys :req-un [::a ::b ::child]))
  
  (s/def ::parent
    (s/with-gen ::parent-nogen parent-gen))
  
  (gen/sample (s/gen ::parent))
  
• How to make sure clojure generator generates all the given values in a collection instead of it picking up a random value?

  Hello Clojure experts..!,

  I want to create a generative test and make sure my test runs for all the test inputs that i want to run.

  Example: Below are my test inputs which i want to run for all five samples against my test case

  (gen/elements ["clojure" "haskell" "erlang" "scala" "python"])

  When i use: (gen/one-of (gen/elements ["clojure" "haskell" "erlang" "scala" "python"]), it can pick one element randomly but not guaranteed that it picks all my samples and test my function under test.

      (ns spec.gen-test.explore
      (:require [clojure.test                    :refer :all]
                [clojure.spec                    :as spec]
                [clojure.test.check.generators   :as gen]
                [clojure.test.check.properties   :as prop :include-macros true]
                [clojure.test.check.clojure-test :refer [defspec]]))
  (def languages-set #{"clojure" "haskell" "erlang" "scala" "python"})
  
  (spec/def ::jvm-languages 
    (spec/and string?
      languages-set))
  
  ;;Generative test case for jvm-languages spec:
  (defspec jvm-languages-generative-test
     5
    (prop/for-all [language (gen/elements ["clojure" "haskell" "erlang" "scala" "python"])]
                  (println "Testing for language:" language)
                  (spec/valid? ::jvm-languages language)))
  (run-tests)
  
  Output: 
  #'spec.gen-test.explore/jvm-languages-generative-test
  Testing for language: scala
  Testing for language: haskell
  Testing for language: erlang
  Testing for language: erlang
  Testing for language: scala
  {:result true, :num-tests 5, :seed 1533232724897, :test-var "jvm-languages-generative-test"}
  

  Is there a way that i can ask clojure to test my function under test with all the samples that i want to test with?
• Why is my Scalacheck test with a custom Generator failing after discarding many cases, and how do I fix this?

  I am a newbie with Scala and I am writing my first Scalacheck suite.

  I have a data structure in my program that essentially looks like a (List[Double], List[Double]) which is well-formed only if each element of _1 is strictly greater than the corresponding element of _2.

  Since it's slightly more complicated in practice (although for the purpose of this MWE we can pretend there's all there is to it), I've written a custom generator for it.

  I then added two trivial tests (including the most trivial of all, 1 == 1) and in both cases the tests fail, with the messageGave up after only XX passed tests. YYY tests were discarded.

  Why is it, and how do I fix it?

  Attached is my test suite and the output.

  ---

  package com.foo.bar
  
  import org.scalacheck._
  import Prop._
  import Arbitrary._
  
  object FooSpecification extends Properties("FooIntervals") {
  
    type FooIntervals = (List[Double], List[Double])
  
    /* This is supposed to be a tuple of lists s.t. each element of _1
     *  is < the corresponding element of _2
     * 
     *  e.g. (List(1,3,5), List(2,4,6))
     */
  
    implicit def arbInterval : Arbitrary[FooIntervals] =
      Arbitrary {
        /**
          * Yields a pair (low, high) s.t. low < high
          */
        def GenPair : Gen[(Double, Double)] = for {
          low <- arbitrary[Double]
          high <- arbitrary[Double].suchThat(_ > low)
        } yield (low, high)
  
        /**
          * Yields (List(x_1,...,x_n), List(y_1,...,y_n))
          * where x_i < y_i forall i and 1 <= n < 20
          */
        for {
          n <- Gen.choose(1,20)
          pairs : List[(Double, Double)] <- Gen.containerOfN[List, (Double, Double)](n, GenPair)
        } yield ((pairs.unzip._1, pairs.unzip._2))
      }
  
    property("1 == 1") = forAll {
      (b1: FooIntervals)
      =>
      1 == 1
    }
  
    property("_1.head < _2.head") = forAll {
      (b1: FooIntervals)
      =>
      b1._1.head < b1._2.head
    }
  }
  

  ---

  [info] ! FooIntervals.1 == 1: Gave up after only 32 passed tests. 501 tests were discarded.
  [info] ! FooIntervals._1.head < _2.head: Gave up after only 28 passed tests. 501 tests were discarded.
  [info] ScalaTest
  [info] Run completed in 1 second, 519 milliseconds.
  [info] Total number of tests run: 0
  [info] Suites: completed 0, aborted 0
  [info] Tests: succeeded 0, failed 0, canceled 0, ignored 0, pending 0
  [info] No tests were executed.
  [error] Failed: Total 1, Failed 1, Errors 0, Passed 0
  [error] Failed tests:
  [error]     com.foo.bar.FooSpecification