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

"{ NameSpace: XQuery }"

XQTSTestCase subclass:#XQTSSequenceTypeSyntaxTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Tests-XQTS'

!

!XQTSSequenceTypeSyntaxTests methodsFor:'tests'!

test_sequence_type_1

    | query result |

    query := '

(:*******************************************************:)

(:Test: sequence-type-1                                  :)

(:Written By: Carmelo Montanez                           :)

(:Date: March 29, 2006                                   :)

(:Purpose: Evaluate simple sequence type using instance of :)

(: and integers.                                         :)

(:*******************************************************:)

(: insert-start :)

declare variable $input-context1 external;

(: insert-end :)

(1,2,3) instance of xs:integer*

'.

    self xqtsBind: 'input-context1' toContentsOf: 'emptydoc.xml'.

    result := interpreter evaluate: query.

    self

        assert:

            (self xqtsResultTextFromResult: result)

                = (self xqtsResultTextFromFile: 'Basics/Types/SequenceTypeSyntax/truevalue.txt')

    "Created: / 10-11-2008 / 17:20:53 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!XQTSSequenceTypeSyntaxTests class methodsFor:'documentation'!

version

    ^'$Id$'

! !