Add project files.
This commit is contained in:
13
3rd-party/curl-7.52.1/tests/libtest/test75.pl
vendored
Normal file
13
3rd-party/curl-7.52.1/tests/libtest/test75.pl
vendored
Normal file
@@ -0,0 +1,13 @@
|
||||
#!/usr/bin/env perl
|
||||
# Check that the length of a given URL is correct
|
||||
if ( $#ARGV != 1 )
|
||||
{
|
||||
print "Usage: $0 string length\n";
|
||||
exit 3;
|
||||
}
|
||||
if (length(@ARGV[0]) != @ARGV[1])
|
||||
{
|
||||
print "Given host IP and port not supported\n";
|
||||
exit 1;
|
||||
}
|
||||
exit 0;
|
Reference in New Issue
Block a user