test/recipes/25-test_d2i.t

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use File::Spec;
   7 use OpenSSL::Test qw/:DEFAULT srctop_file/;
   8
   9 setup("test_d2i");
  10
  11 plan tests => 2;
  12
  13 ok(run(test(["d2i_test", "x509",
  14              srctop_file('test','d2i-tests','bad_cert.der')])),
  15    "Running d2i_test bad_cert.der");
  16
  17 ok(run(test(["d2i_test", "generalname",
  18              srctop_file('test','d2i-tests','bad_generalname.der')])),
  19    "Running d2i_test bad_generalname.der");