root/lang/perl/Encode-JP-Mobile/trunk/t/author-ucmlint.t @ 4836

Revision 4836, 201 bytes (checked in by miyagawa, 6 years ago)

add author-ucmlint.t

Line 
1use strict;
2use warnings;
3use Test::More;
4
5my @ucm = glob("ucm/*.ucm");
6plan tests => 1*@ucm;
7
8for my $ucm (@ucm) {
9    my $res = `ucmlint $ucm`;
10    like $res, qr/no error found/, "$ucm is good";
11}
12
13
Note: See TracBrowser for help on using the browser.