test/recipes/15-test_ecparam.t

   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;
  14 use if $^O ne "VMS", 'File::Glob' => qw/:bsd_glob/;
  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"
  21     if disabled("ec") || disabled("ec2m");
  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 }