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

"{ NameSpace: XMLv2 }"

TestCase subclass:#XPathTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'XML Suite-XPath-Tests'
!


!XPathTests class methodsFor:'defaults'!

defaultTestDirectory

    ^(Smalltalk getPackageDirectoryForPackage:self package) construct: 'resources/tests/'.

    "Modified: / 28-09-2006 / 18:10:10 / janfrog"
! !

!XPathTests methodsFor:'private'!

loadExprTrees

    | col tree |
    col := Set new.

    "child::*"
                
    tree := XPathExprTreeNode new id:#rule_1_1.
    tree subnodes add:(XPathExprTreeNode new id:#rule_3_1).
    (tree subnodes at:1) subnodes add:(XPathExprTreeNode new id:#rule_4_1).
    ((tree subnodes at:1) subnodes at:1) subnodes 
        add:(XPathExprTreeNode new id:#rule_5_1);
        add:(XPathExprTreeNode new id:#rule_7_1).
    (((tree subnodes at:1) subnodes at:1) subnodes at:1) subnodes 
        add:(XPathExprTreeNode new id:#rule_6_x; synthetizedValue:'child');
        add:(XPathExprTreeNode new).
    (((tree subnodes at:1) subnodes at:1) subnodes at:2) subnodes
        add:(XPathExprTreeNode new id:#rule_37_1).
    col add: tree.

    ^ col.
!

validateExpression:anExpressionString withResult:aString 
    |doc filename nodeSet nodeSetString|

    "an example of complete usage"
    filename := self class defaultTestDirectory construct:'sample_001.xml'.
    doc := XPathDocumentAdaptorFactory 
                documentAdaptorFor:(XMLv2::Parser forDOM3 processDocumentInFilename:filename
                        beforeScanDo:[:parser | parser validate:false ]).
    nodeSet := (XPathProcessor new)
                documentAdaptor:doc;
                processExpression:anExpressionString.
    nodeSetString := (nodeSet asString).
    self assert:(nodeSetString = aString).

    "Modified: / 24-10-2006 / 12:00:27 / janfrog"
! !

!XPathTests methodsFor:'testing'!

testExpression_001
    self validateExpression:'child::*' withResult:'root1 '
!

testExpression_002
    self validateExpression:'descendant::*' withResult:'root1 tag2 tag3 subtag4 subtag5 emp6 subtag7 b8 tag9 '
!

testExpression_003
    self validateExpression:'child::*/child::*/descendant::*' withResult:'subtag1 subtag2 emp3 subtag4 b5 '
!

testExpression_004
    self validateExpression:'descendant::tag' withResult:'tag1 tag2 tag3 '
!

testExpression_005
    |doc filename node_set|

    "an example of complete usage"
    filename := self class defaultTestDirectory construct:'sample_001.xml'.
    doc := XPathDocumentAdaptorFactory 
                documentAdaptorFor:(XML::XMLParser processDocumentInFilename:filename
                        beforeScanDo:[:parser | parser validate:false ]).
    node_set := (XPathProcessor new documentAdaptor:doc) processExpression:'/'.
    self assert:((node_set nodesInDocumentOrder at:1) isDocument).

    "Modified: / 13-10-2006 / 20:54:33 / janfrog"
!

testExpression_006
    self validateExpression:'/child::*' withResult:'root1 '
!

testExpression_007
    self validateExpression:'//child::subtag' withResult:'subtag1 subtag2 subtag3 '
!

testExpression_008
    self validateExpression:'child::root/child::tag//self::*' withResult:'tag1 tag2 subtag3 subtag4 emp5 subtag6 b7 tag8 '
!

testExpression_009
    self validateExpression:'child::root/child::tag//child::*' withResult:'subtag1 subtag2 emp3 subtag4 b5 '
!

testExpression_010
    self validateExpression:'child::root//.' withResult:'root1 tag2 tag3 subtag4 subtag5 emp7 subtag9 b11 tag13 '.
!

testExpression_011
    self validateExpression:'/root/tag' withResult:'tag1 tag2 tag3 '.
!

testExpression_012
    self validateExpression:'/root//@*' withResult:'1234somethingyes'.
! !

!XPathTests class methodsFor:'documentation'!

version
    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xpath/XMLv2__XPathTests.st,v 1.4 2006-12-15 11:06:35 vranyj1 Exp $'
! !