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

    memory is released

git-svn-id: trunk@22459 -

tests/test/tobject8.pp

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