[T106][ZXW-22]7520V3SCV2.01.01.02P42U09_VEC_V0.8_AP_VEC origin source commit
Change-Id: Ic6e05d89ecd62fc34f82b23dcf306c93764aec4b
diff --git a/ap/lib/libcurl/curl-7.54.1/tests/libtest/test75.pl b/ap/lib/libcurl/curl-7.54.1/tests/libtest/test75.pl
new file mode 100755
index 0000000..31cdfb8
--- /dev/null
+++ b/ap/lib/libcurl/curl-7.54.1/tests/libtest/test75.pl
@@ -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;