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

     2 

     3 "{ NameSpace: XMLv2 }"

     4 

     5 XPathKindTest subclass:#XPathAnyKindTest

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XML Suite-XPath-Node tests'

    10 !

    11 

    12 

    13 !XPathAnyKindTest methodsFor:'printing'!

    14 

    15 printOn: stream

    16 

    17     stream nextPutAll:'node()'

    18 

    19     "Created: / 15-11-2007 / 22:00:57 / janfrog"

    20 ! !

    21 

    22 !XPathAnyKindTest methodsFor:'testing'!

    23 

    24 isXPathAnyKindTest

    25     ^ true

    26 

    27     "Created: / 21-11-2007 / 11:07:13 / janfrog"

    28 ! !

    29 

    30 !XPathAnyKindTest methodsFor:'visiting'!

    31 

    32 acceptVisitor:aVisitor 

    33     "Double dispatch back to the visitor, passing my type encoded in

    34      the selector (visitor pattern)"

    35 

    36     "stub code automatically generated - please change if required"

    37 

    38     ^ aVisitor visitXPathAnyKindTest:self

    39 

    40     "Created: / 17-11-2007 / 15:31:51 / janfrog"

    41 ! !

    42 

    43 !XPathAnyKindTest class methodsFor:'documentation'!

    44 

    45 version

    46     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xpath/XMLv2__XPathAnyKindTest.st,v 1.4 2007-11-22 21:50:07 vranyj1 Exp $'

    47 ! !