+ exception testing

2025-04-20 11:29:27 +02:00 · 2003-02-02 13:46:06 +00:00 · 2003-02-02 13:46:06 +00:00 · 30e5f6934e
commit 30e5f6934e
parent 91a55f259f
1 changed files with 23 additions and 0 deletions
--- a/tests/tbs/tb0449.pp
+++ b/tests/tbs/tb0449.pp
@ -0,0 +1,23 @@
+{ %NORUN }
+
+
+{$ifdef fpc}
+{$mode objfpc}
+{$endif}
+uses sysutils;
+
+type
+
+  EWbcError = class of Exception;
+  
+  
+Begin
+  raise EwbcError.create('Hello');
+end.
+
+{
+  $Log$
+  Revision 1.1  2003-02-02 13:46:06  carl
+   + exception testing
+
+}