test/recipes/70-test_verify_extra.t

   1 #! /usr/bin/perl
   2
   3 use OpenSSL::Test qw/:DEFAULT top_file/;
   4
   5 setup("test_verify_extra");
   6
   7 plan tests => 1;
   8
   9 ok(run(test(["verify_extra_test",
  10              top_file("test", "certs", "roots.pem"),
  11              top_file("test", "certs", "untrusted.pem"),
  12              top_file("test", "certs", "bad.pem")])));