Changeset 53 for trunk

Show
Ignore:
Timestamp:
04/09/09 15:45:01 (3 years ago)
Author:
mgalloy
Message:

Added timings.

Location:
trunk/mgunit/src
Files:
7 modified

Legend:

Unmodified
Added
Removed

  • trunk/mgunit/src/mgutclirunner__define.pro

    r35 r53  
    144144;    passed : in, required, type=boolean 
    145145;       whether the test passed 
    146 ;- 
    147 pro mgutclirunner::reportTestResult, msg, passed=passed 
     146;    time : in, required, type=float 
     147;       time for the test to run 
     148;- 
     149pro mgutclirunner::reportTestResult, msg, passed=passed, time=time 
    148150  compile_opt strictarr 
    149151 
    150152  if (passed) then begin 
    151     self->_print, self.logLun, 'passed', /green 
     153    self->_print, self.logLun, 'passed', /green, format='(A, $)' 
    152154  endif else begin 
    153     self->_print, self.logLun, 'failed' + (msg eq '' ? '' : ' "' + msg + '"'), /red 
     155    self->_print, self.logLun, 'failed' + (msg eq '' ? '' : ' "' + msg + '"'), /red, format='(A, $)' 
    154156  endelse 
     157   
     158  self->_print, self.logLun, string(time, format='(%" (%f seconds)")') 
    155159end 
    156160 

  • trunk/mgunit/src/mgutcompoundrunner__define.pro

    r26 r53  
    133133;    passed : in, required, type=boolean 
    134134;       whether the test passed 
     135;    time : in, required, type=float 
     136;       time for the test to run 
    135137;- 
    136 pro mgutcompoundrunner::reportTestResult, msg, passed=passed 
     138pro mgutcompoundrunner::reportTestResult, msg, passed=passed, time=time 
    137139  compile_opt strictarr 
    138140 
    139141  for i = 0L, self->count() - 1L do begin 
    140142    r = self->get(position=i) 
    141     r->reportTestResult, msg, passed=passed 
     143    r->reportTestResult, msg, passed=passed, time=time 
    142144  endfor 
    143145end 

  • trunk/mgunit/src/mgutguirunner__define.pro

    r47 r53  
    161161;    passed : in, required, type=boolean 
    162162;       whether the test passed 
    163 ;- 
    164 pro mgutguirunner::reportTestResult, msg, passed=passed 
     163;    time : in, required, type=float 
     164;       time for the test to run 
     165;- 
     166pro mgutguirunner::reportTestResult, msg, passed=passed, time=time 
    165167  compile_opt strictarr 
    166168 

  • trunk/mgunit/src/mguthtmlrunner__define.pro

    r30 r53  
    138138;    passed : in, required, type=boolean 
    139139;       whether the test passed 
    140 ;- 
    141 pro mguthtmlrunner::reportTestResult, msg, passed=passed 
     140;    time : in, required, type=float 
     141;       time for the test to run 
     142;- 
     143pro mguthtmlrunner::reportTestResult, msg, passed=passed, time=time 
    142144  compile_opt strictarr 
    143145 
    144146  result = keyword_set(passed) ? 'passed' : 'failed' 
    145   printf, self.lun, $ 
    146     '<span class="' + result + '">' $ 
    147     + result $ 
    148     + (keyword_set(passed) ? '': (msg eq '' ? '' : ' "' + msg + '"')) $ 
    149     + '</span></li>' 
     147  ;printf, self.lun, $ 
     148  ;  '<span class="' + result + '">' $ 
     149  ;  + result $ 
     150  ;  + (keyword_set(passed) ? '': (msg eq '' ? '' : ' "' + msg + '"')) $ 
     151  ;  + '</span> (seconds)</li>' 
     152 
     153  printf, self.lun, $ 
     154          result, $ 
     155          result, $ 
     156          keyword_set(passed) ? '': (msg eq '' ? '' : ' "' + msg + '"'), $ 
     157          time, $ 
     158          format='(%"<span class=\"%s\">%s%s</span> <span class=\"time\">%f seconds</span></li>")'    
    150159end 
    151160 

  • trunk/mgunit/src/mguttestcase__define.pro

    r48 r53  
    4343  compile_opt strictarr, logical_predicate 
    4444 
    45   error = 0L 
    4645  catch, error 
    4746  if (error ne 0L) then begin 
    4847    catch, /cancel 
     48    self.time = systime(/seconds) - self.time 
    4949    msg = !error_state.msg 
    5050    return, 0L   ; fail 
    … …  
    5252 
    5353  !error_state.msg = '' 
     54   
     55  self.time = systime(/seconds) 
    5456  result = call_method(testname, self) 
     57  self.time = systime(/seconds) - self.time 
     58   
    5559  if (~result) then msg = !error_state.msg 
    5660  return, keyword_set(result) 
    … …  
    180184                : msg) 
    181185                       
    182     self.testRunner->reportTestResult, logMsg, passed=passed 
     186    self.testRunner->reportTestResult, logMsg, passed=passed, time=self.time 
    183187  endfor 
    184188 
    … …  
    307311;    nfail  
    308312;       number of failing tests 
     313;    time 
     314;       time for the current test to run 
    309315;- 
    310316pro mguttestcase__define 
    … …  
    312318 
    313319  define = { MGutTestCase, $ 
    314              testRunner : obj_new(), $ 
    315              testnames : ptr_new(), $ 
    316              level : 0L, $ 
    317              ntests : 0L, $ 
    318              npass : 0L, $ 
    319              nfail : 0L $ 
     320             testRunner: obj_new(), $ 
     321             testnames: ptr_new(), $ 
     322             level: 0L, $ 
     323             ntests: 0L, $ 
     324             npass: 0L, $ 
     325             nfail: 0L, $ 
     326             time: 0.0D $ 
    320327             }              
    321328end 

  • trunk/mgunit/src/mguttestrunner__define.pro

    r17 r53  
    112112;    passed : in, required, type=boolean 
    113113;       whether the test passed 
     114;    time : in, required, type=float 
     115;       time for the test to run 
    114116;- 
    115 pro mguttestrunner::reportTestResult, msg, passed=passed 
     117pro mguttestrunner::reportTestResult, msg, passed=passed, time=time 
    116118  compile_opt strictarr 
    117119 

  • trunk/mgunit/src/style.css

    r25 r53  
    66.passed { color: #060; } 
    77.failed { color: #C00; } 
     8.time { color: #888; font-size: 9pt; margin-left: 1em; } 
    89.results { } 
    910