#!/usr/bin/perl
use strict;
use warnings;
use autodie;
use Games::Solitaire::Verify::Solution::ExpandMultiCardMoves;
my $input_filename = shift(@ARGV);
open (my $input_fh, "<", $input_filename);
my $solution = Games::Solitaire::Verify::Solution::ExpandMultiCardMoves->new(
{
input_fh => $input_fh,
variant => "freecell",
output_fh => \*STDOUT,
},
);
my $ret = $solution->verify();
close($input_fh);
if ($ret)
{
die $ret;
}