From 57b67087a80d515a44337df264ebcf78fed2557a Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Wed, 24 Mar 2010 10:36:59 +0000
Subject: [PATCH] tests: halt with different error codes for different errors

git-svn-id: trunk@15039 -
---
 tests/webtbs/tw6690.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/webtbs/tw6690.pp b/tests/webtbs/tw6690.pp
index 3dc1c443ec..7ba05d0b92 100644
--- a/tests/webtbs/tw6690.pp
+++ b/tests/webtbs/tw6690.pp
@@ -53,9 +53,9 @@ begin
   tkinterface: if (po^.name<>'iinterface2') and
                   (po^.name<>'iinterface4') and
                   (po^.name<>'iinterface6') then
-                  halt(1);
+                  halt(2);
   else
-    halt(1);
+    halt(3);
  end;
 end;