d7bc2f2000-03-18Leif Stensson # Test cases for embedded Perl in Pike. $a = ""; for(1..9) { $a .= $_;} exit $a eq "123456789";