1234567891011121314151617181920 |
- #! /usr/bin/env perl
- # Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
- #
- # Licensed under the OpenSSL license (the "License"). You may not use
- # this file except in compliance with the License. You can obtain a copy
- # in the file LICENSE in the source distribution or at
- # https://www.openssl.org/source/license.html
- use OpenSSL::Test;
- use OpenSSL::Test::Utils;
- setup("test_bad_dtls");
- plan skip_all => "DTLSv1 is not supported by this OpenSSL build"
- if disabled("dtls1");
- plan tests => 1;
- ok(run(test(["bad_dtls_test"])), "running bad_dtls_test");
|