From 10e34eda4dd9720265e617c7eedcd3f9877aecdb Mon Sep 17 00:00:00 2001 From: Jacob Bachmeyer Date: Fri, 28 Apr 2023 19:00:32 -0500 Subject: [PATCH] Ensure that directories mentioned in keymaster test configurations exist --- testsuite/lib/tool/keymaster.exp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/testsuite/lib/tool/keymaster.exp b/testsuite/lib/tool/keymaster.exp index bf12086..0bd0a07 100644 --- a/testsuite/lib/tool/keymaster.exp +++ b/testsuite/lib/tool/keymaster.exp @@ -22,8 +22,16 @@ if { ! [info exists PERL] } { set PERL perl } if { ! [info exists CHECK_COVERAGE] } { set CHECK_COVERAGE no } proc write_test_config { base_dir config } { - put_file [file join $base_dir test.conf] \ + set config_text \ [regsub -all -line -- {^[ \t]+} [uplevel 1 subst [list $config]] ""] + put_file [file join $base_dir test.conf] $config_text + + # ensure that directories named in the configuration exist + foreach line [split $config_text "\n"] { + if { [regexp {dir\s*=\s*(\S+)} $line -> dir] } { + file mkdir $dir + } + } } proc make_test_environment { base_dir } { -- 2.25.1