diff options
Diffstat (limited to 'Utilities/cmcurl-7.19.0/tests/libtest/test1022.pl')
-rwxr-xr-x | Utilities/cmcurl-7.19.0/tests/libtest/test1022.pl | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/Utilities/cmcurl-7.19.0/tests/libtest/test1022.pl b/Utilities/cmcurl-7.19.0/tests/libtest/test1022.pl new file mode 100755 index 0000000..5b16de3 --- /dev/null +++ b/Utilities/cmcurl-7.19.0/tests/libtest/test1022.pl @@ -0,0 +1,45 @@ +#!/usr/bin/env perl +# Determine if curl-config --version matches the curl --version +if ( $#ARGV != 2 ) +{ + print "Usage: $0 curl-config-script curl-version-output-file version|vernum\n"; + exit 3; +} + +my $what=$ARGV[2]; + +# Read the output of curl --version +open(CURL, "$ARGV[1]") || die "Can't open curl --version list in $ARGV[1]\n"; +$_ = <CURL>; +chomp; +/libcurl\/([\.\d]+(-CVS)?)/; +my $version = $1; +close CURL; + +my $curlconfigversion; + +# Read the output of curl-config --version/--vernum +open(CURLCONFIG, "sh $ARGV[0] --$what|") || die "Can't get curl-config --$what list\n"; +$_ = <CURLCONFIG>; +chomp; +if ( $what eq "version" ) { + /^libcurl ([\.\d]+(-CVS)?)$/ ; + $curlconfigversion = $1; +} +else { + # Convert hex version to decimal for comparison's sake + /^(..)(..)(..)$/ ; + $curlconfigversion = hex($1) . "." . hex($2) . "." . hex($3); + + # Strip off the -CVS from the curl version if it's there + $version =~ s/-CVS$//; +} +close CURLCONFIG; + +my $different = $version ne $curlconfigversion; +if ($different || !$version) { + print "Mismatch in --version:\n"; + print "curl: $version\n"; + print "curl-config: $curlconfigversion\n"; + exit 1; +} |