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

  • 5578b56
  • /
  • test
  • /
  • recipes
  • /
  • 01-test_fipsmodule_cnf.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:ce594817d537a50bba01a9b59f2d71be4c6fb1a4
directory badge Iframe embedding
swh:1:dir:dcb1e22f1d94d87a6882e2a81530ffdc10513afb
01-test_fipsmodule_cnf.t
#! /usr/bin/env perl
# Copyright 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

# This is a sanity checker to see that the fipsmodule.cnf that's been
# generated for testing is valid.

use strict;
use warnings;

use OpenSSL::Test qw/:DEFAULT srctop_dir bldtop_dir bldtop_file srctop_file data_file/;
use OpenSSL::Test::Utils;

BEGIN {
    setup("test_fipsmodule");
}

use lib srctop_dir('Configurations');
use lib bldtop_dir('.');
use platform;

my $no_check = disabled("fips");
plan skip_all => "Test only supported in a fips build"
    if $no_check;
plan tests => 1;

my $fipsmodule = bldtop_file('providers', platform->dso('fips'));
my $fipsmoduleconf = bldtop_file('test', 'fipsmodule.cnf');

# verify the $fipsconf file
ok(run(app(['openssl', 'fipsinstall',
            '-in',  $fipsmoduleconf, '-module', $fipsmodule, '-verify'])),
   "fipsinstall verify");

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

back to top