Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (12 sloc) 314 Bytes
use strict;
use warnings;
use Test::More;
unless (grep { -e "$_/ucmlint" } split /:/, $ENV{PATH}) {
plan skip_all => "ucmlint is not in your PATH";
}
my @ucm = glob("ucm/*.ucm");
plan tests => 1*@ucm;
for my $ucm (@ucm) {
my $res = `ucmlint $ucm`;
like $res, qr/no error found/, "$ucm is good";
}