1 | /*************************************************************************** |
2 | * _ _ ____ _ |
3 | * Project ___| | | | _ \| | |
4 | * / __| | | | |_) | | |
5 | * | (__| |_| | _ <| |___ |
6 | * \___|\___/|_| \_\_____| |
7 | * |
8 | * Copyright (C) 1998 - 2020, Daniel Stenberg, <daniel@haxx.se>, et al. |
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 | ***************************************************************************/ |
22 | #include "test.h" |
23 | |
24 | #ifdef HAVE_FCNTL_H |
25 | #include <fcntl.h> |
26 | #endif |
27 | |
28 | #include "memdebug.h" |
29 | |
30 | /* |
31 | * From "KNOWN_BUGS" April 2009: |
32 | |
33 | 59. If the CURLOPT_PORT option is used on an FTP URL like |
34 | "ftp://example.com/file;type=A" the ";type=A" is stripped off. |
35 | |
36 | */ |
37 | |
38 | int test(char *URL) |
39 | { |
40 | CURL *curl; |
41 | CURLcode res = CURLE_OK; |
42 | |
43 | if(curl_global_init(CURL_GLOBAL_ALL) != CURLE_OK) { |
44 | fprintf(stderr, "curl_global_init() failed\n" ); |
45 | return TEST_ERR_MAJOR_BAD; |
46 | } |
47 | |
48 | /* get a curl handle */ |
49 | curl = curl_easy_init(); |
50 | if(!curl) { |
51 | fprintf(stderr, "curl_easy_init() failed\n" ); |
52 | curl_global_cleanup(); |
53 | return TEST_ERR_MAJOR_BAD; |
54 | } |
55 | |
56 | /* enable verbose */ |
57 | test_setopt(curl, CURLOPT_VERBOSE, 1L); |
58 | |
59 | /* set port number */ |
60 | test_setopt(curl, CURLOPT_PORT, strtol(libtest_arg2, NULL, 10)); |
61 | |
62 | /* specify target */ |
63 | test_setopt(curl, CURLOPT_URL, URL); |
64 | |
65 | /* Now run off and do what you've been told! */ |
66 | res = curl_easy_perform(curl); |
67 | |
68 | test_cleanup: |
69 | |
70 | curl_easy_cleanup(curl); |
71 | curl_global_cleanup(); |
72 | |
73 | return res; |
74 | } |
75 | |