From 000edfec502c0eed742d07e3ac02c2012381ee5e Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Thu, 22 Feb 2018 23:39:01 +0100 Subject: [PATCH] Adapt 15-test_out_option.t for more than just Unix Reviewed-by: Rich Salz (Merged from https://github.com/openssl/openssl/pull/4008) --- test/recipes/15-test_out_option.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/recipes/15-test_out_option.t b/test/recipes/15-test_out_option.t index a4ca7cfa45..018ff3d00d 100644 --- a/test/recipes/15-test_out_option.t +++ b/test/recipes/15-test_out_option.t @@ -31,8 +31,8 @@ plan tests => 11; test_illegal_path('/usr/'); test_illegal_path('/'); -test_illegal_path('.'); -test_illegal_path('..'); +test_illegal_path('./'); +test_illegal_path('../'); # Test for trying to create a file in a non-exist directory my @chars = ("A".."Z", "a".."z", "0".."9"); @@ -44,7 +44,7 @@ test_legal_path('test.pem'); unlink 'test.pem'; sub test_illegal_path { - my ($path) = @_; + my $path = File::Spec->canonpath($_[0]); my $start = time(); ok(!run(app([ 'openssl', 'genrsa', '-out', $path, '16384'])), "invalid output path: $path"); @@ -54,7 +54,7 @@ sub test_illegal_path { } sub test_legal_path { - my ($path) = @_; + my $path = File::Spec->canonpath($_[0]); ok(run(app([ 'openssl', 'genrsa', '-out', $path, '2048'])), "valid output path: $path"); } -- 2.34.1