Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
btwise
openssl
提交
84d90cf3
O
openssl
项目概览
btwise
/
openssl
通知
1
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
O
openssl
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
84d90cf3
编写于
9月 09, 2015
作者:
R
Richard Levitte
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Add a simple test for the new rehash command
Reviewed-by:
N
Rich Salz
<
rsalz@openssl.org
>
上级
ceffb33d
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
56 addition
and
0 deletion
+56
-0
test/recipes/40-test_rehash.t
test/recipes/40-test_rehash.t
+56
-0
未找到文件。
test/recipes/40-test_rehash.t
0 → 100644
浏览文件 @
84d90cf3
#! /usr/bin/perl
use
strict
;
use
warnings
;
use
File::Spec::
Functions
;
use
File::
Copy
;
use
File::
Basename
;
use
OpenSSL::
Test
qw/:DEFAULT top_file/
;
setup
("
test_rehash
");
plan
tests
=>
4
;
indir
"
rehash.$$
"
=>
sub
{
prepare
();
ok
(
run
(
app
(["
openssl
",
"
rehash
",
curdir
()])),
'
Testing normal rehash operations
');
},
create
=>
1
,
cleanup
=>
1
;
indir
"
rehash.$$
"
=>
sub
{
prepare
(
sub
{
chmod
400
,
$_
foreach
(
@
_
);
});
ok
(
run
(
app
(["
openssl
",
"
rehash
",
curdir
()])),
'
Testing rehash operations on readonly files
');
},
create
=>
1
,
cleanup
=>
1
;
indir
"
rehash.$$
"
=>
sub
{
ok
(
run
(
app
(["
openssl
",
"
rehash
",
curdir
()])),
'
Testing rehash operations on empty directory
');
},
create
=>
1
,
cleanup
=>
1
;
indir
"
rehash.$$
"
=>
sub
{
prepare
();
chmod
0500
,
curdir
();
isnt
(
run
(
app
(["
openssl
",
"
rehash
",
curdir
()])),
1
,
'
Testing rehash operations on readonly directory
');
chmod
0700
,
curdir
();
# make it writable again, so cleanup works
},
create
=>
1
,
cleanup
=>
1
;
sub
prepare
{
my
@sourcefiles
=
sort
map
{
glob
(
top_file
('
certs
',
'
demo
',
"
*.
$_
"))
}
('
pem
',
'
crt
',
'
cer
',
'
crl
');
my
@destfiles
=
();
foreach
(
@sourcefiles
)
{
copy
(
$_
,
curdir
());
push
@destfiles
,
catfile
(
curdir
(),
basename
(
$_
));
}
foreach
(
@
_
)
{
die
"
Internal error, argument is not CODE
"
unless
(
ref
(
$_
)
eq
'
CODE
');
$_
->
(
@destfiles
);
}
}
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录