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

"{ NameSpace: XQuery }"

XQTSTestCase subclass:#XQTSParenExprTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Tests-XQTS'

!

!XQTSParenExprTests methodsFor:'tests'!

test_Parenexpr_1

    | query result |

    query := ' 

        (: Name: Parenexpr-1 :)

(: Written by: Andreas Behm :)

(: Description: Arithmetic operations :)

(1 + 2) * 3

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-1.txt')

!

test_Parenexpr_10

    | query result |

    query := ' 

        (: Name: Parenexpr-10 :)

(: Written by: Andreas Behm :)

(: Description: Logical expressions :)

fn:true() or (fn:true() and fn:false())

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-10.txt')

!

test_Parenexpr_11

    | query result |

    query := ' 

        (: Name: Parenexpr-11 :)

(: Written by: Andreas Behm :)

(: Description: FLWOR expression :)

(for $x in (1) where (fn:true()) order by ($x) return ($x))

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-11.txt')

!

test_Parenexpr_12

    | query result |

    query := ' 

        (: Name: Parenexpr-12 :)

(: Written by: Andreas Behm :)

(: Description: if expression :)

for $x in (1,2) return (if (($x eq 1)) then ($x) else ($x + 1))

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-12.txt')

!

test_Parenexpr_13

    | query result |

    query := ' 

        (: Name: Parenexpr-13 :)

(: Written by: Andreas Behm :)

(: Description: Literal :)

(1)

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-13.txt')

!

test_Parenexpr_14

    | query result |

    query := ' 

        (: Name: Parenexpr-14 :)

(: Written by: Andreas Behm :)

(: Description: Sequence :)

(1, (2, (3, 4)), (5))

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-14.txt')

!

test_Parenexpr_15

    | query result |

    query := ' 

        (: Name: Parenexpr-15 :)

(: Written by: Andreas Behm :)

(: Description: union and except :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem>{$input-context//node() | ($input-context//node() except $input-context//comment())}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'DupNode'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-15.xml')

!

test_Parenexpr_16

    | query result |

    query := ' 

        (: Name: Parenexpr-16 :)

(: Written by: Andreas Behm :)

(: Description: union and except :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem>{($input-context//node() | $input-context//node()) except $input-context//comment()}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'DupNode'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-16.xml')

!

test_Parenexpr_17

    | query result |

    query := ' 

        (: Name: Parenexpr-17 :)

(: Written by: Andreas Behm :)

(: Description: Constructor :)

(<elem/>)

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-17.xml')

!

test_Parenexpr_18

    | query result |

    query := ' 

        (: Name: Parenexpr-18 :)

(: Written by: Andreas Behm :)

(: Description: Constructor :)

<elem attr="{(1)}">{(<child/>),(<child/>)}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-18.xml')

!

test_Parenexpr_19

    | query result |

    query := ' 

        (: Name: Parenexpr-19 :)

(: Written by: Andreas Behm :)

(: Description: Input context :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

($input-context)

'.

    self xqtsBind: 'input-context' toContentsOf: 'Tree1Child'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-19.xml')

!

test_Parenexpr_2

    | query result |

    query := ' 

        (: Name: Parenexpr-2 :)

(: Written by: Andreas Behm :)

(: Description: Arithmetic operations :)

1 + (2 * 3)

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-2.txt')

!

test_Parenexpr_20

    | query result |

    query := ' 

        (: Name: Parenexpr-20 :)

(: Written by: Andreas Behm :)

(: Description: Path expression :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<elem>{($input-context//(north)/(/)//(@mark)[(1)]/(.)/(..))}</elem>

'.

    self xqtsBind: 'input-context' toContentsOf: 'Tree1Child'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-20.xml')

!

test_Parenexpr_3

    | query result |

    query := ' 

        (: Name: Parenexpr-3 :)

(: Written by: Andreas Behm :)

(: Description: Arithmetic operations :)

-(2 + 5)

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-3.txt')

!

test_Parenexpr_4

    | query result |

    query := ' 

        (: Name: Parenexpr-4 :)

(: Written by: Andreas Behm :)

(: Description: Arithmetic operations :)

(-2) + 5

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-4.txt')

!

test_Parenexpr_5

    | query result |

    query := ' 

        (: Name: Parenexpr-5 :)

(: Written by: Andreas Behm :)

(: Description: Arithmetic operations :)

2 + (4 idiv 2)

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-5.txt')

!

test_Parenexpr_6

    | query result |

    query := ' 

        (: Name: Parenexpr-6 :)

(: Written by: Andreas Behm :)

(: Description: Arithmetic operations :)

(2 + 4) idiv 2

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-6.txt')

!

test_Parenexpr_7

    | query result |

    query := ' 

        (: Name: Parenexpr-7 :)

(: Written by: Andreas Behm :)

(: Description: Arithmetic operations :)

2 * (5 mod 3)

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-7.txt')

!

test_Parenexpr_8

    | query result |

    query := ' 

        (: Name: Parenexpr-8 :)

(: Written by: Andreas Behm :)

(: Description: Arithmetic operations :)

(2 * 5) mod 3

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-8.txt')

!

test_Parenexpr_9

    | query result |

    query := ' 

        (: Name: Parenexpr-9 :)

(: Written by: Andreas Behm :)

(: Description: Logical expressions :)

(fn:true() or fn:true()) and fn:false()

'.

    self xqtsBind: 'input-context' toContentsOf: 'emptydoc'.

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/PrimaryExpr/ParenExpr/Parenexpr-9.txt')

! !