test/recipes/80-test_dane.t


1
2
3
4
5
6
7
8
9
10
11
12
13

#! /usr/bin/perl

use strict;
use warnings;
use OpenSSL::Test qw/:DEFAULT top_dir top_file/;

setup("test_dane");

plan tests => 1;                # The number of tests being performed

ok(run(test(["danetest", "example.com",
             top_file("test", "danetest.pem"),
             top_file("test", "danetest.in")])), "dane tests");