tests/libtest/test1013.pl

   1 #!/usr/bin/env perl
   2 # Determine if curl-config --protocols/--features matches the
   3 # curl --version protocols/features
   4 if ( $#ARGV != 2 )
   5 {
   6     print "Usage: $0 curl-config-script curl-version-output-file features|protocols\n";
   7     exit 3;
   8 }
   9
  10 my $what=$ARGV[2];
  11
  12 # Read the output of curl --version
  13 my $curl_protocols="";
  14 open(CURL, "$ARGV[1]") || die "Can't get curl $what list\n";
  15 while( <CURL> )
  16 {
  17     $curl_protocols = lc($_) if ( /$what:/i );
  18 }
  19 close CURL;
  20
  21 $curl_protocols =~ s/\r//;
  22 $curl_protocols =~ /\w+: (.*)$/;
  23 @curl = split / /,$1;
  24
  25 # These features are not supported by curl-config
  26 @curl = grep(!/^(Debug|TrackMemory|Metalink|Largefile|CharConv|GSS-Negotiate|SPNEGO)$/i, @curl);
  27 @curl = sort @curl;
  28
  29 # Read the output of curl-config
  30 my @curl_config;
  31 open(CURLCONFIG, "sh $ARGV[0] --$what|") || die "Can't get curl-config $what list\n";
  32 while( <CURLCONFIG> )
  33 {
  34     chomp;
  35     # ignore curl-config --features not in curl's feature list
  36     if(!/^(GSS-API)$/) {
  37         push @curl_config, lc($_);
  38     }
  39 }
  40 close CURLCONFIG;
  41
  42 @curl_config = sort @curl_config;
  43
  44 my $curlproto = join ' ', @curl;
  45 my $curlconfigproto = join ' ', @curl_config;
  46
  47 my $different = $curlproto ne $curlconfigproto;
  48 if ($different) {
  49     print "Mismatch in $what lists:\n";
  50     print "curl:        $curlproto\n";
  51     print "curl-config: $curlconfigproto\n";
  52 }
  53 exit $different;