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