test/recipes/70-test_clienthello.t

   1 #! /usr/bin/perl
   2
   3 use OpenSSL::Test;
   4 use OpenSSL::Test::Utils;
   5
   6 setup("test_clienthello");
   7
   8 plan skip_all => "No TLS/SSL protocols are supported by this OpenSSL build"
   9     if alldisabled(grep { $_ ne "ssl3" } available_protocols("tls"));
  10
  11 plan tests => 1;
  12
  13 ok(run(test(["clienthellotest"])), "running clienthellotest");