michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-07-25 10:50:31 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Add new test for miniserv library loading

Browse Source
This commit is contained in:
Ilia Ross
2026-07-05 03:11:21 +02:00
parent 866f8a8f69
commit f71905fc83
1 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
t/compile.t
View File

@@ -24,7 +24,7 @@ use Test::More;
use File::Find;
use File::Basename qw(dirname);
use File::Spec;
use Cwd qw(abs_path);
use Cwd qw(abs_path getcwd);
my $root = abs_path(File::Spec->catdir(dirname(__FILE__), '..'));
chdir($root) or die "chdir($root): $!";
@@ -68,6 +68,22 @@ if ($filter) {
@files or do { diag("filter '$filter' matched zero files"); plan skip_all => "no files match filter"; };
}
if (grep { $_ eq q{./miniserv.pl} } @files) {
my $cwd = getcwd();
my $tmpdir = File::Spec->tmpdir();
my $miniserv = File::Spec->catfile($root, q{miniserv.pl});
chdir($tmpdir) or BAIL_OUT("chdir($tmpdir): $!");
my $out = qx{perl -c -- "$miniserv" 2>&1};
chdir($cwd) or BAIL_OUT("chdir($cwd): $!");
if ($out =~ /\bsyntax OK\b/) {
pass(q{miniserv.pl compiles outside the source tree});
}
else {
fail(q{miniserv.pl compiles outside the source tree});
diag($out);
}
}
diag("compile-checking " . scalar(@files) . " files");
for my $f (@files) {