Browse Source

* added "HaltOnNotReleased:=true;" so test exits with an error if not all
memory is released

git-svn-id: trunk@22459 -

Jonas Maebe 13 years ago
parent
commit
10d4b8e66f
1 changed files with 1 additions and 0 deletions
  1. 1 0
      tests/test/tobject8.pp

+ 1 - 0
tests/test/tobject8.pp

@@ -59,6 +59,7 @@ begin
 end;
 
 begin
+  HaltOnNotReleased:=true;
   s1 := 'string1';
   s2 := 'string2';
   s3 := 'string3';