/**

Copyright (c) Scott Gasch

Module Name:

    testsan.c

Abstract:

    Tests the SAN-style (Nbd5) move parser. 

Author:

    Scott Gasch (scott.gasch@gmail.com) 13 May 2004

Revision History:

    $Id: testsan.c 345 2007-12-02 22:56:42Z scott $

**/

#ifdef TEST
#include "chess.h"

void 
TestSan(void)
/**

Routine description:

    Tests the SAN-style (Nbd5) move parser.

Parameters:

    void

Return value:

    void

**/
{
    typedef struct _TEST_SAN_MOVE
    {
        CHAR *szSAN;
        MOVE mv;
    }
    TEST_SAN_MOVE;
    TEST_SAN_MOVE x[] = 
    {
        { "b8=Q",  { MAKE_MOVE(B7, B8, WHITE_PAWN, 0, WHITE_QUEEN, MOVE_FLAG_SPECIAL) } },
        { "b8Q",   { MAKE_MOVE(B7, B8, WHITE_PAWN, 0, WHITE_QUEEN, MOVE_FLAG_SPECIAL) } },
        { "o-o",   { MAKE_MOVE(0,0,0,0,0,0) } },
        { "0-0",   { MAKE_MOVE(0,0,0,0,0,0) } },
        { "o-o-o", { MAKE_MOVE(E1, C1, WHITE_KING, 0, 0, MOVE_FLAG_SPECIAL) } },
        { "0-0-0", { MAKE_MOVE(E1, C1, WHITE_KING, 0, 0, MOVE_FLAG_SPECIAL) } },
        { "Bxc4",  { MAKE_MOVE(A2, C4, WHITE_BISHOP, BLACK_PAWN, 0, 0) } },
        { "Bec4",  { MAKE_MOVE(0,0,0,0,0,0) } },
        { "h3",    { MAKE_MOVE(H2, H3, WHITE_PAWN, 0, 0, 0) } },
        { "h4",    { MAKE_MOVE(H2, H4, WHITE_PAWN, 0, 0, MOVE_FLAG_SPECIAL) } },
        { "N2xc4", { MAKE_MOVE(B2, C4, WHITE_KNIGHT, BLACK_PAWN, 0, 0) } },
        { "Nb6c4", { MAKE_MOVE(B6, C4, WHITE_KNIGHT, BLACK_PAWN, 0, 0) } },
        { "Nxd7",  { MAKE_MOVE(B6, D7, WHITE_KNIGHT, BLACK_BISHOP, 0, 0) } },
        { "hxg3",  { MAKE_MOVE(H2, G3, WHITE_PAWN, BLACK_KNIGHT, 0, 0) } },
        { "Qxd7++",{ MAKE_MOVE(D2, D7, WHITE_QUEEN, BLACK_BISHOP, 0, 0) } },
        { "Qxd7#" ,{ MAKE_MOVE(D2, D7, WHITE_QUEEN, BLACK_BISHOP, 0, 0) } },
        { "f6",    { MAKE_MOVE(F5, F6, WHITE_PAWN, 0, 0, 0) } },
        { "bxa8=N",{ MAKE_MOVE(B7, A8, WHITE_PAWN, BLACK_ROOK, WHITE_KNIGHT, MOVE_FLAG_SPECIAL) } },
    };
    POSITION pos;
    ULONG u;
    MOVE mvSAN;
    
    Trace("Testing SAN parser code...\n");
    for (u = 0;
         u < ARRAY_LENGTH(x);
         u++)
    {
        if (FALSE == FenToPosition(&pos, 
                                   "r2kr3/pP1b2nb/1N6/5P2/2p5/6n1/BN1QBP1P/R3K2R w KQ - 0 1"))
        {
            UtilPanic(INCONSISTENT_STATE,
                      NULL, NULL, NULL, NULL,
                      __FILE__, __LINE__);
        }

        mvSAN = ParseMoveSan(x[u].szSAN, &pos);
        if (mvSAN.uMove != x[u].mv.uMove)
        {
            UtilPanic(TESTCASE_FAILURE,
                      NULL, "ParseMoveSan", NULL, NULL,
                      __FILE__, __LINE__);
        }
    }
}
#endif