Changeset 29 for trunk

Timestamp:

03/06/09 13:15:28 (3 years ago)

Author:

mgalloy

Message:

Using MG_ANSICODES when it is available.

Files:

• trunk/mgunit/src/mgutclirunner__define.pro (modified) (5 diffs)

trunk/mgunit/src/mgutclirunner__define.pro

@@ -3 +3 @@
 ;+
 ; Results for tests, test cases, and test suites are reported to the test 
-; runner. The MGtestCliRunner displays the results in the output log or in a 
+; runner. The MGutCliRunner displays the results in the output log or in a 
 ; log file.
 ;-
@@ -47 +47 @@
 ; :Keywords:
 ;    npass : in, required, type=integer 
-;          number of passing tests contained in the hierarchy below the test 
-;          suite
+;       number of passing tests contained in the hierarchy below the test 
+;       suite
 ;    nfail : in, required, type=integer
 ;       number of failing tests contained in the hierarchy below the test 
@@ -144 +144 @@
 
   if (passed) then begin
-    printf, self.logLun, 'passed'
+    self->_print, self.logLun, 'passed', /green
   endif else begin
-    printf, self.logLun, 'failed' + (msg eq '' ? '' : ' "' + msg + '"')
+    self->_print, self.logLun, 'failed' + (msg eq '' ? '' : ' "' + msg + '"'), /red
   endelse
+end
+
+
+;+
+; Prints a message to a LUN.
+;
+; :Params:
+;    lun : in, required, type=long
+;       logical unit number to print to
+;    text : in, required, type=string
+;       text to print
+;
+; :Keywords:
+;    _extra : in, optional, type=keywords
+;       keywords to MG_ANSICODE i.e. RED or GREEN
+;-
+pro mgutclirunner::_print, lun, text, _extra=e
+  compile_opt strictarr
+  
+  if (self.isTty) then begin
+    printf, lun, mg_ansicode(text, _extra=e)
+  endif else begin
+    printf, lun, text
+  endelse
+end
+
+
+;+
+; Safe method of determining if the current terminal is TTY.
+;
+; :Returns:
+;    1 if the terminal is TTY, 0 if not
+;-
+function mgutclirunner::_findIfTty
+  compile_opt strictarr
+  
+  catch, error
+  if (error ne 0L) then begin
+    catch, /cancel
+    return, 0
+  endif
+  
+  return, mg_termIsTty()
 end
 
@@ -193 +236 @@
   self.indent = 3L
   self.space = (byte(' '))[0]
-
+  self.isTty = self->_findIfTty()
+  
   !quiet = 1
   return, 1B
@@ -216 +260 @@
              logLun : 0L, $
              indent : 0L, $
-             space : 0B $
+             space : 0B, $
+             isTty: 0B $
            }
 end