]>
Commit | Line | Data |
---|---|---|
2fea5683 SS |
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 | ||
9 | use strict; | |
10 | use warnings; | |
11 | ||
12 | use OpenSSL::Test; | |
13 | ||
14 | setup("test_legacy"); | |
15 | ||
16 | plan tests => 3; | |
17 | ||
18 | ok(run(app(['openssl', 'rand', '-out', 'rand.txt', '256'])), "Generate random file"); | |
19 | ||
20 | ok(run(app(['openssl', 'dgst', '-sha256', 'rand.txt'])), "Generate a digest"); | |
21 | ||
22 | ok(!run(app(['openssl', 'dgst', '-sha256', '-propquery', 'foo=1', | |
23 | 'rand.txt'])), "Fail to generate a digest"); |