/
glscene
/
pasdoc
Обзор
Документация
Войти
/
glscene
/
pasdoc
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
tests/testcases/ok_sorting.pas
43 строки
574 B
Michalis Kamburelis
Tests rearrangements, run_all_tests.sh script
09 фев 2018, 00:18
09 фев 2018, 00:18
b0a15f8
Код
Авторство
О чём код?
{ Test unit to test various @--sort settings. } unit ok_sorting; interface uses ZZZ, AAA; type TMyClass = class ZZZField: Integer; AAAField: Integer; procedure ZZZMethod; procedure AAAMethod; property ZZZProp; property AAAProp; end; TMyRecord = record ZZZField: Integer; AAAField: Integer; end; ZZZClass = class end; AAAClass = class end; ZZZType = Integer; AAAType = Integer; const ZZZConst = 1; AAAConst = 2; var ZZZVar: Integer; AAAVar: Integer; procedure ZZZProc; procedure AAAProc; implementation end.