$me = "dirtest1";

# Perl script to test variations on file/dir test argument quoting

print "All of the following conditions are true on my system.\n";
print "The issue is to see which tests work.\n";
print "The path includes a directory name containing a space.\n";
print "\n";

print "\nThese tests use a single, defined string as path:\n";

# This example would not run due to compiler errors
# $expl = "Bare unquoted text with single backslashes";
# if ( -e C:\users\public\Music\Sample Music )
# { print "'-e $expl' is true\n"; } else { print "'-e $expl' is false\n"; }

# This example would not run due to compiler errors
# $expl = "Bare unquoted text with double backslashes";
# if ( -e C:\\users\\public\\Music\\Sample Music )
# { print "'-e $expl' is true\n"; } else { print "'-e $expl' is false\n"; }

$expl = "Single-quoted text with single backslashes";
if ( -e 'C:\users\public\Music\Sample Music' )
{ print "'-e $expl' is true\n"; } else { print "'-e $expl' is false\n"; }

$expl = "Single-quoted text with double backslashes";
if ( -e 'C:\\users\\public\\Music\\Sample Music' )
{ print "'-e $expl' is true\n"; } else { print "'-e $expl' is false\n"; }

$expl = "Double-quoted text with double backslashes";
if ( -e "C:\\users\\public\\Music\\Sample Music" )
{ print "'-e $expl' is true\n"; } else { print "'-e $expl' is false\n"; }