1*0e2e28bcSchristos#! /usr/bin/env perl 2*0e2e28bcSchristos# Copyright 2023 The OpenSSL Project Authors. All Rights Reserved. 3*0e2e28bcSchristos# 4*0e2e28bcSchristos# Licensed under the Apache License 2.0 (the "License"). You may not use 5*0e2e28bcSchristos# this file except in compliance with the License. You can obtain a copy 6*0e2e28bcSchristos# in the file LICENSE in the source distribution or at 7*0e2e28bcSchristos# https://www.openssl.org/source/license.html 8*0e2e28bcSchristos 9*0e2e28bcSchristosuse strict; 10*0e2e28bcSchristosuse OpenSSL::Test qw(:DEFAULT srctop_file); 11*0e2e28bcSchristosuse OpenSSL::Test::Utils; 12*0e2e28bcSchristos 13*0e2e28bcSchristossetup("test_asn1_parse"); 14*0e2e28bcSchristos 15*0e2e28bcSchristosplan tests => 3; 16*0e2e28bcSchristos 17*0e2e28bcSchristos$ENV{OPENSSL_CONF} = srctop_file("test", "test_asn1_parse.cnf"); 18*0e2e28bcSchristos 19*0e2e28bcSchristosok(run(app(([ 'openssl', 'asn1parse', 20*0e2e28bcSchristos '-genstr', 'OID:1.2.3.4.1'])))); 21*0e2e28bcSchristos 22*0e2e28bcSchristosok(run(app(([ 'openssl', 'asn1parse', 23*0e2e28bcSchristos '-genstr', 'OID:1.2.3.4.2'])))); 24*0e2e28bcSchristos 25*0e2e28bcSchristosok(run(app(([ 'openssl', 'asn1parse', 26*0e2e28bcSchristos '-genstr', 'OID:1.2.3.4.3'])))); 27