/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/caseinsensitive.pas
17 строк
358 B
Бондарев Иван
add test file in test suite
24 ноя 2015, 22:42
24 ноя 2015, 22:42
0722eef
Код
Авторство
О чём код?
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.