1234567891011121314151617181920212223 #!perluse strict;use warnings;use 5.010;use Carp;use Lembas;use Test::More;use IO::File;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;
#!perl
use
strict;
warnings;
5.010;
Carp;
Lembas;
Test::More;
IO::File;
foreach
my
$filename
(
@ARGV
) {
$spec
= IO::File->new(
,
'r'
)
or
die
"Cannot open spec file at '$filename': $!"
;
$lembas
= Lembas->new_from_test_spec(
handle
=>
);
->run;
}
done_testing;