equal
deleted
inserted
replaced
1398 | testResult testCases blocker | |
1398 | testResult testCases blocker | |
1399 |
1399 |
1400 blocker := Semaphore new. |
1400 blocker := Semaphore new. |
1401 |
1401 |
1402 [ |
1402 [ |
1403 testResult := TestResult defaultResultClass new. |
1403 [ |
1404 testCases := Set new. |
1404 testResult := TestResult defaultResultClass new. |
1405 aTestSuite |
1405 testCases := Set new. |
1406 run: testResult |
1406 aTestSuite |
1407 beforeEachDo:[:test :result | |
1407 run: testResult |
1408 self displayRunning: result test: test total: aTestSuite tests size |
1408 beforeEachDo:[:test :result | |
1409 ] |
1409 self displayRunning: result test: test total: aTestSuite tests size |
1410 afterEachDo:[:test :result| |
1410 ] |
1411 testCases add: test class name |
1411 afterEachDo:[:test :result| |
1412 ] |
1412 testCases add: test class name |
1413 debug:doDebug. |
1413 ] |
1414 |
1414 debug:doDebug. |
1415 self displayResult: testResult keepFailures: keepFailures keepErrors: keepErrors. |
1415 |
1416 blocker signal. |
1416 self displayResult: testResult keepFailures: keepFailures keepErrors: keepErrors. |
|
1417 ] ensure:[ |
|
1418 blocker signal. |
|
1419 ]. |
1417 ] forkAt: Processor userBackgroundPriority . |
1420 ] forkAt: Processor userBackgroundPriority . |
1418 self withWaitCursorDo:[ |
1421 self withWaitCursorDo:[ |
1419 blocker wait. |
1422 blocker wait. |
1420 ]. |
1423 ]. |
1421 ^testResult |
1424 ^testResult |
1423 "Modified: / 18-01-2008 / 18:38:08 / janfrog" |
1426 "Modified: / 18-01-2008 / 18:38:08 / janfrog" |
1424 "Created: / 06-06-2008 / 09:11:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1427 "Created: / 06-06-2008 / 09:11:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1425 "Modified: / 06-06-2008 / 19:40:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1428 "Modified: / 06-06-2008 / 19:40:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1426 "Modified: / 04-07-2011 / 23:06:23 / cg" |
1429 "Modified: / 04-07-2011 / 23:06:23 / cg" |
1427 "Created: / 21-08-2011 / 17:51:42 / cg" |
1430 "Created: / 21-08-2011 / 17:51:42 / cg" |
1428 "Modified: / 25-07-2013 / 12:47:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1431 "Modified: / 26-07-2013 / 19:13:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1429 ! ! |
1432 ! ! |
1430 |
1433 |
1431 !TestRunner2 methodsFor:'actions - menu'! |
1434 !TestRunner2 methodsFor:'actions - menu'! |
1432 |
1435 |
1433 classListMenuBrowse |
1436 classListMenuBrowse |