equal
deleted
inserted
replaced
459 ]. |
459 ]. |
460 ^ holder. |
460 ^ holder. |
461 ! |
461 ! |
462 |
462 |
463 refreshSuites |
463 refreshSuites |
464 self scriptModel value: (TestCase allSubclasses collect: [:each | each name]) sort. |
464 self updateSuitesList. |
465 self script value:nil. |
465 self script value:nil. |
466 self tests selection: 0. |
466 self tests selection: 0. |
467 self defects selection: 0. |
467 self defects selection: 0. |
468 result := TestResult new. |
468 result := TestResult new. |
469 self displayRefresh |
469 self displayRefresh |
555 self displayMode: (description ? ''). |
555 self displayMode: (description ? ''). |
556 self displayGray. |
556 self displayGray. |
557 |
557 |
558 "Created: / 21.6.2000 / 11:31:25 / Sames" |
558 "Created: / 21.6.2000 / 11:31:25 / Sames" |
559 "Modified: / 21.6.2000 / 11:32:54 / Sames" |
559 "Modified: / 21.6.2000 / 11:32:54 / Sames" |
|
560 ! |
|
561 |
|
562 updateSuitesList |
|
563 self scriptModel value: (TestCase allSubclasses collect: [:each | each name]) sort. |
560 ! ! |
564 ! ! |
561 |
565 |
562 !TestRunner methodsFor:'Private'! |
566 !TestRunner methodsFor:'Private'! |
563 |
567 |
564 allTestSuite |
568 allTestSuite |
603 |
607 |
604 self enableRunButton value: (self script value notNil). |
608 self enableRunButton value: (self script value notNil). |
605 self enableRunDefectsButton value: false. |
609 self enableRunDefectsButton value: false. |
606 self enableDebugButton value: false. |
610 self enableDebugButton value: false. |
607 self enableDefectsList value: false. |
611 self enableDefectsList value: false. |
608 self script onChangeSend: #suiteSelectionChanged to: self |
612 self script onChangeSend: #suiteSelectionChanged to:self. |
|
613 |
|
614 Smalltalk addDependent:self. |
609 |
615 |
610 "Created: / 2.4.2000 / 14:44:32 / Sames" |
616 "Created: / 2.4.2000 / 14:44:32 / Sames" |
611 "Modified: / 21.6.2000 / 12:06:30 / Sames" |
617 "Modified: / 21.6.2000 / 12:06:30 / Sames" |
|
618 ! |
|
619 |
|
620 release |
|
621 Smalltalk removeDependent:self. |
|
622 super release. |
612 ! |
623 ! |
613 |
624 |
614 timeSinceLastPassAsString |
625 timeSinceLastPassAsString |
615 lastPass isNil ifTrue: [^'']. |
626 lastPass isNil ifTrue: [^'']. |
616 ^', ' , (self formatTime: (Time now subtractTime: lastPass getSeconds)) , ' since last Pass' |
627 ^', ' , (self formatTime: (Time now subtractTime: lastPass getSeconds)) , ' since last Pass' |
713 |
724 |
714 displayYellow |
725 displayYellow |
715 self displayColor: ColorValue yellow |
726 self displayColor: ColorValue yellow |
716 ! |
727 ! |
717 |
728 |
718 update: anObject |
729 update:aParameter with:anArgument from:changedObject |
719 (anObject isKindOf: TestCase) |
730 (aParameter isKindOf:TestCase) ifTrue:[ |
720 ifTrue: [ |
731 self percentageDone |
721 self percentageDone value:(result runCount / numberOfTestsToRun * 100) rounded. |
732 value:(result runCount / numberOfTestsToRun * 100) rounded. |
722 self displayDetails: anObject printString |
733 self displayDetails:aParameter printString |
723 ] |
734 ] ifFalse:[ |
724 ifFalse: [super update: anObject] |
735 super |
|
736 update:aParameter |
|
737 with:anArgument |
|
738 from:changedObject |
|
739 ]. |
|
740 |
|
741 changedObject == Smalltalk ifTrue:[ |
|
742 (anArgument isBehavior and:[anArgument isSubclassOf:TestCase]) ifTrue:[ |
|
743 self updateSuitesList |
|
744 ] |
|
745 ] |
725 ! |
746 ! |
726 |
747 |
727 updateDefects |
748 updateDefects |
728 self displayDefects: result defects |
749 self displayDefects: result defects |
729 ! |
750 ! |
736 ! ! |
757 ! ! |
737 |
758 |
738 !TestRunner class methodsFor:'documentation'! |
759 !TestRunner class methodsFor:'documentation'! |
739 |
760 |
740 version |
761 version |
741 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.13 2001-02-07 10:41:26 cg Exp $' |
762 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.14 2001-06-29 12:37:41 cg Exp $' |
742 ! ! |
763 ! ! |