add test file in test suite

This commit is contained in:
Бондарев Иван 2015-11-24 20:42:35 +01:00
parent b694a4e2df
commit 0722eef0ee

View file

@ -0,0 +1,17 @@
uses system, system.Collections.generic;
type TCLASS = class
public function tostring: STRING; OVERRIDE;
begin
RESULT := 'ok';
end;
END;
BEGIN
var lst := new list<integer>;
lst.add(2);
assert(lst[0]=2);
assert(lst.toarray.first=2);
lst := new system.collections.generic.list<integer>;
var obj := new tclass;
assert(obj.Tostring = 'ok');
END.