1 #! /usr/bin/env perl 2 # Copyright 2023-2024 The OpenSSL Project Authors. All Rights Reserved. 3 # 4 # Licensed under the Apache License 2.0 (the "License"). You may not use 5 # this file except in compliance with the License. You can obtain a copy 6 # in the file LICENSE in the source distribution or at 7 # https://www.openssl.org/source/license.html 8 9 10 use OpenSSL::Test::Simple; 11 use OpenSSL::Test qw/:DEFAULT srctop_file srctop_dir bldtop_dir bldtop_file data_dir/; 12 use OpenSSL::Test::Utils; 13 use Cwd qw(abs_path); 14 15 BEGIN { 16 setup("test_asn1_stable_parse"); 17 } 18 my $config_path = srctop_file("test", "recipes", "04-test_asn1_stable_parse_data", "asn1_stable_parse.cnf"); 19 20 plan tests => 1; 21 22 ok(run(test(["asn1_stable_parse_test", "-config", $config_path])), 23 "Confirm that malformed entries in stable section are not parsed"); 24 25