result-string

circumspec.report.nested

  • (result-string line result)
Given the active line and a result, complete the line with the status
message and colorize appropriately.

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source circumspec/report/nested.clj:67 top

(defn result-string
  "Given the active line and a result, complete the line with the status
   message and colorize appropriately."
  [line result]
  (let [message-depth (inc (count (:context result)))]
    (cond
     (fail? result) (failure-string (str line " FAILED\n" (indent-lines message-depth (default-fail-message result))))
     (error? result) (error-string (str line " ERROR\n" (indent-lines message-depth (default-error-message result))))
     (pending? result) (pending-string (str line " PENDING\n"))
     :default (success-string line)))  )
Vars in circumspec.report.nested/result-string: cond defn let str
Used in 0 other vars

Comments top

No comments for result-string. Log in to add a comment.