anchor.diff:    );
   end;
   
  +procedure TTestCaseArrayList.TestJoin;
  +var
  +  S: String;
  +  L: IList;
  +begin
  +  S := 'Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday';
  +  L := TArrayList.Split(S);
  +  Check(L.Join('; ') = 'Monday; Tuesday; Wednesday; Thursday; Friday; Saturday; Sunday');
  +  Check(L.Join('", "', '"', '"') = '"Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"');
  +end;
  +
   initialization
     TestFramework.RegisterTest(TTestCaseArrayList.Suite);
   
  
positive.code: var
    L, L2: IList;
    V: Variant;
    I: Integer;
  begin
    L := ArrayList([1, 'abc', 3.14, True]);
    L2 := TArrayList.Create;
  
negative.code:     procedure TestForIn;
  {$IFEND}
      procedure TestSplit;
      procedure TestJoin;
    end;
  
  implementation
  