1# Thanks to Michael Wright for this test and for
2# finding the bug that it exposed.
3
4use String::RexxParse qw(parse);
5$input="this , is , a line of , string input";
6
7use vars qw($var1 $var2 $var3 $var4 $var5);
8
9print "1..10\n";
10parse $input, q! $var1 . ',' $var2 . ',' $var3 . ',' $var4 .  ',' $var5!;
11print $var1 eq 'this' ? "ok\n" : "not ok\n";
12print $var2 eq 'is' ? "ok\n" : "not ok\n";
13print $var3 eq 'a' ? "ok\n" : "not ok\n";
14print $var4 eq 'string' ? "ok\n" : "not ok\n";
15print $var5 eq '' ? "ok\n" : "not ok\n";
16parse $input, q! $var1 ',' $var2 ',' $var3 ',' $var4 ',' $var5!;
17print $var1 eq 'this ' ? "ok\n" : "not ok\n";
18print $var2 eq ' is ' ? "ok\n" : "not ok\n";
19print $var3 eq ' a line of ' ? "ok\n" : "not ok\n";
20print $var4 eq ' string input' ? "ok\n" : "not ok\n";
21print $var5 eq '' ? "ok\n" : "not ok\n";
22
23