瀏覽代碼

* test exitcode 217

peter 22 年之前
父節點
當前提交
f51646dfd5
共有 1 個文件被更改,包括 6 次插入6 次删除
  1. 6 6
      tests/tbs/tb0449.pp

+ 6 - 6
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
 
 }