Коротко. Добавляем "банальные" тесты к нашему приложению

https://bitbucket.org/ingword/mindstream/src/5a54bffd8aebf532d29d775f62a80505d394193b/Tests/?at=MS-6_AddTestToMindStream

https://bitbucket.org/ingword/mindstream/commits/a88a184af3a483412761b1a4caefa2744722ec4e

https://bitbucket.org/ingword/mindstream/commits/367878c66e213fb744e2fced1fbb35f0ca2cd5f8

https://bitbucket.org/ingword/mindstream/commits/120cff038bebc913d23ce4e9ecfe2e35d6f7c986

procedure TestTmsPointCircle.TearDown;
begin
  FmsPointCircle.Free;
  FmsPointCircle := nil;
end;

Вот кстати почему ИМЕННО ТАК, а не FreeAndNil?

Ведь люди же о чём то думали?

Жаль, что "нам не написали".

https://bitbucket.org/ingword/mindstream/commits/d3f7ba4a80e05d19950598754852678e05d247c7

https://bitbucket.org/ingword/mindstream/commits/733cfaceda894fd1c04c01858bb69f2ff424dcb5

Смежная тема - Коротко. Про DUnit и Delphi XE7