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 "test.h"
25
26 #include "memdebug.h"
27
test(char * URL)28 CURLcode test(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 fprintf(stderr, "%s:%d curl_easy_perform() failed with code %d (%s)\n",
43 __FILE__, __LINE__, ret, curl_easy_strerror(ret));
44 goto test_cleanup;
45 }
46 curl_easy_getinfo(curl, CURLINFO_REDIRECT_URL, &follow_url);
47 curl_easy_getinfo(curl, CURLINFO_RETRY_AFTER, &retry_after);
48 printf("Retry-After %" CURL_FORMAT_CURL_OFF_T "\n", retry_after);
49 curl_easy_setopt(curl, CURLOPT_URL, follow_url);
50 ret = curl_easy_perform(curl);
51 if(ret) {
52 fprintf(stderr, "%s:%d curl_easy_perform() failed with code %d (%s)\n",
53 __FILE__, __LINE__, ret, curl_easy_strerror(ret));
54 goto test_cleanup;
55 }
56
57 curl_easy_reset(curl);
58 curl_easy_getinfo(curl, CURLINFO_RETRY_AFTER, &retry_after);
59 printf("Retry-After %" CURL_FORMAT_CURL_OFF_T "\n", retry_after);
60 }
61
62 test_cleanup:
63 curl_easy_cleanup(curl);
64 curl_global_cleanup();
65
66 return ret;
67 }
68
