zorba-coders team mailing list archive

[Sorin Marian Nasoi <sorin.marian.nasoi@xxxxxxxxx>]

Sorin Marian Nasoi has proposed merging lp:~zorba-coders/zorba/fix_bug_1079006 into lp:zorba.

Commit message:
Fix for lp:1079006.

Requested reviews:
  Sorin Marian Nasoi (sorin.marian.nasoi)
Related bugs:
  Bug #1079006 in Zorba: "FOTS: write the Query to a file"
  https://bugs.launchpad.net/zorba/+bug/1079006

For more details, see:
https://code.launchpad.net/~zorba-coders/zorba/fix_bug_1079006/+merge/144275

Fix for lp:1079006.
-- 
https://code.launchpad.net/~zorba-coders/zorba/fix_bug_1079006/+merge/144275
Your team Zorba Coders is subscribed to branch lp:zorba.

=== modified file 'test/fots_driver/cli.xq'
--- test/fots_driver/cli.xq	2012-12-12 08:18:55 +0000
+++ test/fots_driver/cli.xq	2013-01-22 11:06:24 +0000
@@ -50,7 +50,7 @@
 declare variable $testCaseName as xs:string external := "";
 
 (:~ Enable or disable verbose output :)
-declare variable $verbose as xs:string external := "true";
+declare variable $verbose as xs:string external := "false";
 
 (:~ assertion type :)
 declare variable $assertType as xs:string external := "";

=== modified file 'test/fots_driver/fots-driver.xq'
--- test/fots_driver/fots-driver.xq	2012-12-21 13:28:10 +0000
+++ test/fots_driver/fots-driver.xq	2013-01-22 11:06:24 +0000
@@ -556,8 +556,14 @@
                                                   $case,
                                                   $env,
                                                   $envBaseURI,
-                                                  $testSetBaseURI),
-           $startDateTime := datetime:current-dateTime (),
+                                                  $testSetBaseURI);
+
+  (: if $verbose then print the query to a file :)
+  if($verbose)
+  then util:write-query-to-file($xqxqQuery, $queryName);
+  else ();
+
+  variable $startDateTime := datetime:current-dateTime (),
            $result := driver:xqxq-invoke($xqxqQuery,
                                          $case,
                                          $verbose,

=== modified file 'test/fots_driver/util.xq'
--- test/fots_driver/util.xq	2012-11-14 14:02:58 +0000
+++ test/fots_driver/util.xq	2013-01-22 11:06:24 +0000
@@ -49,7 +49,7 @@
     <output:indent                value="no"  />
     <output:omit-xml-declaration  value="yes" />
   </output:serialization-parameters>;
-  
+
 (:~
  : The serialization parameters for XML serialization.
  :)
@@ -117,3 +117,12 @@
                      $SerParams)
    else fn:string($res)
 };
+
+declare %ann:sequential function util:write-query-to-file(
+  $query        as xs:string,
+  $queryName    as xs:string
+) {
+  file:write(concat("query_", $queryName, ".xq"),
+             $query,
+             $util:serParamXml);
+};