mirror of
https://github.com/QuasarApp/openssl.git
synced 2025-05-06 06:29:42 +00:00
31 lines
926 B
Perl
31 lines
926 B
Perl
|
#! /usr/bin/env perl
|
||
|
|
# Copyright 2015-2016 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;
|
||
|
|
|
||
|
|
setup("test_ui");
|
||
|
|
|
||
|
|
plan tests => 1;
|
||
|
|
|
||
|
|
note <<"EOF";
|
||
|
|
The best way to test the UI interface is currently by using an openssl
|
||
|
|
command that uses password_callback. The only one that does this is
|
||
|
|
'genrsa'.
|
||
|
|
Since password_callback uses a UI method derived from UI_OpenSSL(), it
|
||
|
|
ensures that one gets tested well enough as well.
|
||
|
|
EOF
|
||
|
|
|
||
|
|
my $outfile = "rsa_$$.pem";
|
||
|
|
ok(run(app(["openssl", "genrsa", "-passout", "pass:password", "-aes128",
|
||
|
|
"-out", $outfile])),
|
||
|
|
"Checking that genrsa with a password works properly");
|
||
|
|
|
||
|
|
unlink $outfile;
|