Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
720b590f
T
Third Party Openssl
项目概览
OpenHarmony
/
Third Party Openssl
大约 1 年 前同步成功
通知
9
Star
18
Fork
1
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
T
Third Party Openssl
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
720b590f
编写于
2月 23, 2000
作者:
U
Ulf Möller
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Run the test suite and generate a report.
上级
cdf20e08
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
151 addition
and
0 deletion
+151
-0
util/selftest.pl
util/selftest.pl
+151
-0
未找到文件。
util/selftest.pl
0 → 100644
浏览文件 @
720b590f
#!/usr/local/bin/perl -w
#
# Run the test suite and generate a report
#
if
(
!
-
f
"
Configure
")
{
print
"
Please run perl util/selftest.pl in the OpenSSL directory.
\n
";
exit
1
;
}
my
$report
=
"
testlog
";
my
$os
=
"
??
";
my
$version
=
"
??
";
my
$platform0
=
"
??
";
my
$platform
=
"
??
";
my
$options
=
"
??
";
my
$last
=
"
??
";
my
$ok
=
0
;
my
$cc
=
"
cc
";
my
$sep
=
"
-----------------------------------------------------------------------------
\n
";
open
(
OUT
,"
>
$report
")
or
die
;
print
OUT
"
OpenSSL self-test report:
\n\n
";
$uname
=
`
uname -a
`;
$c
=
`
sh config -t
`;
foreach
$_
(
split
("
\n
",
$c
))
{
$os
=
$
1
if
(
/Operating system: (.*)$/
);
$platform0
=
$
1
if
(
/Configuring for (.*)$/
);
}
system
"
sh config
"
if
(
!
-
f
"
Makefile.ssl
");
if
(
open
(
IN
,"
<Makefile.ssl
"))
{
while
(
<
IN
>
)
{
$version
=
$
1
if
(
/^VERSION=(.*)$/
);
$platform
=
$
1
if
(
/^PLATFORM=(.*)$/
);
$options
=
$
1
if
(
/^OPTIONS=(.*)$/
);
$cc
=
$
1
if
(
/^CC=(.*)$/
);
}
close
(
IN
);
}
else
{
print
OUT
"
Error running config: no Makefile.ssl!
\n
";
}
if
(
open
(
IN
,"
<CHANGES
"))
{
while
(
<
IN
>
)
{
if
(
/\*\) (.{0,55})/
)
{
$last
=
$
1
;
last
;
}
}
close
(
IN
);
}
print
OUT
"
OpenSSL version:
$version
\n
";
print
OUT
"
Last change:
$last
...
\n
";
print
OUT
"
OS (uname):
$uname
";
print
OUT
"
OS (config):
$os
\n
";
print
OUT
"
Target (default):
$platform0
\n
";
print
OUT
"
Target:
$platform
\n
";
print
OUT
"
\n
";
print
"
Checking compiler...
\n
";
if
(
open
(
TEST
,"
>test.c
"))
{
print
TEST
"
#include <stdio.h>
\n
main(){printf(
\"
Hello world
\n\"
);}
\n
";
close
(
TEST
);
system
("
$cc
-o cctest test.c
");
if
(
!
`
./cctest
`
=~
/Hello world/
)
{
print
OUT
"
Compiler doesn't work.
\n
";
goto
err
;
}
}
else
{
print
OUT
"
Can't create test.c
\n
";
}
if
(
open
(
TEST
,"
>test.c
"))
{
print
TEST
"
#include <openssl/opensslv.h>
\n
main(){printf(OPENSSL_VERSION_TEXT);}
\n
";
close
(
TEST
);
system
("
$cc
-o cctest -Iinclude test.c
");
$cctest
=
`
./cctest
`;
if
(
$cctest
!~
/OpenSSL $version/
)
{
if
(
$cctest
=~
/OpenSSL/
)
{
print
OUT
"
#include uses headers from different OpenSSL version!
\n
";
}
else
{
print
OUT
"
Can't compile test program!
\n
";
}
goto
err
;
}
}
else
{
print
OUT
"
Can't create test.c
\n
";
}
print
"
Running make...
\n
";
if
(
system
("
make 2>&1 | tee make.log
")
>
255
)
{
print
OUT
"
make failed!
\n
";
if
(
open
(
IN
,"
<make.log
"))
{
print
OUT
$sep
;
while
(
<
IN
>
)
{
print
OUT
;
}
close
(
IN
);
print
OUT
$sep
;
}
else
{
print
OUT
"
make.log not found!
\n
";
}
goto
err
;
}
print
"
Running make test...
\n
";
if
(
system
("
make test 2>&1 | tee make.log
")
>
255
)
{
print
OUT
"
make test failed!
\n
";
}
else
{
$ok
=
1
;
}
if
(
$ok
and
open
(
IN
,"
<make.log
"))
{
while
(
<
IN
>
)
{
$ok
=
2
if
/^platform: $platform/
;
}
close
(
IN
);
}
if
(
$ok
!=
2
)
{
print
OUT
"
Failure!
\n
";
if
(
open
(
IN
,"
<make.log
"))
{
print
OUT
$sep
;
while
(
<
IN
>
)
{
print
OUT
;
}
close
(
IN
);
print
OUT
$sep
;
}
else
{
print
OUT
"
make.log not found!
\n
";
}
}
else
{
print
OUT
"
Test passed.
\n
";
}
err:
close
(
OUT
);
print
"
\n
";
open
(
IN
,"
<
$report
")
or
die
;
while
(
<
IN
>
)
{
last
if
/$sep/
;
print
;
}
print
"
Test report in file
$report
\n
";
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录