diff --git a/tests/test/units/fpcunit/tcbucketlist.pp b/tests/test/units/fpcunit/tcbucketlist.pp
index 2310f7cc2b..25faa440b3 100644
--- a/tests/test/units/fpcunit/tcbucketlist.pp
+++ b/tests/test/units/fpcunit/tcbucketlist.pp
@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, fpcunit, testutils, testregistry,
-  BucketList;
+  contnrs;
 
 type
   TMyBucketList = Class(TBucketList)
diff --git a/tests/test/units/fpcunit/tccompstreaming.pp b/tests/test/units/fpcunit/tccompstreaming.pp
index e4a6ef195c..a40bb4f612 100644
--- a/tests/test/units/fpcunit/tccompstreaming.pp
+++ b/tests/test/units/fpcunit/tccompstreaming.pp
@@ -1,5 +1,7 @@
 Unit tccompstreaming;
 
+{$mode objfpc}
+
 interface
 
 Uses
diff --git a/tests/test/units/fpcunit/tctparser.pp b/tests/test/units/fpcunit/tctparser.pp
index cfad7cee03..cbe96d7ee3 100644
--- a/tests/test/units/fpcunit/tctparser.pp
+++ b/tests/test/units/fpcunit/tctparser.pp
@@ -8,7 +8,7 @@ uses
   Classes, SysUtils, fpcunit, testutils, testregistry;
 
   { TTestToString }
-
+type
   TTestToString= class(TTestCase)
   private
     fStream : TMemoryStream;
@@ -908,4 +908,4 @@ initialization
 
   RegisterTests([TTestToString,TTestTokenInt,TTestTokenFloat,TTestSymbol,TTestBinary]);
 
-end.
\ No newline at end of file
+end.
diff --git a/tests/test/units/fpcunit/testcomps.pp b/tests/test/units/fpcunit/testcomps.pp
index bfe9471297..8784083932 100644
--- a/tests/test/units/fpcunit/testcomps.pp
+++ b/tests/test/units/fpcunit/testcomps.pp
@@ -1,5 +1,7 @@
 unit testcomps;
 
+{$mode objfpc}
+
 interface
 
 uses classes, sysutils;