2015-12-29 19:12:36 +00:00
|
|
|
#! /usr/bin/perl
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
2016-01-30 00:05:33 +00:00
|
|
|
use OpenSSL::Test qw/:DEFAULT srctop_file/;
|
2016-01-11 16:20:39 +00:00
|
|
|
use OpenSSL::Test::Utils;
|
2015-12-29 19:12:36 +00:00
|
|
|
|
|
|
|
setup("test_dane");
|
|
|
|
|
2016-01-11 16:20:39 +00:00
|
|
|
plan skip_all => "test_dane uses ec which is not supported by this OpenSSL build"
|
|
|
|
if disabled("ec");
|
|
|
|
|
2015-12-29 19:12:36 +00:00
|
|
|
plan tests => 1; # The number of tests being performed
|
|
|
|
|
|
|
|
ok(run(test(["danetest", "example.com",
|
2016-01-30 00:05:33 +00:00
|
|
|
srctop_file("test", "danetest.pem"),
|
|
|
|
srctop_file("test", "danetest.in")])), "dane tests");
|