test/recipes/80-test_dane.t

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use OpenSSL::Test qw/:DEFAULT top_dir top_file/;
   6
   7 setup("test_dane");
   8
   9 plan tests => 1;                # The number of tests being performed
  10
  11 ok(run(test(["danetest", "example.com",
  12              top_file("test", "danetest.pem"),
  13              top_file("test", "danetest.in")])), "dane tests");