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

"{ NameSpace: XQuery }"

XQTSTestCase subclass:#XQTSReturnExprTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Tests-XQTS'

!

!XQTSReturnExprTests methodsFor:'tests'!

test_ReturnExpr001

    | query result |

    query := ' 

        (: Name: ReturnExpr001 :)

(: Description: For+Return - use element"s text to construct new element :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

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

return 

<newFolder>{ $folder/FolderName/text() }</newFolder>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr001.xml')

!

test_ReturnExpr002

    | query result |

    query := ' 

        (: Name: ReturnExpr002 :)

(: Description: For+Return - use existing attribute to generate new attribute for new element :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

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

return 

<newFolder>{ $folder/@name, $folder/FolderName/text() }</newFolder>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr002.xml')

!

test_ReturnExpr003

    | query result |

    query := ' 

        (: Name: ReturnExpr003 :)

(: Description: For+Return - one For+Return expr contains another one For+Return expr :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $folder in $input-context/MyComputer/Drive1/Folder[1]

return 

<folder1>

  {$folder/FolderName}

  <files>

  { for $file in $folder/File

      return $file/FileName

  }

  </files>

</folder1>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr003.xml')

!

test_ReturnExpr004

    | query result |

    query := ' 

        (: Name: ReturnExpr004 :)

(: Description: For+Where+Return - filters in "Where" expr and in "Return" expr using predicate :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $f in $input-context/MyComputer//File

where $f/@creation_date="08/06/00"

return $f/SecurityObject/Denies/Deny[security/right]

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr004.xml')

!

test_ReturnExpr005

    | query result |

    query := ' 

        (: Name: ReturnExpr005 :)

(: Description: FLWOR expression returns selected element nodes :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in ($input-context//Folder)[1]/File

return $file/FileName

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr005.xml')

!

test_ReturnExpr006

    | query result |

    query := ' 

        (: Name: ReturnExpr006 :)

(: Description: FLWOR expression returns selected values :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in ($input-context//Folder)[1]/File

return data( $file/FileName )

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr006.txt')

!

test_ReturnExpr007

    | query result |

    query := ' 

        (: Name: ReturnExpr007 :)

(: Description: FLWOR expression return parent of select nodes :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in ($input-context//Folder)[1]/File

return $file/parent::Folder/FolderName

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr007.xml')

!

test_ReturnExpr008

    | query result |

    query := ' 

        (: Name: ReturnExpr008 :)

(: Description: FLWOR expression returns constant value, independent of input bindings :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in ($input-context//Folder)[1]/File

return 1

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr008.txt')

!

test_ReturnExpr009

    | query result |

    query := ' 

        (: Name: ReturnExpr009 :)

(: Description: FLWOR expression returns node from document, independent of input bindings :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in ($input-context//Folder)[1]/File

return ($input-context//FileName)[1]

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr009.xml')

!

test_ReturnExpr010

    | query result |

    query := ' 

        (: Name: ReturnExpr010 :)

(: Description: FLWOR expression returns empty sequence literal :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

<empty>

{

for $file in ($input-context//Folder)[1]/File

return ()

}

</empty>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr010.xml')

!

test_ReturnExpr011

    | query result |

    query := ' 

        (: Name: ReturnExpr011 :)

(: Description: FLWOR expression returns a constructed sequence :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

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

return ( $folder/FolderName, $file/FileName )

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr011.xml')

!

test_ReturnExpr012

    | query result |

    query := ' 

        (: Name: ReturnExpr012 :)

(: Description: Multiple return statements :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in ($input-context//Folder)[1]/File

return $file 

return $file

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_ReturnExpr013

    | query result |

    query := ' 

        (: Name: ReturnExpr013 :)

(: Description: Missing "return" statement in FLWOR expression :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in ($input-context//Folder)[1]/File

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_ReturnExpr014

    | query result |

    query := ' 

        (: Name: ReturnExpr014 :)

(: Description: FLWOR expression return statement depends on undefined variable :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in ($input-context//Folder)[1]/File

return $undefined

'.

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

    self shouldRaiseError: [interpreter evaluate: query].

!

test_ReturnExpr015

    | query result |

    query := ' 

        (: Name: ReturnExpr015 :)

(: Description: Variable bound to value from return statement :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in

	for $folder in ($input-context//Folder)[1]

	return $folder/File

return $file/FileName

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr015.xml')

!

test_ReturnExpr016

    | query result |

    query := ' 

        (: Name: ReturnExpr016 :)

(: Description: Return value of positional variable :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file at $offset in ($input-context//Folder)[1]/File

return

<File>{ $file/@name }{ attribute offset{ $offset }}</File>

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr016.xml')

!

test_ReturnExpr017

    | query result |

    query := ' 

        (: Name: ReturnExpr017 :)

(: Description: Apply arithmetic operator inside "return" statement :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in ($input-context//Folder)[1]/File

return ($file/Stream/StreamSize)[1] + 1

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr017.txt')

!

test_ReturnExpr018

    | query result |

    query := ' 

        (: Name: ReturnExpr018 :)

(: Description: Apply comparison operator inside "return" statement :)

(: insert-start :)

declare variable $input-context external;

(: insert-end :)

for $file in ($input-context//Folder)[1]/File

return ($file/Stream/StreamSize)[1] > 1004

'.

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

    result  := interpreter evaluate: query.

    self

        assert: (self xqtsResultTextFromResult: result)

               = (self xqtsResultTextFromFile:

'Expressions/FLWORExpr/ReturnExpr/ReturnExpr018.txt')