anchor.diff:      procedure TestForIn;
   {$IFEND}
       procedure TestSplit;
  +    procedure TestJoin;
     end;
   
   implementation
  
positive.code: var
    L, L2: IList;
    V: Variant;
    I: Integer;
  begin
    L := ArrayList([1, 'abc', 3.14, True]);
    L2 := TArrayList.Create;
  
negative.code:   );
  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);
  
  