1 files changed, 5 insertions, 0 deletions
diff --git a/test/runtest b/test/runtest
index 84bdc04dc..5ac52ae56 100755
--- a/test/runtest
+++ b/test/runtest
@@ -2714,6 +2714,11 @@ if ($parm_hostname !~ /\./)
   print "\n*** Host name is not fully qualified: this may cause problems ***\n\n";
   }
 
+if ($parm_hostname =~ /[[:upper:]]/)
+  {
+  print "\n*** Host name has upper case characters: this may cause problems ***\n\n";
+  }
+
 # Find the user's shell
 
 $parm_shell = $ENV{'SHELL'};