X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2Fsyntax;h=92455457ef143b704b4745a0a9256d96f25747d7;hb=2fda039fdf31d1807c7bcdb4b1ccf58607781a9a;hp=b647b915d4bfe90f9e8044b1192028346c1748e0;hpb=c871b973337d20ab75e2753dbd8902c8e5c49a8c;p=debhelper.git diff --git a/t/syntax b/t/syntax old mode 100644 new mode 100755 index b647b91..9245545 --- a/t/syntax +++ b/t/syntax @@ -1,11 +1,12 @@ #!/usr/bin/perl use Test; -my @progs=grep { -x $_ } glob("dh_*"); -my @libs=glob("Debian/Debhelper/*.pm"); +my @progs=grep { -x $_ } glob("dh_*"), "dh"; +my @libs=(glob("Debian/Debhelper/*.pm"), glob("Debian/Debhelper/*/*.pm")); plan(tests => (@progs + @libs)); foreach my $file (@progs, @libs) { + print "# Testing $file\n"; ok(system("perl -c $file >/dev/null 2>&1"), 0); }