From 0722eef0ee38b8af4e4259ddff1d626af220b32e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=91=D0=BE=D0=BD=D0=B4=D0=B0=D1=80=D0=B5=D0=B2=20=D0=98?= =?UTF-8?q?=D0=B2=D0=B0=D0=BD?= Date: Tue, 24 Nov 2015 20:42:35 +0100 Subject: [PATCH] add test file in test suite --- TestSuite/caseinsensitive.pas | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 TestSuite/caseinsensitive.pas diff --git a/TestSuite/caseinsensitive.pas b/TestSuite/caseinsensitive.pas new file mode 100644 index 000000000..eca44ace7 --- /dev/null +++ b/TestSuite/caseinsensitive.pas @@ -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; + lst.add(2); + assert(lst[0]=2); + assert(lst.toarray.first=2); + lst := new system.collections.generic.list; + var obj := new tclass; + assert(obj.Tostring = 'ok'); +END. \ No newline at end of file