Suppress errors if the 'tput' command doesn't exist

aw · Apr 8, 2015 · 69fe093 · 69fe093
1 parent 02151db
commit 69fe093
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 5 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+## 0.6.1 (2015-04-08)
+
+  * Suppress errors if the 'tput' command doesn't exist
+
 ## 0.6.0 (2015-04-05)
 
   * Move test reporters to their own directory

diff --git a/module.l b/module.l
@@ -1,6 +1,6 @@
 [de MODULE_INFO
   ("name"       "unit")
-  ("version"    "0.6.0")
+  ("version"    "0.6.1")
   ("summary"    "Unit Testing framework for PicoLisp")
   ("source"     "https://github.com/aw/picolisp-unit.git")
   ("author"     "Alexander Williams")

diff --git a/unit.l b/unit.l
@@ -44,10 +44,11 @@
 
 # reporter
 [de colour (Colour)
-  (cond ((assoc (lowc Colour) *Colours) (call 'tput "setaf" (cdr @)))
-        ((= (lowc Colour) "bold")       (call 'tput "bold"))
-        (T                              (call 'tput "sgr0")) )
-  NIL ]
+  (err "/dev/null"
+    (cond ((assoc (lowc Colour) *Colours) (call 'tput "setaf" (cdr @)))
+          ((= (lowc Colour) "bold")       (call 'tput "bold"))
+          (T                              (call 'tput "sgr0")) )
+    NIL ]
 
 [de plural? (String)
   (when (not (= (length String) 1)) "s") ]