git-svn-id: trunk@40601 - (cherry picked from commit 430ec7bbe4b33b69ca4cf6a200a8a7a031449adb)
@@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, fpcunit, testutils, testregistry,
- BucketList;
+ contnrs;
type
TMyBucketList = Class(TBucketList)
@@ -1,5 +1,7 @@
Unit tccompstreaming;
+{$mode objfpc}
+
interface
Uses
@@ -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.
+end.
unit testcomps;
uses classes, sysutils;