Changeset 79

Show
Ignore:
Timestamp:
01/19/10 12:06:01 (2 years ago)
Author:
mgalloy
Message:

XML output ready for testing.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/mgunit/src/mgutxmlrunner__define.pro

    r78 r79  
    135135  compile_opt strictarr 
    136136 
    137   result = keyword_set(passed) ? 'passed' : 'failed' 
    138  
    139   indent = level eq 0L ? '' : string(bytarr(2 * level) + 32B) 
    140   msg = string(indent, format='(%"%s</test>")') 
    141   self->_print, self.lun, msg 
     137  indent = level eq 0L ? '' : string(bytarr(2 * level) + 32B) 
     138   
     139  if (~keyword_set(passed)) then begin 
     140    _msg = string(indent, msg, format='(%"%s  <failure>%s</failure>")') 
     141    self->_print, self.lun, _msg 
     142  endif 
     143   
     144  self->_print, self.lun, string(indent, format='(%"%s</test>")') 
    142145end 
    143146