michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-08-22 06:50:34 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Add shared test file helpers

Browse Source
This commit is contained in:
Ilia Ross
2026-08-10 21:37:11 +02:00
parent b7aed03758
commit 07f0ddfb6d
2 changed files with 34 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
logrotate/t/run-tests.t
View File

@@ -7,9 +7,13 @@ use File::Basename qw(dirname);
use File::Path qw(make_path);
use File::Temp qw(tempdir);
# Build an isolated openSUSE-style /etc and /usr/etc configuration layout.
my $module_dir = abs_path(dirname(abs_path($0))."/..");
# Locate the repository and load its common test helpers.
my $test_dir = dirname(abs_path($0));
my $module_dir = abs_path("$test_dir/..");
my $root_dir = abs_path("$module_dir/..");
require "$root_dir/t/test-lib.pl";
# Build an isolated openSUSE-style /etc and /usr/etc configuration layout.
my $config_dir = tempdir(CLEANUP => 1);
my $var_dir = tempdir(CLEANUP => 1);
my $fixture_dir = tempdir(CLEANUP => 1);
@@ -22,28 +26,6 @@ make_path("$config_dir/logrotate", $local_add_dir,
"$local_add_dir/nested", "$vendor_add_dir/deep",
"$vendor_add_dir/nested", dirname($wrapper));
# write_text(file, contents)
# Writes a text fixture and fails the test immediately on an I/O error
sub write_text
{
my ($file, $text) = @_;
open(my $fh, ">", $file) or die "open $file: $!";
print $fh $text;
close($fh) or die "close $file: $!";
}
# read_text(file)
# Returns the complete contents of a text fixture
sub read_text
{
my ($file) = @_;
open(my $fh, "<", $file) or die "open $file: $!";
local $/;
my $text = <$fh>;
close($fh) or die "close $file: $!";
return $text;
}
# Populate both trees with vendor-only, local-only, nested, and overridden
# files so the fixture exercises the wrapper's key overlay rules.
my $vendor_main_text =

28
t/test-lib.pl Normal file
View File

@@ -0,0 +1,28 @@
# Common helpers for Webmin tests.
use strict;
use warnings;
# write_text(file, contents)
# Writes a text fixture and fails the test immediately on an I/O error
sub write_text
{
my ($file, $text) = @_;
open(my $fh, ">", $file) or die "open $file: $!";
print $fh $text;
close($fh) or die "close $file: $!";
}
# read_text(file)
# Returns the complete contents of a text fixture
sub read_text
{
my ($file) = @_;
open(my $fh, "<", $file) or die "open $file: $!";
local $/;
my $text = <$fh>;
close($fh) or die "close $file: $!";
return $text;
}
1;