From 99e60fa660e04cbdc4707be9aece81516cd454a7 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 5 Sep 2008 11:47:54 +0000
Subject: [PATCH] tests: fixed compilation, no UTF8 support necessary for
 testing if it is a test suite run

git-svn-id: trunk@16430 -
---
 test/bugs/2068/unit1.pas   | 2 +-
 test/bugs/2075/unit1.pas   | 2 +-
 test/bugs/7462/bug7462.lpi | 8 +++-----
 test/bugs/7462/unit1.pas   | 2 +-
 test/bugs/822/unit1.pas    | 2 +-
 test/bugs/8284/unit1.pas   | 2 +-
 test/bugs/8437/unit1.pas   | 2 +-
 test/bugs/8450/unit1.pas   | 2 +-
 8 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/test/bugs/2068/unit1.pas b/test/bugs/2068/unit1.pas
index 09d200acae..887fc45ba0 100644
--- a/test/bugs/2068/unit1.pas
+++ b/test/bugs/2068/unit1.pas
@@ -35,7 +35,7 @@ implementation
 
 procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
 begin
-  if ParamStrUTF8(1)='--runtest' then begin
+  if ParamStr(1)='--runtest' then begin
     writeln(Debugger.Text);
     Close;
   end;
diff --git a/test/bugs/2075/unit1.pas b/test/bugs/2075/unit1.pas
index 994c2061eb..edfa191482 100644
--- a/test/bugs/2075/unit1.pas
+++ b/test/bugs/2075/unit1.pas
@@ -49,7 +49,7 @@ end;
 
 procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
 begin
-  if ParamStrUTF8(1)='--runtest' then begin
+  if ParamStr(1)='--runtest' then begin
     DebugLn(FloatSpinEdit1.Caption);
     DebugLn(Label1.Caption);
     DebugLn(FloatSpinEdit2.Caption);
diff --git a/test/bugs/7462/bug7462.lpi b/test/bugs/7462/bug7462.lpi
index f5065ecd0f..88918bc713 100644
--- a/test/bugs/7462/bug7462.lpi
+++ b/test/bugs/7462/bug7462.lpi
@@ -2,7 +2,7 @@
 <CONFIG>
   <ProjectOptions>
     <PathDelim Value="\"/>
-    <Version Value="5"/>
+    <Version Value="6"/>
     <General>
       <SessionStorage Value="InIDEConfig"/>
       <MainUnit Value="0"/>
@@ -43,6 +43,7 @@
         <Filename Value="unit1.pas"/>
         <ComponentName Value="Form1"/>
         <IsPartOfProject Value="True"/>
+        <ResourceBaseClass Value="Form"/>
         <ResourceFilename Value="unit1.lrs"/>
         <UnitName Value="Unit1"/>
       </Unit1>
@@ -53,14 +54,11 @@
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="5"/>
+    <Version Value="8"/>
     <PathDelim Value="\"/>
     <SearchPaths>
       <SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
     </SearchPaths>
-    <CodeGeneration>
-      <Generate Value="Faster"/>
-    </CodeGeneration>
     <Linking>
       <Debugging>
         <UseLineInfoUnit Value="False"/>
diff --git a/test/bugs/7462/unit1.pas b/test/bugs/7462/unit1.pas
index b1df44f29c..94f8506ad1 100644
--- a/test/bugs/7462/unit1.pas
+++ b/test/bugs/7462/unit1.pas
@@ -36,7 +36,7 @@ end;
 
 procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
 begin
-  if ParamStrUTF8(1)='--runtest' then begin
+  if ParamStr(1)='--runtest' then begin
     writeln('Memo length: ', Length(Memo1.Text));
     Close;
   end;
diff --git a/test/bugs/822/unit1.pas b/test/bugs/822/unit1.pas
index fe186bfb30..df4cc98e83 100644
--- a/test/bugs/822/unit1.pas
+++ b/test/bugs/822/unit1.pas
@@ -35,7 +35,7 @@ begin
   Label1.Caption :=
     format('ScrollBar1.Width: %d%sGetSystemMetrics(SM_CXVSCROLL): %d',
           [ScrollBar1.Width, LineEnding, GetSystemMetrics(SM_CXVSCROLL)]);
-  if ParamStrUTF8(1)='--runtest' then begin
+  if ParamStr(1)='--runtest' then begin
     if ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) then
       writeln('ScrollBar1.Width = GetSystemMetrics(SM_CXVSCROLL) = ')
     else
diff --git a/test/bugs/8284/unit1.pas b/test/bugs/8284/unit1.pas
index b5733d4e4a..5dedf06c67 100644
--- a/test/bugs/8284/unit1.pas
+++ b/test/bugs/8284/unit1.pas
@@ -33,7 +33,7 @@ implementation
 
 procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
 begin
-  if ParamStrUTF8(1)='--runtest' then begin
+  if ParamStr(1)='--runtest' then begin
     // button doesn't have parentcolor, but is buttonface
     writeln('Button color: ', ColorToString(Button1.Color));
     // checkbox takes parent color
diff --git a/test/bugs/8437/unit1.pas b/test/bugs/8437/unit1.pas
index 2040b75886..3642bd82a2 100644
--- a/test/bugs/8437/unit1.pas
+++ b/test/bugs/8437/unit1.pas
@@ -54,7 +54,7 @@ procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
 var
   Side1Width, Side2Width : integer;
 begin
-  if ParamStrUTF8(1)='--runtest' then begin
+  if ParamStr(1)='--runtest' then begin
     Side1Width := PairSplitterSide1.Width;
     Side2Width := PairSplitterSide2.Width;
     writeln(format('Side 1: %d, Side 2: %d',
diff --git a/test/bugs/8450/unit1.pas b/test/bugs/8450/unit1.pas
index f00c008f56..9df6a59489 100644
--- a/test/bugs/8450/unit1.pas
+++ b/test/bugs/8450/unit1.pas
@@ -50,7 +50,7 @@ end;
 
 initialization
   {$I unit1.lrs}
-  InTestRun :=  ParamStrUTF8(1)='--runtest';
+  InTestRun :=  ParamStr(1)='--runtest';
 
 end.