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_legacy"); 15 16plan tests => 3; 17 18ok(run(app(['openssl', 'rand', '-out', 'rand.txt', '256'])), "Generate random file"); 19 20ok(run(app(['openssl', 'dgst', '-sha256', 'rand.txt'])), "Generate a digest"); 21 22ok(!run(app(['openssl', 'dgst', '-sha256', '-propquery', 'foo=1', 23 'rand.txt'])), "Fail to generate a digest"); 24