From f51646dfd5b097f9c7dc4864b79853f5d205152b Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 31 Oct 2003 16:15:26 +0000
Subject: [PATCH]   * test exitcode 217

---
 tests/tbs/tb0449.pp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/tests/tbs/tb0449.pp b/tests/tbs/tb0449.pp
index 92dc78aacf..8bddec1390 100644
--- a/tests/tbs/tb0449.pp
+++ b/tests/tbs/tb0449.pp
@@ -1,23 +1,23 @@
-{ %NORUN }
-
+{ %RESULT=217 }
 
 {$ifdef fpc}
 {$mode objfpc}
 {$endif}
-uses sysutils;
+uses SysUtils;
 
 type
-
   EWbcError = class of Exception;
   
-  
 Begin
   raise EwbcError.create('Hello');
 end.
 
 {
   $Log$
-  Revision 1.1  2003-02-02 13:46:06  carl
+  Revision 1.2  2003-10-31 16:15:26  peter
+    * test exitcode 217
+
+  Revision 1.1  2003/02/02 13:46:06  carl
    + exception testing
 
 }