← Back to branch summary

~zorba-coders/zorba/bug1151967

« back to all changes in this revision

Viewing changes to test/fots_driver/evaluate.xq

  • Committer: Paul J. Lucas
  • Date: 2013-08-15 00:14:17 UTC
  • mfrom: (11597 lp_zorba)
  • mto: This revision was merged to the branch mainline in revision 11598.
  • Revision ID: paul@lucasmail.org-20130815001417-g22x9plxc8fv73zd
Merge from trunk.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/fots_driver/evaluate.xq
25
25
import schema namespace output =
26
26
  "http://www.w3.org/2010/xslt-xquery-serialization";
27
27
 
28
 
import module namespace xqxq =
29
 
  "http://www.zorba-xquery.com/modules/xqxq";
 
28
import module namespace zq =
 
29
  "http://zorba.io/modules/zorba-query";
30
30
 
31
31
import module namespace schema =
32
32
  "http://www.zorba-xquery.com/modules/schema";
296
296
             "declare variable $result external; ",
297
297
             xs:string($expResult));
298
298
 
299
 
    variable $queryKey := xqxq:prepare-main-module($queryText);
 
299
    variable $queryKey := zq:prepare-main-module($queryText);
300
300
 
301
 
    variable $queryKeyResult := xqxq:bind-variable($queryKey,
 
301
    variable $queryKeyResult := zq:bind-variable($queryKey,
302
302
                                                   xs:QName('result'),
303
303
                                                   $result);
304
304
 
305
 
    variable $queryResult := xqxq:evaluate($queryKey);
 
305
    variable $queryResult := zq:evaluate($queryKey);
306
306
 
307
307
   if ($queryResult)
308
308
   then ()
346
346
      "declare variable $x external;",
347
347
      "let $y := (",string(data($expResult)),") return ",
348
348
      "every $i in 1 to max((count($x),count($y))) satisfies deep-equal($x[$i],$y[$i])");
349
 
    variable $queryKey := xqxq:prepare-main-module($queryText),
350
 
             $queryKeyResult := xqxq:bind-variable($queryKey,
 
349
    variable $queryKey := zq:prepare-main-module($queryText),
 
350
             $queryKeyResult := zq:bind-variable($queryKey,
351
351
                                                   xs:QName('x'),
352
352
                                                   $result),
353
 
             $queryResult := xqxq:evaluate($queryKey);
 
353
             $queryResult := zq:evaluate($queryKey);
354
354
    if ($queryResult)
355
355
    then ()
356
356
    else "'assert-deep-eq' returned: actual result is not deep-equal to expected result."
404
404
                  then concat("'",$expResult,"'")
405
405
                  else $expResult,
406
406
                  ")"));
407
 
    variable  $queryKey := xqxq:prepare-main-module($queryText);
 
407
    variable  $queryKey := zq:prepare-main-module($queryText);
408
408
  
409
 
    xqxq:bind-variable($queryKey,
 
409
    zq:bind-variable($queryKey,
410
410
                      xs:QName('x'),
411
411
                      $result);
412
 
    variable $queryResult := xqxq:evaluate($queryKey);
 
412
    variable $queryResult := zq:evaluate($queryKey);
413
413
    if ($queryResult)
414
414
    then ()
415
415
    else "'assert-eq' returned: result doesn't match expected result."
463
463
      "let $y := (",string(data($expResult)),") return ",
464
464
      "deep-equal(local:order-string-values($x), local:order-string-values($y)) or
465
465
       deep-equal(reverse($x), $y)");
466
 
    variable $queryKey := xqxq:prepare-main-module($queryText),
467
 
             $queryKeyResult := xqxq:bind-variable($queryKey,
 
466
    variable $queryKey := zq:prepare-main-module($queryText),
 
467
             $queryKeyResult := zq:bind-variable($queryKey,
468
468
                                                  xs:QName('x'),
469
469
                                                  $result),
470
 
             $queryResult := xqxq:evaluate($queryKey);
 
470
             $queryResult := zq:evaluate($queryKey);
471
471
    if ($queryResult)
472
472
    then ()
473
473
    else "'assert-permutation' returned: result isn't a permutation of expected result."
609
609
  {
610
610
    variable $queryText := concat( "declare variable $x external; $x instance of ",
611
611
                                  data($expResult));
612
 
    variable $queryKey := xqxq:prepare-main-module($queryText),
613
 
             $queryKeyResult := xqxq:bind-variable($queryKey,
 
612
    variable $queryKey := zq:prepare-main-module($queryText),
 
613
             $queryKeyResult := zq:bind-variable($queryKey,
614
614
                                                  xs:QName('x'),
615
615
                                                  $result),
616
 
             $queryResult := xqxq:evaluate($queryKey);
 
616
             $queryResult := zq:evaluate($queryKey);
617
617
    if ($queryResult)
618
618
    then ()
619
619
    else concat("'assert-type' returned: result doesn't have type '",