1 /***************************************************************************
2  *                                  _   _ ____  _
3  *  Project                     ___| | | |  _ \| |
4  *                             / __| | | | |_) | |
5  *                            | (__| |_| |  _ <| |___
6  *                             \___|\___/|_| \_\_____|
7  *
8  * Copyright (C) 1998 - 2011, 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 http://curl.haxx.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 
test(char * URL)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   if ((curl = curl_easy_init()) == NULL) {
50     fprintf(stderr, "curl_easy_init() failed\n");
51     curl_global_cleanup();
52     return TEST_ERR_MAJOR_BAD;
53   }
54 
55   /* enable verbose */
56   test_setopt(curl, CURLOPT_VERBOSE, 1L);
57 
58   /* set port number */
59   test_setopt(curl, CURLOPT_PORT, strtol(libtest_arg2, NULL, 10));
60 
61   /* specify target */
62   test_setopt(curl,CURLOPT_URL, URL);
63 
64   /* Now run off and do what you've been told! */
65   res = curl_easy_perform(curl);
66 
67 test_cleanup:
68 
69   curl_easy_cleanup(curl);
70   curl_global_cleanup();
71 
72   return res;
73 }
74