CMakeLua/Utilities/cmcurl-7.19.0/tests/libtest/test75.pl

   1 #!/usr/bin/env perl
   2 # Check that the length of a given URL is correct
   3 if ( $#ARGV != 1 )
   4 {
   5         print "Usage: $0 string length\n";
   6         exit 3;
   7 }
   8 if (length(@ARGV[0]) != @ARGV[1])
   9 {
  10         print "Given host IP and port not supported\n";
  11         exit 1;
  12 }
  13 exit 0;