#This file is part of SECONDO.
#
#Copyright (C) 2004-2007, University in Hagen, Faculty of Mathematics and Computer Science, 
#Database Systems for New Applications.
#
#SECONDO is free software; you can redistribute it and/or modify
#it under the terms of the GNU General Public License as published by
#the Free Software Foundation; either version 2 of the License, or
#(at your option) any later version.
#
#SECONDO is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#GNU General Public License for more details.
#
#You should have received a copy of the GNU General Public License
#along with SECONDO; if not, write to the Free Software
#Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#


# A test for the Chess Algebra

# clean up what may be left over from e.g. a segfault
delete database chesstest;

#setup chesstest ChessAlgebra
create database chesstest;
open database chesstest;

let allFiles = [ const rel(tuple([File: string])) 
  value (("a")("b")("c")("d")("e")("f")("g")("h")) ];

# define point constants for positions
let a1 = [ const point value (1 1) ];
let a8 = [ const point value (1 8) ];
let h1 = [ const point value (8 1) ];
let h8 = [ const point value (8 8) ];

let wjc2 = readpgn('wjc.pgn') namedtransformstream[Match] extend[No: seqnext()] consume;

#testcase chess1
#yields (int 359)
query wjc2 count;

#testcase 4rooks 
#yields (int 7)
@query_4rooks;

#testcase castling 
#yields (int 10)
@query_castling;

#testcase lostqueen
#yields (int 20)
@query_lostqueen;

#testcase samepos 
#yields (int 5)
@query_samepos;

#testcase 4corners 
#yields (int 4)
@query_4corners;

#testcase pawn promotions 
#yields (int 8)
@query_pawnpro;


#teardown
close database;
delete database chesstest;