Browse Source

* mark tclaa7 as a known problem for v1.0

pierre 22 years ago
parent
commit
a0ab7525d0
1 changed files with 6 additions and 1 deletions
  1. 6 1
      tests/test/tclass7.pp

+ 6 - 1
tests/test/tclass7.pp

@@ -1,3 +1,4 @@
+{ %KNOWNRUNERROR=2 v1.0 does not support class DefaultHandler message }
 {$ifdef fpc}
 {$ifdef fpc}
  {$mode delphi}
  {$mode delphi}
 {$endif}
 {$endif}
@@ -48,7 +49,11 @@ begin
  C.Destroy;
  C.Destroy;
  if counter<>3 then
  if counter<>3 then
   begin
   begin
-    writeln('Error!');
+    writeln('Error in class DefaultHandler for messages!');
+{$ifdef VER1_0}
+    halt(2);
+{$else not VER1_0}
     halt(1);
     halt(1);
+{$endif not VER1_0}
   end;
   end;
 end.
 end.