1#! /usr/bin/env perl 2# Copyright 2020-2021 The OpenSSL Project Authors. All Rights Reserved. 3# 4# Licensed under the Apache License 2.0 (the "License"). You may not use 5# this file except in compliance with the License. You can obtain a copy 6# in the file LICENSE in the source distribution or at 7# https://www.openssl.org/source/license.html 8 9use strict; 10use warnings; 11 12use OpenSSL::Test; 13 14setup("test_app"); 15 16plan tests => 5; 17 18ok(run(app(["openssl"])), 19 "Run openssl app with no args"); 20 21ok(run(app(["openssl", "help"])), 22 "Run openssl app with help"); 23 24ok(!run(app(["openssl", "-wrong"])), 25 "Run openssl app with incorrect arg"); 26 27ok(run(app(["openssl", "-help"])), 28 "Run openssl app with -help"); 29 30ok(run(app(["openssl", "--help"])), 31 "Run openssl app with --help"); 32