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

     2 

     3 "{ NameSpace: XMLv2 }"

     4 

     5 XPathKindTest subclass:#XPathElementTest

     6 	instanceVariableNames:'elementName'

     7 	classVariableNames:''

     8 	poolDictionaries:''

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

    10 !

    11 

    12 

    13 !XPathElementTest methodsFor:'printing'!

    14 

    15 printOn: stream

    16 

    17     stream nextPutAll:'attribute('.

    18     elementName ifNotNil:[stream nextPutAll: elementName].

    19     stream nextPut:$)

    20 

    21     "Created: / 15-11-2007 / 22:02:22 / janfrog"

    22 ! !

    23 

    24 !XPathElementTest methodsFor:'testing'!

    25 

    26 isXPathElementTest

    27     ^ true

    28 

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

    30 ! !

    31 

    32 !XPathElementTest methodsFor:'visiting'!

    33 

    34 acceptVisitor:aVisitor 

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

    36      the selector (visitor pattern)"

    37 

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

    39 

    40     ^ aVisitor visitXPathElementTest:self

    41 

    42     "Created: / 17-11-2007 / 15:31:52 / janfrog"

    43 ! !

    44 

    45 !XPathElementTest class methodsFor:'documentation'!

    46 

    47 version

    48     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xpath/XMLv2__XPathElementTest.st,v 1.3 2007-11-22 21:47:55 vranyj1 Exp $'

    49 ! !