tests/libtest/test307.pl

   1 #!/usr/bin/env perl
   2 # Determine if the given curl executable supports the 'openssl' SSL engine
   3 if ( $#ARGV != 0 )
   4 {
   5     print "Usage: $0 curl-executable\n";
   6     exit 3;
   7 }
   8 if (!open(CURL, "@ARGV[0] -s --engine list|"))
   9 {
  10     print "Can't get SSL engine list\n";
  11     exit 2;
  12 }
  13 while( <CURL> )
  14 {
  15     exit 0 if ( /openssl/ );
  16 }
  17 close CURL;
  18 print "openssl engine not supported\n";
  19 exit 1;