view release on metacpan or  search on metacpan

t/riddle-obj.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 12;
use Test::Differences;

use Games::ABC_Path::Generator;

{
    my $gen = Games::ABC_Path::Generator->new({seed => 1});

    my $riddle = $gen->calc_riddle();

    # TEST
    ok ($riddle, "Riddle was initialized");

    # TEST
    is ($riddle->get_riddle_v1_string(),
        <<'EOF',
YGBJNUT
S     R
D     W
F     V
O A   K
M     I
HEXCQPL
EOF
        "get_riddle_v1_string()",
    );

    # TEST
    eq_or_diff($riddle->get_letters_of_clue({ type => 'col', index => 1, }),
        ['B', 'X',],
        'get_letters_of_clue type col',
    );

    # TEST
    eq_or_diff($riddle->get_letters_of_clue({ type => 'row', index => 3, }),
        ['O', 'K',],
        'get_letters_of_clue type row',
    );

    # TEST
    eq_or_diff($riddle->get_letters_of_clue({ type => 'diag', }),
        ['Y', 'L',],
        'get_letters_of_clue type diag',
    );

    # TEST
    eq_or_diff($riddle->get_letters_of_clue({ type => 'antidiag', }),
        ['T', 'H',],
        'get_letters_of_clue type antidiag',
    );

    my $layout = $riddle->get_final_layout();

    # TEST
    ok ($layout, "Layout was returned.");

    # TEST
    is ($layout->get_A_pos(), 16, "A_pos is correct.");

    # TEST
    eq_or_diff(
        $layout->get_A_xy(),