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

"{ NameSpace: XQuery }"

TestCase subclass:#XQueryTypeTests
	instanceVariableNames:'interpreter'
	classVariableNames:''
	poolDictionaries:''
	category:'XQuery-Tests'
!


!XQueryTypeTests class methodsFor:'defaults'!

attributesURI
    ^'file:///attributes.xml'.

    "Created: / 30-04-2009 / 19:49:25 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 28-12-2009 / 16:34:36 / Jan Kurs <kursj1@fel.cvut.cz>"
!

testedURI
    ^'file:///bookstore.xml'.

    "Created: / 30-04-2009 / 19:06:55 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!XQueryTypeTests methodsFor:'defaults'!

attributesURI
    ^'file:///attr.xml'.

    "Created: / 30-04-2009 / 19:07:40 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!XQueryTypeTests methodsFor:'initialization & release'!

setUp

    interpreter := XQueryInterpreter new
                        openPerseusDebuggerOnError: false;
                        setDocumentProvider: XQueryDocumentProviderTestResource current;
                        yourself

    "Modified: / 27-06-2009 / 19:26:48 / Jan Kurs <kursj1@fel.cvut.cz>"
!

tearDown

    interpreter := nil.

! !

!XQueryTypeTests methodsFor:'tests'!

test_01

    self 
        assert: (TypeFactory isType: 'element' subtypeOf: 'node');
        assert: (TypeFactory isType: 'xs:integer' subtypeOf: 'xs:anyAtomicType');
        assert: (TypeFactory isType: 'xs:integer' subtypeOf: 'xs:integer').

    "Created: / 05-12-2007 / 14:59:24 / janfrog"
    "Modified: / 07-11-2009 / 23:58:57 / Jan Kurs <kursj1@fel.cvut.cz>"
!

test_02

    self 
        assert: (TypeFactory isType:'xs:integer' subtypeOf: 'xs:boolean') not.

    "Created: / 05-12-2007 / 15:00:11 / janfrog"
    "Modified: / 07-11-2009 / 23:58:37 / Jan Kurs <kursj1@fel.cvut.cz>"
!

test_decimal_format
    self             
        assert:(AtomicItem withValue: -1.1234 asType:'xs:decimal') asString 
                    = '-1.1234';
        assert:(AtomicItem withValue: -0.0E0 asType:'xs:decimal') asString 
                    = '0'.

    "Created: / 17-11-2009 / 17:40:53 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 17-11-2009 / 18:55:34 / Jan Kurs <kursj1@fel.cvut.cz>"
!

test_float_format
    self             
        assert:(AtomicItem withValue:0.000001 asType:'xs:float') asString 
                    = '0.000001';
        assert:(AtomicItem withValue:-1.75e-3 asType:'xs:float') asString 
                    = '-0.00175';
        assert:(AtomicItem withValue:0.0 asType:'xs:float') asString 
                    = '0';
        assert:(AtomicItem withValue:-0.0e1 asType:'xs:float') asString 
                    = '-0';
        assert:(AtomicItem withValue:-10.0 asType:'xs:float') asString 
                    = '-10';
        assert:(AtomicItem withValue:100.0 asType:'xs:float') asString 
                    = '100';
        assert:(AtomicItem withValue:123.456 asType:'xs:float') asString 
                    = '123.456';
        assert:(AtomicItem withValue:100000.0 asType:'xs:float') asString 
                    = '100000';
        assert:(AtomicItem withValue:1000000.0 asType:'xs:float') asString 
                    = '1.0E6';
        assert:(AtomicItem withValue:0.0000001 asType:'xs:float') asString 
                    = '1.0E-7'.

    "Created: / 10-11-2009 / 12:57:08 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 17-11-2009 / 19:07:10 / Jan Kurs <kursj1@fel.cvut.cz>"
!

test_fn_attribute
    | result |

    "constructed node attribute test"
    result := interpreter basicEvaluate: 
        '<root><a attr="1" /> <a attr="2" /> <c attr="3"/></root>/attribute()'.
    "constructed node does not implement attributes yet"
    "/    self assert: (result size = 3).

    result := interpreter basicEvaluate: 'doc("' , self class attributesURI 
                        , '")//a/attribute()'.

    self assert: (result size = 2).
    self assert: (result first dmTypedValue = '1').
    self assert: (result second dmTypedValue = '2').
    "TODO
        - attribute(name) function
    "

    "Created: / 18-04-2009 / 20:41:52 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 05-10-2009 / 19:27:40 / Jan Kurs <kursj1@fel.cvut.cz>"
!

test_fn_element
    | document result |

    document := '<root><a /> <b /> <a /> <c /></root>'.
    result := interpreter basicEvaluate: document, '//element()'.
    self assert: (result size = 4).
    result := interpreter basicEvaluate: document, '//element(a)'.
    self assert: (result size = 2).
    self assert: (result first asString = '<a/>').
    self assert: (result second asString = '<a/>').

    "Created: / 18-04-2009 / 20:34:00 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 27-06-2009 / 19:28:43 / Jan Kurs <kursj1@fel.cvut.cz>"
!

test_fn_node_kind
    | document result |
    " TODO  "
"/    document := 'dm:node-kind(<a />)'.
"/    result := interpreter basicEvaluate: document.
"/    self assert: (result size = 1).
"/    self assert: (result first asString = 'element').
"/
"/    document := 'dm:node-kind(doc("' , self class attributesURI, '")/root/a/attribute()[1])'.
"/    result := interpreter basicEvaluate: document.
"/    self assert: (result size = 1).
"/    self assert: (result first asString = 'attribute').
"/
"/    document := 'dm:node-kind(doc("' , self class attributesURI, '")/root/a/text()[1])'.
"/    result := interpreter basicEvaluate: document.
"/    self assert: (result size = 1).
"/    self assert: (result first asString = 'text').
"/
"/    document := 'dm:node-kind(doc("' , self class attributesURI, '"))'.
"/    result := interpreter basicEvaluate: document.
"/    self assert: (result size = 1).
"/    self assert: (result first asString = 'document').

    "Created: / 30-04-2009 / 17:30:47 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 07-07-2009 / 23:21:23 / Jan Kurs <kursj1@fel.cvut.cz>"
!

test_instanceof_01
    |document result|

    document := '<root><a attr="1"/> <b /> <a /> <c /></root>'.
    result := interpreter 
                basicEvaluate:document , '//node()[1] instance of element()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'true').
    self assert:(result first type = 'xs:boolean').
    result := interpreter basicEvaluate:'<root /> instance of element()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'true').
    self assert:(result first type = 'xs:boolean').
    result := interpreter basicEvaluate:'"hello" instance of node()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'false').
    self assert:(result first type = 'xs:boolean').
    result := interpreter 
                basicEvaluate:document , '//node()[1] instance of attribute()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'false').
    self assert:(result first type = 'xs:boolean').
    result := interpreter 
                basicEvaluate:document , '//node()[1] instance of text()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'false').
    self assert:(result first type = 'xs:boolean').
    result := interpreter basicEvaluate:'doc("' , self class attributesURI 
                        , '")//a/attribute()[1] instance of attribute()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'true').
    self assert:(result first type = 'xs:boolean').

    "Created: / 09-05-2009 / 22:35:42 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 05-10-2009 / 19:32:40 / Jan Kurs <kursj1@fel.cvut.cz>"
!

test_instanceof_02
    |result|

    result := interpreter basicEvaluate:'"hello" instance of node()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'false').
    self assert:(result first type = 'xs:boolean').
    result := interpreter basicEvaluate:'1 instance of node()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'false').
    self assert:result first type = 'xs:boolean'.
    result := interpreter basicEvaluate:'<root /> instance of node()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'true').
    self assert:result first type = 'xs:boolean'.
    result := interpreter basicEvaluate:'"hello" instance of item()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'true').
    self assert:result first type = 'xs:boolean'.
    result := interpreter basicEvaluate:'"hello" instance of xs:integer'.
    self assert:(result size = 1).
    self assert:(result first asString = 'false').
    self assert:result first type = 'xs:boolean'.
    result := interpreter 
                basicEvaluate:'"hello" instance of empty-sequence()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'false').
    self assert:result first type = 'xs:boolean'.
    result := interpreter basicEvaluate:'() instance of empty-sequence()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'true').
    self assert:result first type = 'xs:boolean'.
    result := interpreter basicEvaluate:'(1,2,3) instance of item()'.
    self assert:(result size = 1).
    self assert:(result first asString = 'false').
    self assert:result first type = 'xs:boolean'.
    result := interpreter basicEvaluate:'(1,2,3) instance of xs:boolean*'.
    self assert:(result size = 1).
    self assert:(result first asString = 'false').
    self assert:result first type = 'xs:boolean'.

    "Created: / 10-05-2009 / 18:05:03 / Jan Kurs <kursj1@fel.cvut.cz>"
    "Modified: / 05-10-2009 / 19:33:03 / Jan Kurs <kursj1@fel.cvut.cz>"
! !

!XQueryTypeTests class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !