1e1051a39Sopenharmony_ci#! /usr/bin/env perl 2e1051a39Sopenharmony_ci# Copyright 2020 The OpenSSL Project Authors. All Rights Reserved. 3e1051a39Sopenharmony_ci# 4e1051a39Sopenharmony_ci# Licensed under the Apache License 2.0 (the "License"). You may not use 5e1051a39Sopenharmony_ci# this file except in compliance with the License. You can obtain a copy 6e1051a39Sopenharmony_ci# in the file LICENSE in the source distribution or at 7e1051a39Sopenharmony_ci# https://www.openssl.org/source/license.html 8e1051a39Sopenharmony_ci 9e1051a39Sopenharmony_ci 10e1051a39Sopenharmony_ciuse strict; 11e1051a39Sopenharmony_ciuse warnings; 12e1051a39Sopenharmony_ci 13e1051a39Sopenharmony_ciuse File::Spec; 14e1051a39Sopenharmony_ciuse OpenSSL::Test::Utils; 15e1051a39Sopenharmony_ciuse OpenSSL::Test qw/:DEFAULT srctop_file/; 16e1051a39Sopenharmony_ci 17e1051a39Sopenharmony_cisetup("test_rusext"); 18e1051a39Sopenharmony_ci 19e1051a39Sopenharmony_ciplan tests => 5; 20e1051a39Sopenharmony_ci 21e1051a39Sopenharmony_cirequire_ok(srctop_file('test', 'recipes', 'tconversion.pl')); 22e1051a39Sopenharmony_cimy $pem = srctop_file("test/certs", "grfc.pem"); 23e1051a39Sopenharmony_cimy $out_msb = "grfc.msb"; 24e1051a39Sopenharmony_cimy $out_utf8 = "grfc.utf8"; 25e1051a39Sopenharmony_ci 26e1051a39Sopenharmony_ciok(run(app(["openssl", "x509", "-text", "-in", $pem, "-out", $out_msb, 27e1051a39Sopenharmony_ci "-nameopt", "esc_msb", "-certopt", "no_pubkey"]))); 28e1051a39Sopenharmony_ciis(cmp_text($out_msb, srctop_file('test', 'recipes', '25-test_rusext_data', 'grfc.msb')), 29e1051a39Sopenharmony_ci 0, 'Comparing esc_msb output'); 30e1051a39Sopenharmony_ciok(run(app(["openssl", "x509", "-text", "-in", $pem, "-out", $out_utf8, 31e1051a39Sopenharmony_ci "-nameopt", "utf8", "-certopt", "no_pubkey"]))); 32e1051a39Sopenharmony_ciis(cmp_text($out_utf8, srctop_file('test', 'recipes', '25-test_rusext_data', 'grfc.utf8')), 33e1051a39Sopenharmony_ci 0, 'Comparing utf8 output'); 34