1 "{ Package: 'stx:goodies/xmlsuite/xpath' }"

     2 

     3 "{ NameSpace: XMLv2 }"

     4 

     5 Object subclass:#XPathCoverageMonitor

     6 	instanceVariableNames:''

     7 	classVariableNames:'idSet'

     8 	poolDictionaries:''

     9 	category:'XML Suite-XPath-Tests'

    10 !

    11 

    12 

    13 !XPathCoverageMonitor class methodsFor:'expression tree coverage'!

    14 

    15 addId: anId

    16     idSet isNil ifTrue:[idSet := Set new].

    17     idSet add:anId.

    18 !

    19 

    20 reset

    21     idSet := Set new.

    22 !

    23 

    24 showUncoveredRules

    25     XPathExprTreeNode rules keys do:[:key|

    26         (idSet includes:key) ifFalse:[

    27             Transcript showCR:key

    28         ]

    29     ]

    30 

    31     "

    32         XPathCoverageMonitor showUncoveredRules

    33     "

    34 

    35     "Modified: / 28-09-2006 / 18:12:09 / janfrog"

    36 ! !

    37 

    38 !XPathCoverageMonitor class methodsFor:'documentation'!

    39 

    40 version

    41     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xpath/XMLv2__XPathCoverageMonitor.st,v 1.2 2006-12-15 11:06:57 vranyj1 Exp $'

    42 ! !