quickjs-tart

quickjs-based runtime for wallet-core logic
Log | Files | Refs | README | LICENSE

lib3010.c (2383B)

      1 /***************************************************************************
      2  *                                  _   _ ____  _
      3  *  Project                     ___| | | |  _ \| |
      4  *                             / __| | | | |_) | |
      5  *                            | (__| |_| |  _ <| |___
      6  *                             \___|\___/|_| \_\_____|
      7  *
      8  * Copyright (C) Nicolas Sterchele, <nicolas@sterchelen.net>
      9  *
     10  * This software is licensed as described in the file COPYING, which
     11  * you should have received as part of this distribution. The terms
     12  * are also available at https://curl.se/docs/copyright.html.
     13  *
     14  * You may opt to use, copy, modify, merge, publish, distribute and/or sell
     15  * copies of the Software, and permit persons to whom the Software is
     16  * furnished to do so, under the terms of the COPYING file.
     17  *
     18  * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
     19  * KIND, either express or implied.
     20  *
     21  * SPDX-License-Identifier: curl
     22  *
     23  ***************************************************************************/
     24 #include "first.h"
     25 
     26 #include "memdebug.h"
     27 
     28 static CURLcode test_lib3010(char *URL)
     29 {
     30   CURLcode ret = CURLE_OK;
     31   CURL *curl = NULL;
     32   curl_off_t retry_after;
     33   char *follow_url = NULL;
     34 
     35   curl_global_init(CURL_GLOBAL_ALL);
     36   curl = curl_easy_init();
     37 
     38   if(curl) {
     39     curl_easy_setopt(curl, CURLOPT_URL, URL);
     40     ret = curl_easy_perform(curl);
     41     if(ret) {
     42       curl_mfprintf(stderr,
     43                     "%s:%d curl_easy_perform() failed with code %d (%s)\n",
     44                     __FILE__, __LINE__, ret, curl_easy_strerror(ret));
     45       goto test_cleanup;
     46     }
     47     curl_easy_getinfo(curl, CURLINFO_REDIRECT_URL, &follow_url);
     48     curl_easy_getinfo(curl, CURLINFO_RETRY_AFTER, &retry_after);
     49     curl_mprintf("Retry-After %" CURL_FORMAT_CURL_OFF_T "\n", retry_after);
     50     curl_easy_setopt(curl, CURLOPT_URL, follow_url);
     51     ret = curl_easy_perform(curl);
     52     if(ret) {
     53       curl_mfprintf(stderr,
     54                     "%s:%d curl_easy_perform() failed with code %d (%s)\n",
     55                     __FILE__, __LINE__, ret, curl_easy_strerror(ret));
     56       goto test_cleanup;
     57     }
     58 
     59     curl_easy_reset(curl);
     60     curl_easy_getinfo(curl, CURLINFO_RETRY_AFTER, &retry_after);
     61     curl_mprintf("Retry-After %" CURL_FORMAT_CURL_OFF_T "\n", retry_after);
     62   }
     63 
     64 test_cleanup:
     65   curl_easy_cleanup(curl);
     66   curl_global_cleanup();
     67 
     68   return ret;
     69 }