[Bast-commits] r5093 - in SQL-Abstract/1.x/branches/1.50_RC: . t

[norbi at dev.catalyst.perl.org]

Author: norbi
Date: 2008-11-10 23:04:10 +0000 (Mon, 10 Nov 2008)
New Revision: 5093

Modified:
   SQL-Abstract/1.x/branches/1.50_RC/
   SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t
Log:
 r5098 at vger:  mendel | 2008-11-11 00:03:52 +0100
  * Added two more quoting tests for the 'colA DESC' stuff - to document the expected behaviour.



Property changes on: SQL-Abstract/1.x/branches/1.50_RC
___________________________________________________________________
Name: svk:merge
   + 4d5fae46-8e6a-4e08-abee-817e9fb894a2:/local/bast/SQL-Abstract/1.x/branches/1.50_RC:5098

Modified: SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t
===================================================================
--- SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t	2008-11-10 22:46:45 UTC (rev 5092)
+++ SQL-Abstract/1.x/branches/1.50_RC/t/06order_by.t	2008-11-10 23:04:10 UTC (rev 5093)
@@ -19,11 +19,21 @@
     expects => ' ORDER BY colA',
     expects_quoted => ' ORDER BY `colA`',
    },
+   {  # it may look odd, but this is the desired behaviour (mst)
+    given => 'colA DESC',
+    expects => ' ORDER BY colA DESC',
+    expects_quoted => ' ORDER BY `colA DESC`',
+   },
    {
     given => [qw/colA colB/],
     expects => ' ORDER BY colA, colB',
     expects_quoted => ' ORDER BY `colA`, `colB`',
    },
+   {  # it may look odd, but this is the desired behaviour (mst)
+    given => ['colA ASC', 'colB DESC'],
+    expects => ' ORDER BY colA ASC, colB DESC',
+    expects_quoted => ' ORDER BY `colA ASC`, `colB DESC`',
+   },
    {
     given => {-asc => 'colA'},
     expects => ' ORDER BY colA ASC',