- Timestamp:
- 02/04/10 10:56:56 (2 years ago)
- Location:
- trunk/src
- Files:
-
- 7 modified
-
mgutclirunner__define.pro (modified) (1 diff)
-
mgutcompoundrunner__define.pro (modified) (1 diff)
-
mgutguirunner__define.pro (modified) (1 diff)
-
mguthtmlrunner__define.pro (modified) (1 diff)
-
mgutjunitrunner__define.pro (modified) (1 diff)
-
mguttestcase__define.pro (modified) (5 diffs)
-
mguttestrunner__define.pro (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/mgutclirunner__define.pro
r85 r86 149 149 ; level : in, required, type=integer 150 150 ; level of test case 151 ; valid : in, required, type=boolean151 ; skipped : in, required, type=boolean 152 152 ; indicates whether the test should be counted in the results 153 153 ;- 154 154 pro mgutclirunner::reportTestResult, msg, passed=passed, time=time, $ 155 valid=valid, level=level156 compile_opt strictarr 157 158 if ( ~keyword_set(valid)) then begin159 self->_print, self.logLun, ' invalid', /cyan, format='(A, $)'155 skipped=skipped, level=level 156 compile_opt strictarr 157 158 if (skipped) then begin 159 self->_print, self.logLun, 'skipped' + (msg eq '' ? '' : ' "' + msg + '"'), /cyan, format='(A, $)' 160 160 endif else if (passed) then begin 161 161 self->_print, self.logLun, 'passed', /green, format='(A, $)' -
trunk/src/mgutcompoundrunner__define.pro
r85 r86 137 137 ; level : in, required, type=integer 138 138 ; level of test case 139 ; valid : in, required, type=boolean139 ; skipped : in, required, type=boolean 140 140 ; indicates whether the test should be counted in the results 141 141 ;- 142 142 pro mgutcompoundrunner::reportTestResult, msg, passed=passed, time=time, $ 143 valid=valid, level=level143 skipped=skipped, level=level 144 144 compile_opt strictarr 145 145 146 146 for i = 0L, self->count() - 1L do begin 147 147 r = self->get(position=i) 148 r->reportTestResult, msg, passed=passed, time=time, valid=valid, level=level148 r->reportTestResult, msg, passed=passed, time=time, skipped=skipped, level=level 149 149 endfor 150 150 end -
trunk/src/mgutguirunner__define.pro
r85 r86 158 158 ; level : in, required, type=integer 159 159 ; level of test case 160 ; valid : in, required, type=boolean160 ; skipped : in, required, type=boolean 161 161 ; indicates whether the test should be counted in the results 162 162 ;- 163 163 pro mgutguirunner::reportTestResult, msg, passed=passed, time=time, $ 164 valid=valid, level=level165 compile_opt strictarr 166 167 if ( ~keyword_set(valid)) then begin168 self->_print, 'invalid' , /continued164 skipped=skipped, level=level 165 compile_opt strictarr 166 167 if (skipped) then begin 168 self->_print, 'invalid' + (msg eq '' ? '' : ' "' + msg + '"'), /continued 169 169 endif else if (passed) then begin 170 170 self->_print, 'passed', /continued -
trunk/src/mguthtmlrunner__define.pro
r85 r86 142 142 ; level : in, required, type=integer 143 143 ; level of test case 144 ; valid : in, required, type=boolean144 ; skipped : in, required, type=boolean 145 145 ; indicates whether the test should be counted in the results 146 146 ;- 147 147 pro mguthtmlrunner::reportTestResult, msg, passed=passed, time=time, $ 148 valid=valid, level=level149 compile_opt strictarr 150 151 result = keyword_set(valid)$152 ? (keyword_set(passed) ? 'passed' : 'failed') $153 : 'invalid'148 skipped=skipped, level=level 149 compile_opt strictarr 150 151 result = skipped $ 152 ? 'skipped' 153 : (keyword_set(passed) ? 'passed' : 'failed') $ 154 154 155 155 s = string(result, $ -
trunk/src/mgutjunitrunner__define.pro
r85 r86 133 133 ; level : in, required, type=integer 134 134 ; level of test case 135 ; valid : in, required, type=boolean135 ; skipped : in, required, type=boolean 136 136 ; indicates whether the test should be counted in the results 137 137 ;- 138 138 pro mgutjunitrunner::reportTestResult, msg, passed=passed, time=time, $ 139 valid=valid, level=level140 compile_opt strictarr 141 142 indent = level eq 0L ? '' : string(bytarr(2 * level) + 32B) 143 144 if ( ~keyword_set(valid)) then begin145 _msg = string(indent, msg, format='(%"%s <failure> invalid test</failure>")')139 skipped=skipped, level=level 140 compile_opt strictarr 141 142 indent = level eq 0L ? '' : string(bytarr(2 * level) + 32B) 143 144 if (skipped) then begin 145 _msg = string(indent, msg, format='(%"%s <failure>skipped: %s</failure>")') 146 146 self->_print, self.lun, _msg 147 147 endif else if (~keyword_set(passed)) then begin -
trunk/src/mguttestcase__define.pro
r85 r86 150 150 self->_runSetup, fail=setupFailed 151 151 if (~setupFailed) then begin 152 self. invalid = 0B152 self.skipped = 0B 153 153 result = self->runTest((*self.testnames)[t], message=msg) 154 154 self->_runTeardown, fail=teardownFailed … … 169 169 endif 170 170 171 if (~self.invalid) then begin 171 if (self.skipped) then begin 172 msg = !error_state.msg 173 self->_removePrefix, msg, 'ASSERT: ' 174 endif else begin 172 175 if (passed) then begin 173 176 ++self.npass … … 175 178 ++self.nfail 176 179 endelse 177 end if180 endelse 178 181 179 182 ; remove method name from msg, if present … … 190 193 : msg) 191 194 192 self.testRunner->reportTestResult, logMsg, passed=passed, valid=~self.invalid, $ 195 self.testRunner->reportTestResult, logMsg, passed=passed, $ 196 skipped=self.skipped, $ 193 197 time=self.time, level=self.level 194 198 endfor … … 330 334 nfail: 0L, $ 331 335 time: 0.0D, $ 332 invalid: 0B $336 skipped: 0B $ 333 337 } 334 338 end -
trunk/src/mguttestrunner__define.pro
r85 r86 116 116 ; level : in, required, type=integer 117 117 ; level of test case 118 ; valid : in, required, type=boolean118 ; skipped : in, required, type=boolean 119 119 ; indicates whether the test should be counted in the results 120 120 ;- 121 121 pro mguttestrunner::reportTestResult, msg, passed=passed, time=time, $ 122 valid=valid, level=level122 skipped=skipped, level=level 123 123 compile_opt strictarr 124 124
