Test 010: Determining max string length.

<% x = '0123456789' Signal on syntax name EndTest1 Say "Evaluating maxStringLength..." Do i = 1 By 1 Interpret "y = '"Copies(x,i)"'" End EndTest1: i = i * 10 EndTest2: Signal on syntax name EndTest2 Do i = i-1 By -1 Interpret "y = '"Left(Copies(x,i%10+1),i)"'" Leave End Say i"." Parse version rexx_version If i > 200 Then Say "

Test PASSED." Else Do %>

Test FAILED.

REXXTAGS has a constant

  maxStringLength = 200 /* Implementation maximum; change as needed */

defined at the beginning of the file. Please change it as appropiate to continue testing, and also please report this bug indicating Operating System, REXX version, Apache version and Mod_Rexx version. Here's some help:

<% End %>