Sfoglia il codice sorgente

* Add small comment indicating possible improvement (last use of testsuite.tests)

git-svn-id: trunk@33207 -
michael 9 anni fa
parent
commit
60cd15dda0
1 ha cambiato i file con 1 aggiunte e 0 eliminazioni
  1. 1 0
      packages/fcl-fpcunit/src/consoletestrunner.pas

+ 1 - 0
packages/fcl-fpcunit/src/consoletestrunner.pas

@@ -306,6 +306,7 @@ end;
 destructor TDecoratorTestSuite.Destroy;
 destructor TDecoratorTestSuite.Destroy;
 begin
 begin
   FreeDecorators(Self);
   FreeDecorators(Self);
+  // We need to find something for this.
   Tests.Clear;
   Tests.Clear;
   inherited Destroy;
   inherited Destroy;
 end;
 end;