mk-lib1521.pl: updated to match the test changes in 916ec30a
diff --git a/tests/libtest/mk-lib1521.pl b/tests/libtest/mk-lib1521.pl
index b1eaba8..406a883 100644
--- a/tests/libtest/mk-lib1521.pl
+++ b/tests/libtest/mk-lib1521.pl
@@ -22,7 +22,7 @@
###########################################################################
# Usage:
-# cat ../../include/curl/curl.h | perl mk-lib1521.pl > lib1521.c
+# perl mk-lib1521.pl < ../../include/curl/curl.h > lib1521.c
# minimum and maximum long signed values
my $minlong = "LONG_MIN";
@@ -106,9 +106,10 @@
int test(char *URL)
{
- CURL *curl;
- CURL *dep;
- CURLSH *share;
+ int res = 0;
+ CURL *curl = NULL;
+ CURL *dep = NULL;
+ CURLSH *share = NULL;
char errorbuffer[CURL_ERROR_SIZE];
void *conv_from_network_cb = NULL;
void *conv_to_network_cb = NULL;
@@ -118,19 +119,23 @@
struct curl_slist *slist=NULL;
struct curl_httppost *httppost=NULL;
FILE *stream = stderr;
+ struct data object;
(void)URL; /* not used */
- dep = curl_easy_init();
+ easy_init(dep);
+ easy_init(curl);
share = curl_share_init();
- curl = curl_easy_init();
- if(curl) {
- struct data object;
+ if(!share) {
+ res = CURLE_OUT_OF_MEMORY;
+ goto test_cleanup;
+ }
+
HEADER
;
while(<STDIN>) {
if($_ =~ /^ CINIT\(([^ ]*), ([^ ]*), (\d*)\)/) {
my ($name, $type, $val)=($1, $2, $3);
- my $w=" ";
+ my $w=" ";
my $pref = "$w(void)curl_easy_setopt(curl, CURLOPT_$name,";
my $i = ' ' x (length($w) + 23);
if($type eq "STRINGPOINT") {
@@ -203,12 +208,14 @@
print <<FOOTER
- curl_easy_setopt(curl, 1, 0);
- curl_easy_cleanup(curl);
- curl_easy_cleanup(dep);
- curl_share_cleanup(share);
- }
- return 0;
+ curl_easy_setopt(curl, 1, 0);
+
+test_cleanup:
+ curl_easy_cleanup(curl);
+ curl_easy_cleanup(dep);
+ curl_share_cleanup(share);
+
+ return res;
}
FOOTER
;
