(:---------------------------------------------------------------

Various XQueries that test database connectivity

----------------------------------------------------------------:)

declare function q ($n,$q) { "Query {$n}:\n{$q}\n" }
;
q(0,sql("select e.fname, e.lname from employee e, department d where e.dno=d.dnumber and d.dname=?","Research"))
;
q(1,publish('myDB','c')//gradstudent[.//lastname='Galanis']/gpa)
;
q(2,for $s in publish('myDB','c')//gradstudent where $s//lastname='Galanis' return $s//gpa)
;
q(3,publish('myDB','c')//department[deptname]//gradstudent[.//lastname='Galanis']/gpa)
;
q(4,publish('myDB','c')//department[deptname='Computer Sciences']//gradstudent[.//lastname='Galanis']/gpa)
;
q(5,publish('myDB','c')//department/*[.//lastname='Galanis']/gpa)
;
q(6,publish('myDB','c')//*[.//lastname='Galanis']/gpa)
;
q(7,publish('myDB','c')//department[deptname]/deptname)
;
q(8,publish('myDB','c')//gradstudent[.//lastname='Galanis']/../deptname)
;
q(9,for $s in publish('myDB','c')/department/gradstudent return $s/../deptname)
;
q(10,publish('myDB','s')//article[.//author='David Maier']//title)
;
q(11,publish('myDB','s')//article[.//author='David Maier'][initPage=35]/title)