Raise an error on syscall failure in tls_retry_write_records
[openssl.git] / test / recipes / 30-test_acvp.t
1 #! /usr/bin/env perl
2 # Copyright 2020-2021 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 use strict;
10 use warnings;
11
12 use OpenSSL::Test qw(:DEFAULT bldtop_dir srctop_dir srctop_file bldtop_file);
13 use OpenSSL::Test::Utils;
14
15 BEGIN {
16 setup("test_acvp");
17 }
18
19 my $no_fips = disabled('fips') || ($ENV{NO_FIPS} // 0);
20
21 plan skip_all => "ACVP is not supported by this test"
22     if $no_fips || disabled("acvp-tests");
23
24 use lib srctop_dir('Configurations');
25 use lib bldtop_dir('.');
26
27 plan tests => 1;
28
29 ok(run(test(["acvp_test", "-config", srctop_file("test","fips.cnf")])),
30    "running acvp_test");