]>
Commit | Line | Data |
---|---|---|
691e302b RL |
1 | #! /usr/bin/env perl |
2 | # Copyright 2017 The OpenSSL Project Authors. All Rights Reserved. | |
3 | # | |
4 | # Licensed under the OpenSSL license (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 | ||
10 | use strict; | |
11 | use warnings; | |
12 | ||
13 | use File::Spec; | |
102c9e12 | 14 | use if $^O ne "VMS", 'File::Glob' => qw/:bsd_glob/; |
691e302b RL |
15 | use OpenSSL::Test qw/:DEFAULT data_file/; |
16 | use OpenSSL::Test::Utils; | |
17 | ||
18 | setup("test_ecparam"); | |
19 | ||
20 | plan skip_all => "EC isn't supported in this build" | |
a4750ce5 | 21 | if disabled("ec") || disabled("ec2m"); |
691e302b RL |
22 | |
23 | my @valid = glob(data_file("valid", "*.pem")); | |
24 | my @invalid = glob(data_file("invalid", "*.pem")); | |
25 | ||
26 | plan tests => scalar @valid + scalar @invalid; | |
27 | ||
28 | foreach (@valid) { | |
29 | ok(run(app([qw{openssl ecparam -noout -check -in}, $_]))); | |
30 | } | |
31 | ||
32 | foreach (@invalid) { | |
33 | ok(!run(app([qw{openssl ecparam -noout -check -in}, $_]))); | |
34 | } |