equal
deleted
inserted
replaced
830 selectedTesteeMethod ~~ method ifTrue:[ |
830 selectedTesteeMethod ~~ method ifTrue:[ |
831 (self originalMethodSourceHolder value) ~= source ifTrue:[ |
831 (self originalMethodSourceHolder value) ~= source ifTrue:[ |
832 selectedTesteeMethod := method. |
832 selectedTesteeMethod := method. |
833 "/ self halt. |
833 "/ self halt. |
834 self originalMethodSourceHolder value:source. |
834 self originalMethodSourceHolder value:source. |
|
835 self mutatedMethodSourceHolder value:nil. |
835 |
836 |
836 self updateDiffTextView. |
837 self updateDiffTextView. |
837 ]. |
838 ]. |
838 ]. |
839 ]. |
839 |
840 |
840 "Created: / 25-04-2010 / 15:51:03 / cg" |
841 "Created: / 25-04-2010 / 15:51:03 / cg" |
841 "Modified: / 27-04-2010 / 01:39:47 / cg" |
842 "Modified: / 27-04-2010 / 09:54:19 / cg" |
842 ! |
843 ! |
843 |
844 |
844 updateDiffTextView |
845 updateDiffTextView |
845 diffTextView |
846 diffTextView |
846 text1:(self originalMethodSourceHolder value ? '') |
847 text1:(self originalMethodSourceHolder value ? '') |
1077 ! ! |
1078 ! ! |
1078 |
1079 |
1079 !TestTester class methodsFor:'documentation'! |
1080 !TestTester class methodsFor:'documentation'! |
1080 |
1081 |
1081 version_CVS |
1082 version_CVS |
1082 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestTester.st,v 1.3 2010-04-27 07:47:44 cg Exp $' |
1083 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestTester.st,v 1.4 2010-04-27 08:48:09 cg Exp $' |
1083 ! ! |
1084 ! ! |