view release on metacpan or  search on metacpan

t/01-run.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 20;

use Path::Tiny           qw/ path cwd /;
use Dir::Manifest::Slurp qw/ as_lf /;
use Test::Differences    qw/ eq_or_diff /;

use lib "./t/lib";

use Games::Solitaire::BlackHole::Test qw/ _test_multiple_verdict_lines /;

sub _filename
{
    return cwd()->child( "t", "data", shift() );
}

sub _filename_2to3
{
    my $n = shift;
    return cwd()
        ->child( "t", "data", "run-2-to-3-with-3-unsolved", "bh${n}.board" );
}

sub _filename_maxiters2000
{
    my $n = shift;
    return cwd()
        ->child( "t", "data", "run-with-max-iters-2000", "bh${n}.board" );
}

sub _exe
{
    return cwd()->child( "bin", shift );
}

my $BHS    = _exe("black-hole-solve");
my $GOLF_S = _exe("golf-solitaire-solve-perl");

my $solution1 = <<'EOF';
Solved!
2D
3H
2S
3C
4H
5S
6D
7C
8C
9H
TH
9S
8S
9D
TC
JS
QC
KS
QH
JC
TS
JH
QS
KH
AC
2C