From 1b6657cf21fb25acf14910049a6a5d28ffa1456a Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 30 Aug 2009 08:33:43 +0000
Subject: [PATCH]   * make test fail if the wrong method is called

git-svn-id: trunk@13616 -
---
 tests/webtbs/tw14418.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/webtbs/tw14418.pp b/tests/webtbs/tw14418.pp
index 77e30362e9..1e107f6a3b 100644
--- a/tests/webtbs/tw14418.pp
+++ b/tests/webtbs/tw14418.pp
@@ -61,6 +61,7 @@ end;
 procedure TObj.M1;
 begin
   Writeln('TObj.M1 called');
+  halt(1);
 end;
 
 {