2015-12-30 03:12:36 +08:00
|
|
|
#! /usr/bin/perl
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use OpenSSL::Test qw/:DEFAULT top_dir top_file/;
|
2016-01-12 00:20:39 +08:00
|
|
|
use OpenSSL::Test::Utils;
|
2015-12-30 03:12:36 +08:00
|
|
|
|
|
|
|
setup("test_dane");
|
|
|
|
|
2016-01-12 00:20:39 +08:00
|
|
|
plan skip_all => "test_dane uses ec which is not supported by this OpenSSL build"
|
|
|
|
if disabled("ec");
|
|
|
|
|
2015-12-30 03:12:36 +08:00
|
|
|
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");
|