Browse Source

* tests have to fail
* "fixed" tests so they also fail on 32 bit platforms

git-svn-id: trunk@13149 -

Jonas Maebe 16 years ago
parent
commit
ea356808b1
2 changed files with 6 additions and 1 deletions
  1. 3 0
      tests/tbf/tb0210.pp
  2. 3 1
      tests/tbf/tb0211.pp

+ 3 - 0
tests/tbf/tb0210.pp

@@ -1,7 +1,10 @@
+{ %fail }
+
 // check whether enums can NOT be casted to object references; this 
 // check whether enums can NOT be casted to object references; this 
 // should NOT work in objfpc mode (see also tbs/tb0554.pp)
 // should NOT work in objfpc mode (see also tbs/tb0554.pp)
 {$mode objfpc}
 {$mode objfpc}
 
 
+{$packenum 2}
 type
 type
   TEnum = (a, b, c);
   TEnum = (a, b, c);
   
   

+ 3 - 1
tests/tbf/tb0211.pp

@@ -1,9 +1,11 @@
+{ %fail }
+
 // check whether integers can NOT be casted to object references; this 
 // check whether integers can NOT be casted to object references; this 
 // should NOT work in objfpc mode (see also tbs/tb0554.pp)
 // should NOT work in objfpc mode (see also tbs/tb0554.pp)
 {$mode objfpc}
 {$mode objfpc}
 
 
 var
 var
-  i : Integer;
+  i : Word;
   o : TObject;
   o : TObject;
 
 
 begin
 begin