--- a/TestTester.st Tue Apr 27 09:47:44 2010 +0200
+++ b/TestTester.st Tue Apr 27 10:48:09 2010 +0200
@@ -832,13 +832,14 @@
selectedTesteeMethod := method.
"/ self halt.
self originalMethodSourceHolder value:source.
+ self mutatedMethodSourceHolder value:nil.
self updateDiffTextView.
].
].
"Created: / 25-04-2010 / 15:51:03 / cg"
- "Modified: / 27-04-2010 / 01:39:47 / cg"
+ "Modified: / 27-04-2010 / 09:54:19 / cg"
!
updateDiffTextView
@@ -1079,5 +1080,5 @@
!TestTester class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestTester.st,v 1.3 2010-04-27 07:47:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestTester.st,v 1.4 2010-04-27 08:48:09 cg Exp $'
! !