1N/A chdir 't' if -d 't'; 1N/A # Gonna get some undefined things back 1N/A # Test quotewords() with other parameters and null last field 1N/A# Test $keep eq 'delimiters' and last field zero 1N/A# Big ol' nasty test (thanks, Joerk!) 1N/A$string =
'aaaa"bbbbb" cc\\ cc \\\\\\"dddd" eee\\\\\\"ffff" "gg"';
1N/A# First with $keep == 1 1N/A# Now test single quote behavior 1N/A$string =
'aaaa"bbbbb" cc\\ cc \\\\\\"dddd\' eee\\\\\\"ffff\' gg';
1N/A# Make sure @nested_quotewords does the right thing 1N/A# Now test error return 1N/A # Gonna get some more undefined things back 1N/A # Now test empty fields 1N/A # Test for 0 in quotes without $keep 1N/A # Test for \001 in quoted string 1N/A# Now test perlish single quote behavior 1N/A$string =
'aaaa"bbbbb" cc\ cc \\\\\"dddd\' eee\\\\\"\\\'ffff\' gg';
1N/A# test whitespace in the delimiters