Chris@0: /*  This file is part of ClioPatria.
Chris@0: 
Chris@0:     Author:
Chris@0:     HTTP:	http://e-culture.multimedian.nl/
Chris@0:     GITWEB:	http://gollem.science.uva.nl/git/ClioPatria.git
Chris@0:     GIT:	git://gollem.science.uva.nl/home/git/ClioPatria.git
Chris@0:     GIT:	http://gollem.science.uva.nl/home/git/ClioPatria.git
Chris@0:     Copyright:  2007, E-Culture/MultimediaN
Chris@0: 
Chris@0:     ClioPatria is free software: you can redistribute it and/or modify
Chris@0:     it under the terms of the GNU General Public License as published by
Chris@0:     the Free Software Foundation, either version 2 of the License, or
Chris@0:     (at your option) any later version.
Chris@0: 
Chris@0:     ClioPatria is distributed in the hope that it will be useful,
Chris@0:     but WITHOUT ANY WARRANTY; without even the implied warranty of
Chris@0:     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Chris@0:     GNU General Public License for more details.
Chris@0: 
Chris@0:     You should have received a copy of the GNU General Public License
Chris@0:     along with ClioPatria.  If not, see <http://www.gnu.org/licenses/>.
Chris@0: */
Chris@0: 
Chris@0: :- use_module(serql).
Chris@0: 
Chris@0: test :-
Chris@0: 	forall(e(N, _), test(N)).
Chris@0: 
Chris@0: test(N) :-
Chris@0: 	e(N, Query),
Chris@0: 	format('~`=t~72|~n'),
Chris@0: 	format('Query: ~w~n', [Query]),
Chris@0: 	format('~`=t~72|~n'),
Chris@0: 	catch(serql_compile(Query, _, []), E, print_message(error, E)).
Chris@0: 
Chris@0: e(1, 'select x y from').
Chris@0: e(2, 'select x from {x}').
Chris@0: e(3, 'select x from {x} <rdfs:label>').
Chris@0: e(4, 'select x from {x} <rdfs:label> {vp:Subject} using namespace vp <foo>').
Chris@0: e(5, 'select x from {x} <rdfs:label> {vp:Subject} using namespace vp = <foo').
Chris@0: e(6, 'select x from {x} <rdfs:label> {vp:Subject} using namespace vp = <http://foo').