Skip to main content
  • Home
  • login
  • Browse the archive

    swh mirror partner logo
swh logo
SoftwareHeritage
Software
Heritage
Mirror
Features
  • Search

  • Downloads

  • Save code now

  • Add forge now

  • Help

  • 0bfd997
  • /
  • test
  • /
  • recipes
  • /
  • 04-test_encoder_decoder_legacy.t
Raw File
Permalinks

To reference or cite the objects present in the Software Heritage archive, permalinks based on SoftWare Hash IDentifiers (SWHIDs) must be used.
Select below a type of object currently browsed in order to display its associated SWHID and permalink.

  • content
  • directory
content badge Iframe embedding
swh:1:cnt:119d2ee74011d240acbc871bb13ab48d52634603
directory badge Iframe embedding
swh:1:dir:3a4ea74984a3f95756619e06bc006f8d762fe538
04-test_encoder_decoder_legacy.t
#! /usr/bin/env perl
# Copyright 2020-2021 The OpenSSL Project Authors. All Rights Reserved.
#
# Licensed under the Apache License 2.0 (the "License").  You may not use
# this file except in compliance with the License.  You can obtain a copy
# in the file LICENSE in the source distribution or at
# https://www.openssl.org/source/license.html

use strict;
use warnings;

use OpenSSL::Test::Simple;
use OpenSSL::Test qw/:DEFAULT srctop_file bldtop_dir/;
use OpenSSL::Test::Utils;
use Cwd qw(abs_path);

setup("test_encoder_decoder_legacy");

plan skip_all => "Not available in a no-deprecated build"
    if disabled("deprecated");
plan tests => 1;

$ENV{OPENSSL_MODULES} = abs_path(bldtop_dir("providers"));
$ENV{OPENSSL_CONF} = abs_path(srctop_file("test", "default.cnf"));

my $rsa_key = srctop_file("test", "certs", "ee-key.pem");
my $dh_key = srctop_file("test", "certs", "dhk2048.pem");

ok(run(test(["endecoder_legacy_test", $rsa_key, $dh_key])));

ENEA — Copyright (C), ENEA. License: GNU AGPLv3+.
Legal notes  ::  JavaScript license information ::  Web API

back to top