generate-assert.clj

;; original
(defn left-s [s length]
  (subs s 0 (if (< length 0) (+ length (count s)) length)))

;; generates assert-equal everytime it's called
(defn left-s [s length]
  (let [rvalue
    (subs s 0 (if (< length 0) (+ length (count s)) length))]
    (println "\n(assert-equal" (pr-str rvalue) "(left-s" (pr-str s) length "))")
    rvalue))