From a3f3ed65a34320d229a9fb62e57732e42daf0a39 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Fri, 14 Feb 2020 08:42:05 +0100 Subject: [PATCH] TEST: Modify test/recipes/80-test_ssl_new.t to leave artifacts behind Reviewed-by: Paul Dale (Merged from https://github.com/openssl/openssl/pull/11080) --- test/recipes/80-test_ssl_new.t | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/test/recipes/80-test_ssl_new.t b/test/recipes/80-test_ssl_new.t index 04a0c13394..01a49173d6 100644 --- a/test/recipes/80-test_ssl_new.t +++ b/test/recipes/80-test_ssl_new.t @@ -120,17 +120,16 @@ sub test_conf { my ($conf, $check_source, $skip) = @_; my $conf_file = srctop_file("test", "ssl-tests", $conf); - my $tmp_file = "${conf}.$$.tmp"; + my $input_file = $conf_file . ".in"; + my $output_file = $conf; my $run_test = 1; SKIP: { # "Test" 1. Generate the source. - my $input_file = $conf_file . ".in"; - skip 'failure', 2 unless ok(run(perltest(["generate_ssl_tests.pl", $input_file], interpreter_args => [ "-I", srctop_dir("util", "perl")], - stdout => $tmp_file)), + stdout => $output_file)), "Getting output from generate_ssl_tests.pl."); SKIP: { @@ -138,7 +137,7 @@ sub test_conf { skip "Skipping generated source test for $conf", 1 if !$check_source; - $run_test = is(cmp_text($tmp_file, $conf_file), 0, + $run_test = is(cmp_text($output_file, $conf_file), 0, "Comparing generated sources."); } @@ -146,10 +145,8 @@ sub test_conf { skip "No tests available; skipping tests", 1 if $skip; skip "Stale sources; skipping tests", 1 if !$run_test; - ok(run(test(["ssl_test", $tmp_file])), "running ssl_test $conf"); + ok(run(test(["ssl_test", $output_file])), "running ssl_test $conf"); } - - unlink glob $tmp_file; } sub cmp_text { -- 2.25.1