# t/01_compile.t - Script compilation tests # # Copyright (C) 2016 Libiquity LLC # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 3 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . use strict; use warnings; use Test::More; use Test::Script; my $scripts; my $script; sub find_scripts { my $manifest_fh; my $file; my $scripts = []; open($manifest_fh, "<", "MANIFEST"); while ($file = readline($manifest_fh)) { chomp($file); if ($file =~ m@^(bin|lib)/@) { push(@$scripts, $file); } } close($manifest_fh); return $scripts; } $scripts = find_scripts(); plan("tests" => @{$scripts} + 0); for $script (@{$scripts}) { script_compiles($script); }