文件操作 - 30-test_evp.t
返回文件管理
返回主菜单
删除本文件
文件: /usr/local/src/openssl-1.1.1w/test/recipes/30-test_evp.t
编辑文件内容
#! /usr/bin/env perl # Copyright 2015-2019 The OpenSSL Project Authors. All Rights Reserved. # # Licensed under the OpenSSL license (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 qw/:DEFAULT data_file/; setup("test_evp"); my @files = ( "evpciph.txt", "evpdigest.txt", "evpencod.txt", "evpkdf.txt", "evpmac.txt", "evppbe.txt", "evppkey.txt", "evppkey_ecc.txt", "evpcase.txt", "evpccmcavs.txt" ); plan tests => scalar(@files); foreach my $f ( @files ) { ok(run(test(["evp_test", data_file("$f")])), "running evp_test $f"); }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件