* make test fail if the wrong method is called

git-svn-id: trunk@13616 -

tests/webtbs/tw14418.pp

@@ -61,6 +61,7 @@ end;
 procedure TObj.M1;
 begin
   Writeln('TObj.M1 called');
+  halt(1);
 end;
 
 {