Changeset 102 for trunk

Timestamp:

09/27/10 19:35:17 (20 months ago)

Author:

mgalloy

Message:

MGUNIT now uses color output if it can determine if the terminal is a TTY.

Files:

• trunk/src/mgunit.pro (modified) (3 diffs)

trunk/src/mgunit.pro

@@ -1 +1 @@
 ; docformat = 'rst'
+
+;+
+; Determines if the current terminal is a TTY, calling `MG_TERMISTTY` safely
+; even if cmdline_tools is not installed or built.
+;
+; :Returns: 
+;    1 if current term is a TTY, 0 if not
+;-
+function mgunit_findIfTty
+  compile_opt strictarr, hidden
+  
+  catch, error
+  if (error ne 0L) then begin
+    catch, /cancel
+    return, 0
+  endif
+
+  return, mg_termIsTty()
+end
+
 
 ;+
@@ -43 +63 @@
     else: runnerName = 'MgutCliRunner'
   endcase
-    
+  
+  _color = keyword_set(color) || mgunit_findIfTty()
+help, color, mgunit_findIfTty(), _color
+
   if (n_elements(tests) gt 0) then begin
     testRunner = obj_new('MGutCompoundRunner')
@@ -55 +78 @@
 
     testRunner->add, obj_new(runnerName, parent=testRunner, $
-                             filename=filename, color=color, $
+                             filename=filename, color=_color, $
                              test_suite=testsuite)