class: Tools::MethodCategoryList
authorClaus Gittinger <cg@exept.de>
Wed, 24 Dec 2014 13:51:10 +0100
changeset 15074 16fed0c256f1
parent 15073 f7104d787a17
child 15075 8ee8b91f6c69
class: Tools::MethodCategoryList changed: #listOfMethodCategories don't count documentation methods in instrumented/uninstrumented.
Tools__MethodCategoryList.st
--- a/Tools__MethodCategoryList.st	Wed Dec 24 12:36:03 2014 +0100
+++ b/Tools__MethodCategoryList.st	Wed Dec 24 13:51:10 2014 +0100
@@ -1375,8 +1375,8 @@
             ].
 
             showCoverageInformation ifTrue:[
-                mthd isInstrumented ifTrue:[
-                    mthd category = 'documentation' ifFalse:[
+                mthd category = 'documentation' ifFalse:[
+                    mthd isInstrumented ifTrue:[
                         itemsWithInstrumentedMethods add:mCategory.
                         mthd hasBeenCalled ifTrue:[
                             itemsWithCalledMethods add:mCategory.
@@ -1391,9 +1391,9 @@
                             itemsWithUncalledMethods add:mCategory.
                             numUncovered := numUncovered + 1.
                         ].
+                    ] ifFalse:[
+                        numNotInstrumented := numNotInstrumented + 1.
                     ].
-                ] ifFalse:[
-                    numNotInstrumented := numNotInstrumented + 1.
                 ].
             ].
             (changeSet includesChangeForClass:eachClass selector:mSelector) ifTrue:[
@@ -2123,11 +2123,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.103 2014-11-19 21:41:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.104 2014-12-24 12:51:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.103 2014-11-19 21:41:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.104 2014-12-24 12:51:10 cg Exp $'
 ! !