From 10d4b8e66fffe5ac91cb37b51db9806fc2f72c9a Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 26 Sep 2012 14:16:19 +0000
Subject: [PATCH]   * added "HaltOnNotReleased:=true;" so test exits with an
 error if not all     memory is released

git-svn-id: trunk@22459 -
---
 tests/test/tobject8.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/test/tobject8.pp b/tests/test/tobject8.pp
index db89318ae7..21c8798071 100644
--- a/tests/test/tobject8.pp
+++ b/tests/test/tobject8.pp
@@ -59,6 +59,7 @@ begin
 end;
 
 begin
+  HaltOnNotReleased:=true;
   s1 := 'string1';
   s2 := 'string2';
   s3 := 'string3';