The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

GUIDO / Chess-Opening-0.6 / t / eco-book.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102

              
#! /usr/bin/env perl
# Copyright (C) 2019 Guido Flohr <guido.flohr@cantanea.com>,
# all rights reserved.
# This program is free software. It comes without any warranty, to
# the extent permitted by applicable law. You can redistribute it
# and/or modify it under the terms of the Do What the Fuck You Want
# to Public License, Version 2, as published by Sam Hocevar. See
# http://www.wtfpl.net/ for more details.
use common::sense;
use Test::More;
use Chess::Opening::Book::ECO;
use Chess::Opening::ECO::Entry;
use POSIX;
BEGIN {
        delete $ENV{LANGUAGE};
        $ENV{LANG} = $ENV{LC_MESSAGES} = $ENV{LC_ALL} = 'C';
        POSIX::setlocale(POSIX::LC_ALL(), 'C');
}
my $book = Chess::Opening::Book::ECO->new;
ok $book;
ok $book->isa('Chess::Opening::Book');
my @test_cases = (
        {
                fen => 'rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR w KQkq',
                moves => [
                        'a2a3',
                        'a2a4',
                        'b1a3',
                        'b1c3',
                        'b2b3',
                        'b2b4',
                        'c2c3',
                        'c2c4',
                        'd2d3',
                        'd2d4',
                        'e2e3',
                        'e2e4',
                        'f2f3',
                        'f2f4',
                        'g1f3',
                        'g1h3',
                        'g2g3',
                        'g2g4',
                        'h2h3',
                        'h2h4',
                ],
                eco => 'A00',
                xeco => 'A00a',
                variation => 'Start',
        },
        {
                fen => 'rnbqkbnr/pppp1ppp/8/4p3/8/5P2/PPPPP1PP/RNBQKBNR w KQkq',
                moves => [
                        'e1f2',
                ],
                eco => 'A00',
                xeco => 'A00b',
                variation => 'Barnes Opening',
        },
        {
                fen => 'rnbqr1k1/pp3pbp/3p1np1/2pP4/4P3/2N2N2/PP2BPPP/R1BQ1RK1 w -',
                moves => [
                                'd1c2',
                                'f3d2',
                ],
                eco => 'A76',
                xeco => 'A76',
                variation => 'Benoni: Classical, Main Line',
        },
);
foreach my $tc (@test_cases) {
        my $fen = $tc->{fen};
        my $entry = $book->lookupFEN($fen);
        ok $entry, "FEN: $fen";
        ok ref $entry;
        ok $entry->isa('Chess::Opening::ECO::Entry');
        is $entry->eco, $tc->{eco}, $fen;
        is $entry->xeco, $tc->{xeco}, $fen;
        is $entry->variation, $tc->{variation}, $fen;
        is $entry->counts,  scalar @{$tc->{moves}}, "FEN: $fen";
        is $entry->weights,  scalar @{$tc->{moves}}, "FEN: $fen";
        my $moves = $entry->moves;
        foreach my $move (@{$tc->{moves}}) {
                is $moves->{$move}->move, $move, "FEN: $fen";
                is $moves->{$move}->learn, 0, "FEN: $fen";
                is $moves->{$move}->count, 1, "FEN: $fen";
        }
}
done_testing;