anchor.diff:  ;;; conjuction with other programs.
   
   ;;; need cleaning up!!!!!!!!!!!!
  +
  +;; Modified by nkmathew
  +;; Original: https://github.com/cmpitg/newlisp-unittest/blob/master/nl-unittest.lsp
  +;;
  +;; Modifications include color changes and the ability to suppress reports on
  +;; passed test cases that forces one to scroll everytime a test case fails when
  +;; running with (UnitTest:run-all 'MAIN)
  +
   (context 'TermColor)
   
   ;;; define some terminal color
  
positive.code:                  (time (if (apply symbol)
                             (inc passed)
                             (inc failed))))
              (println "----------------------------------------------------------------------"))))
  
      ;; make report and colorize if necessary
      (setq counter (+ failed passed))
  
negative.code:       (if (< 0 failed-ass)
            (setq msg-failed (colorize 'fg-light-red msg-failed)))
  
        (when (and *report-failed* (< 0 failed-ass))
          (println "=== Testing " (eval cur-test))
          (println ">>> Total assertions: " total-ass)
          (println "  - " msg-passed)
          (println "  - " msg-failed)
          (println "  - Total time: " time-running "ms")
          (println)
          (println "----------------------------------------------------------------------")
          )
  
        ;; the test case is considered passed only if there's no failure
        (= 0 failed-ass))))
  