Text-ParseWords/t/ParseWords.t

8 my @words = shellwords(qq(foo "bar quiz" zoo));
9 is($words[0], 'foo');
10 is($words[1], 'bar quiz');
11 is($words[2], 'zoo');
18   @words = quotewords(':+', 1, 'foo:::"bar:foo":zoo zoo:');
19   is(join(";", @words), qq(foo;"bar:foo";zoo zoo;));
23 @words = quotewords('\s+', 'delimiters', '4 3 2 1 0');
24 is(join(";", @words), qq(4; ;3; ;2; ;1; ;0));
52 @words = shellwords($string);
53 is(@words, 0);
55 @words = parse_line('s+', 0, $string);
56 is(@words, 0);
58 @words = quotewords('s+', 0, $string);
59 is(@words, 0);
65   @words = nested_quotewords('s+', 0, $string);
66   is(@words, 0);
89 @words = quotewords(' ', 1, '4 3 2 1 0');
90 is(join(";", @words), qq(4;3;2;1;0));