More standard library test scripts
[perl.git] / t / lib / parsewords.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6 }
7
8 print "1..4\n";
9
10 use Text::ParseWords;
11
12 @words = shellwords(qq(foo "bar quiz" zoo));
13 #print join(";", @words), "\n";
14
15 print "not " if $words[0] ne 'foo';
16 print "ok 1\n";
17
18 print "not " if $words[1] ne 'bar quiz';
19 print "ok 2\n";
20
21 print "not " if $words[2] ne 'zoo';
22 print "ok 3\n";
23
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);
28 print "ok 4\n";