12 @words = shellwords(qq(foo "bar quiz" zoo));
13 #print join(";", @words), "\n";
15 print "not " if $words[0] ne 'foo';
18 print "not " if $words[1] ne 'bar quiz';
21 print "not " if $words[2] ne 'zoo';
24 # Test quotewords() with other parameters
25 @words = quotewords(":+", 1, qq(foo:::"bar:foo":zoo zoo:));
26 #print join(";", @words), "\n";
27 print "not " unless join(";", @words) eq qq(foo;"bar:foo";zoo zoo);