提交 01d524fa 编写于 作者: D Dr. Stephen Henson

Update Simple.pm to use disabled()

Reviewed-by: NRichard Levitte <levitte@openssl.org>
上级 340166a9
...@@ -28,6 +28,7 @@ You could call them hacks if you wish. ...@@ -28,6 +28,7 @@ You could call them hacks if you wish.
=cut =cut
use OpenSSL::Test; use OpenSSL::Test;
use OpenSSL::Test::Utils;
=over 4 =over 4
...@@ -58,7 +59,7 @@ sub simple_test { ...@@ -58,7 +59,7 @@ sub simple_test {
plan tests => 1; plan tests => 1;
SKIP: { SKIP: {
skip "$algo is not supported by this OpenSSL build, skipping this test...", 1 skip "$algo is not supported by this OpenSSL build, skipping this test...", 1
if $algo && run(app(["openssl", "no-$algo"])); if $algo && disabled($algo);
ok(run(test([$prgr])), "running $prgr"); ok(run(test([$prgr])), "running $prgr");
} }
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册