14 lines
337 B
Perl
14 lines
337 B
Perl
#! /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");
|