view release on metacpan or  search on metacpan

t/solver-output-system-test.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 6;
use Test::Differences qw( eq_or_diff );

sub _slurp
{
    my $filename = shift;

    open my $in, "<", $filename
        or die "Cannot open '$filename' for slurping - $!";

    local $/;
    my $contents = <$in>;

    close($in);

    return $contents;
}

{
    my $got_results =
        `$^X -Mblib scripts/abc-path-solve t/layouts/brain-bashers.2010-12-21.abc-path`
        ;

    # TEST
    ok ((!$?), "Process ended successfully.");

    my $exp_results =
        _slurp('./t/results/brain-bashers.2010-12-21.abc-path-sol');

    # TEST
    eq_or_diff(
        $got_results,
        $exp_results,
        "Output is OK.",
    );
}

{
    my $got_results =
        `$^X -Mblib scripts/abc-path-solve t/layouts/brain-bashers.2010-12-22.abc-path`
        ;

    # TEST
    ok ((!$?), "Process ended successfully.");

    my $exp_results =
        _slurp('./t/results/brain-bashers.2010-12-22.abc-path-sol');

    # TEST
    eq_or_diff(
        $got_results,
        $exp_results,
        "Output is OK.",
    );
}

{
    my $got_results =
        `$^X -Mblib scripts/abc-path-solve --gen-v1-template`
        ;

    # TEST