fcl-db: test order by upper()

packages/fcl-db/tests/tcparser.pas

@@ -472,6 +472,7 @@ type
     procedure TestOrderByCollate;
     procedure TestOrderByCollateDesc;
     procedure TestOrderByCollateDescTwoFields;
+    procedure TestOrderByUpper;
     procedure TestGroupByOne;
     procedure TestGroupByTwo;
     procedure TestHavingOne;
@@ -4813,6 +4814,20 @@ begin
   AssertIdentifierName('Correct collation','E',O.Collation);
 end;
 
+procedure TTestSelectParser.TestOrderByUpper;
+var
+  O: TSQLOrderByElement;
+begin
+  TestSelect('SELECT B FROM A ORDER BY UPPER(C)');
+  AssertEquals('One field',1,Select.Fields.Count);
+  AssertEquals('One table',1,Select.Tables.Count);
+  AssertField(Select.Fields[0],'B');
+  AssertTable(Select.Tables[0],'A');
+  AssertEquals('One order by field',1,Select.Orderby.Count);
+  O:=AssertOrderBy(Select.OrderBy[0],'C',0,obAscending);
+  AssertEquals('Order by upper',O.Upper,true);
+end;
+
 procedure TTestSelectParser.TestGroupByOne;
 begin
   TestSelect('SELECT B,COUNT(C) AS THECOUNT FROM A GROUP BY B');

packages/fcl-db/tests/testsqlscanner.lpi

@@ -18,8 +18,8 @@
       <CharSet Value=""/>
     </VersionInfo>
     <BuildModes Count="2">
-      <Item1 Name="Debug" Default="True"/>
-      <Item2 Name="Release">
+      <Item1 Name="Standard" Default="True"/>
+      <Item2 Name="UnicodeRTL">
         <CompilerOptions>
           <Version Value="11"/>
           <Target>
@@ -32,18 +32,24 @@
           </SearchPaths>
           <Parsing>
             <SyntaxOptions>
+              <IncludeAssertionCode Value="True"/>
               <UseAnsiStrings Value="False"/>
             </SyntaxOptions>
           </Parsing>
           <CodeGeneration>
-            <SmartLinkUnit Value="True"/>
+            <Checks>
+              <IOChecks Value="True"/>
+              <RangeChecks Value="True"/>
+              <OverflowChecks Value="True"/>
+              <StackChecks Value="True"/>
+            </Checks>
+            <Optimizations>
+              <OptimizationLevel Value="0"/>
+            </Optimizations>
           </CodeGeneration>
-          <Linking>
-            <Debugging>
-              <GenerateDebugInfo Value="False"/>
-            </Debugging>
-            <LinkSmart Value="True"/>
-          </Linking>
+          <Other>
+            <CustomOptions Value="-tunicodertl"/>
+          </Other>
         </CompilerOptions>
       </Item2>
     </BuildModes>
@@ -123,9 +129,6 @@
         <OptimizationLevel Value="0"/>
       </Optimizations>
     </CodeGeneration>
-    <Other>
-      <CustomOptions Value="-tunicodertl"/>
-    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="3">