#!perl
use strict;
use 5.010;
use Carp;
use Lembas;
foreach my $filename (@ARGV) {
my $spec = IO::File->new($filename, 'r')
or die "Cannot open spec file at '$filename': $!";
my $lembas = Lembas->new_from_test_spec(
handle => $spec);
$lembas->run;
}
done_testing;