Test::DH: Support extra per-test template files

Signed-off-by: Niels Thykier <niels@thykier.net>

1 files changed, 9 insertions, 0 deletions

diff --git a/t/Test/DH.pm b/t/Test/DH.pm
index 8e710d25..82398f67 100644
--- a/t/Test/DH.pm
+++ b/t/Test/DH.pm
@@ -42,6 +42,7 @@ our @EXPORT = qw(
 our ($TEST_DH_COMPAT, $ROOT_OK, $ROOT_CMD);
 
 my $START_DIR = cwd();
+my $TEST_DIR;
 
 sub run_dh_tool {
     my (@cmd) = @_;
@@ -104,6 +105,14 @@ sub _prepare_test_root {
         for my $file (@files) {
             install_file($file, "${dir}/${file}");
         }
+        if (@::TEST_DH_EXTRA_TEMPLATE_FILES) {
+            my $test_dir = ($TEST_DIR //= dirname($0));
+            for my $file (@::TEST_DH_EXTRA_TEMPLATE_FILES) {
+                my $install_dir = dirname($file);
+                install_dir($install_dir);
+                install_file("${test_dir}/${file}", "${dir}/${file}");
+            }
+        }
     }
     return $dir;
 }