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

"{ NameSpace: XQuery }"

XQTSTestCase subclass:#XQTSForExprWithoutTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Tests-XQTS'

!

!XQTSForExprWithoutTests methodsFor:'tests'!

test_ForExpr001

    | query result |

    query := ' 

        (: Name: ForExpr001 :)

(: Description: For+Return - to iterate a constant sequence :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $a in ("test", "test1", "test2")

return $a

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr001.txt')

!

test_ForExpr002

    | query result |

    query := ' 

        (: Name: ForExpr002 :)

(: Description: For+Return - error, undefined variable in "IN" Expr :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $folder in $folder/File 

return <file name="{$folder/File/FileName}"/>

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_ForExpr003

    | query result |

    query := ' 

        (: Name: ForExpr003 :)

(: Description: For+Return - use predicate in "IN" Expr :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $f in $input-context/MyComputer/Drive4/Folder[@id="128"]

return <FolderName>{$f/@name}</FolderName>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr003.xml')

!

test_ForExpr004

    | query result |

    query := ' 

        (: Name: ForExpr004 :)

(: Description: For+Return - use more than one predicates in "IN" Expr :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $f in $input-context/MyComputer/Drive1/Folder[@creator="Mani"]/File[@creation_date="08/06/00"]

return  <file>{$f/../@creator}{$f/@creation_date}</file>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr004.xml')

!

test_ForExpr005

    | query result |

    query := ' 

        (: Name: ForExpr005 :)

(: Description: For+Return - use sequence(security/right) as the predicate :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $f in $input-context/MyComputer//File[@creation_date="08/06/00"]/SecurityObject/Denies/Deny[security/right]

 return $f

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr005.xml')

!

test_ForExpr006

    | query result |

    query := ' 

        (: Name: ForExpr006 :)

(: Description: For+Return - 2 For will generate two iterations :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<fragment-result>{

	for $folder in $input-context/MyComputer/Drive3/Folder

	   ,$file in $input-context/MyComputer/Drive3/Folder/File

	return 

	<Folder>{ $folder/@name, $folder/@id }<file>{ $file/@idref }{ data($file/@name) }</file>

	</Folder>

}</fragment-result>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr006.xml')

!

test_ForExpr007

    | query result |

    query := ' 

        (: Name: ForExpr007 :)

(: Description: For+Return - use special character in variable name :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $AaBbCc.-_Dd in $input-context/MyComputer/Drive1/Folder

return $AaBbCc.-_Dd/FolderName

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr007.xml')

!

test_ForExpr008

    | query result |

    query := ' 

        (: Name: ForExpr008 :)

(: Description: For+Where+Return - use special characters in variable name :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $AaBbCc.-_Dd in $input-context/MyComputer/Drive1/Folder

where $AaBbCc.-_Dd/@creator = "Mani"

return $AaBbCc.-_Dd/FolderName

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr008.xml')

!

test_ForExpr009

    | query result |

    query := ' 

        (: Name: ForExpr009 :)

(: Description: For+Return - error, use variable in it"s own declaration  :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $a in $a/*

return $a

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_ForExpr010

    | query result |

    query := ' 

        (: Name: ForExpr010 :)

(: Description: FLWOR expression with multiple, interdependent variables :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $folder in $input-context//Folder

	for $file in $folder//File

return 

<File folder="{$folder/FolderName}">{string($file/FileName[1])}</File>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr010.xml')

!

test_ForExpr011

    | query result |

    query := ' 

        (: Name: ForExpr011 :)

(: Description: FLWOR expression with multiple, interdependent variables :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $folder in $input-context//Folder, $file in $folder//File

return 

<File folder="{$folder/FolderName}">{string($file/FileName[1])}</File>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr011.xml')

!

test_ForExpr012

    | query result |

    query := ' 

        (: Name: ForExpr012 :)

(: Description: Nested FLWOR expressions :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $fileName in 

	for $file in $input-context//Folder/File

	return $file/FileName

return string( $fileName )

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr012.txt')

!

test_ForExpr013

    | query result |

    self halt: 'should be fixed'.

    query := ' 

        (: Name: ForExpr013 :)

(: Description: Multiple variables based off the same input context :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $fileName in $input-context//File/FileName, 

        $folderName in $input-context//Folder/FolderName

return ($folderName, $fileName)

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr013.xml')

    "Modified: / 30-12-2009 / 12:58:45 / Jan Kurs <kursj1@fel.cvut.cz>"

!

test_ForExpr014

    | query result |

    query := ' 

        (: Name: ForExpr014 :)

(: Description: Incorrect syntax for nested loop. Multiple return statements at the same level :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $fileName in $input-context//File/FileName

	for $folderName in $input-context//Folder/FolderName

	return $folderName

return $fileName

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_ForExpr015

    | query result |

    query := ' 

        (: Name: ForExpr015 :)

(: Description: Return expression contains nested for expression :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $folder in $input-context//Folder

return 

	for $file in $folder/File

	return string( $file/FileName[1] )

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr015.txt')

!

test_ForExpr016

    | query result |

    query := ' 

        (: Name: ForExpr016 :)

(: Description: Interate over nodes in document and constant sequence. Return value based on both :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $folder in $input-context//Folder, 

	$index in (1, 2, 3)

return $folder/File[$index]/FileName

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ForExpr/ForExpr016.xml')

!

test_ForExpr017

    | query result |

    query := ' 

        (: Name: ForExpr017 :)

(: Description: Multiple return statements from single for expression :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $folder in $input-context//Folder

return $folder

return $folder

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_ForExpr018

    | query result |

    query := ' 

        (: Name: ForExpr018 :)

(: Description: Multiple in statements for single variable binding :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $folder in in $input-context//Folder

return $folder