* small fixes to compile

tests/test/tprocvar1.pp

@@ -94,7 +94,7 @@ type
 const
    constmethodaddr : pointer = @to1.test2;
    MyRecord : TMyRecord = (
-     MyProc1 : TestProc;
+     MyProc1 : @TestProc;
      MyProc2 : @TestProc;
      MyVar : 0;
    );
@@ -147,7 +147,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.4  2001-05-19 21:57:07  peter
+  Revision 1.5  2001-07-31 19:18:53  peter
+    * small fixes to compile
+
+  Revision 1.4  2001/05/19 21:57:07  peter
     * removed other warning
 
   Revision 1.3  2000/11/30 22:38:21  peter

tests/test/units/dos/tfexpand.pp

@@ -32,7 +32,7 @@ const
 {$IFDEF FPC}
  {$IFDEF VER1_0}
   {$IFDEF UNIX}
- FileNameCaseSensitive = false;
+   FileNameCaseSensitive = true;
   {$ENDIF}
  {$ENDIF}
 {$ELSE}

tests/test/units/system/tio.pp

@@ -19,7 +19,7 @@ const
   FILE_NAME2 = 'test1.tmp';
   DATA_SIZE = 17;
 
-  DATA: array[1..tmpA_SIZE] of byte =
+  DATA: array[1..DATA_SIZE] of byte =
   ($01,$02,$03,$04,$05,$06,$07,$08,
    $09,$A,$B,$C,$D,$E,$F,$10,
    $11
@@ -32,7 +32,7 @@ var
  F: File;
  I: Integer;
  b: byte;
- readData : array[1..tmpA_SIZE] of byte;
+ readData : array[1..DATA_SIZE] of byte;
  BytesRead, BytesWritten : word;
 Begin
   {------------------------ create and play with a new file --------------------------}
@@ -103,7 +103,10 @@ end.
 
 {
  $Log$
- Revision 1.2  2001-07-30 22:09:34  peter
+ Revision 1.3  2001-07-31 19:18:53  peter
+   * small fixes to compile
+
+ Revision 1.2  2001/07/30 22:09:34  peter
    * use .tmp as extension so it gets cleaned
 
  Revision 1.1  2001/07/14 04:25:00  carl

tests/webtbs/tw1479.pp

@@ -3,15 +3,18 @@
 uses
   sysutils;
 
+const
+  fname = 'Makefile';
+
 var
   fn : string;
 begin
-  fn:=FileSearch('tw1479.pp',';');
+  fn:=FileSearch(fname,';');
   writeln('found: ',fn);
-  if fn<>'tw1479.pp' then
+  if fn<>fname then
    halt(1);
-  fn:=FileSearch('.\tw1479.pp',';');
+  fn:=FileSearch('./'+fname,';');
   writeln('found: ',fn);
-  if fn<>'.\tw1479.pp' then
+  if fn<>'./'+fname then
    halt(1);
 end.