Skip to content

Commit

Permalink
In case of manual constant parsing, the multi.h constants are not rea…
Browse files Browse the repository at this point in the history
…lly there, so skip m/^CURLM/ constants from the test.
  • Loading branch information
szbalint committed Nov 22, 2010
1 parent 5070e25 commit 3ebc93d
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions t/00constants.t
Expand Up @@ -18,6 +18,11 @@ for my $row (<$fh>) {
push @consts, [$name, $intro, $dep, $remov];
}

# In case we can't use cpp to extract symbols, skipping the multi constant tests for now.
my $skip_multi;
my $value = WWW::Curl::Easy::constant('CURL_LAST');
$skip_multi++ if (! $!);

my @checklist;
for my $row (@consts) {
my ($name, $intro, $depr, $outro) = @{$row};
Expand All @@ -44,6 +49,7 @@ for my $row (@consts) {
}
}
if ($check) {
next if ($skip_multi && $name =~ m/^CURLM/);
push @checklist, [$name, $depr];
}
}
Expand Down

0 comments on commit 3ebc93d

Please sign in to comment.