add test file in test suite
This commit is contained in:
parent
b694a4e2df
commit
0722eef0ee
17
TestSuite/caseinsensitive.pas
Normal file
17
TestSuite/caseinsensitive.pas
Normal 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.
|
||||
Loading…
Reference in a new issue