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