test/recipes/30-test_evp.t

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use OpenSSL::Test qw/:DEFAULT top_file/;
   8
   9 setup("test_evp");
  10
  11 plan tests => 1;
  12 ok(run(test(["evp_test", top_file("test", "evptests.txt")])),
  13    "running evp_test evptests.txt");