Changeset 22
- Timestamp:
- 11/11/08 12:18:06 (2 months ago)
- Files:
-
- trunk/mgunit/src/mgunit.pro (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/mgunit/src/mgunit.pro
r17 r22 14 14 ; html : in, optional, type=boolean 15 15 ; set to indicate HTML output instead of plain text 16 ; npass : out, optional, type=long 17 ; number of tests that passed 18 ; ntests : out, optional, type=long 19 ; number of tests 16 20 ;- 17 pro mgunit, tests, filename=filename, html=html 21 pro mgunit, tests, filename=filename, html=html, npass=npass, ntests=ntests 18 22 compile_opt strictarr 19 23 20 24 runnerName = keyword_set(html) ? 'MGutHTMLRunner' : 'MGutCliRunner' 21 25 testRunner = obj_new(runnerName, filename=filename) 26 27 npass = 0L 28 nfail = 0L 22 29 23 30 if (n_elements(tests) gt 0) then begin … … 27 34 testsuite->add, tests 28 35 testsuite->run 36 testsuite->getProperty, npass=npass, ntests=ntests 29 37 obj_destroy, testsuite 30 38 endif
