[Bast-commits] r6975 - SQL-Abstract/1.x/branches/test_refactor/t

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2009-07-03 18:43:17 +0000 (Fri, 03 Jul 2009)
New Revision: 6975

Modified:
   SQL-Abstract/1.x/branches/test_refactor/t/10test.t
Log:
Add non-equality tests for ordered lists

Modified: SQL-Abstract/1.x/branches/test_refactor/t/10test.t
===================================================================
--- SQL-Abstract/1.x/branches/test_refactor/t/10test.t	2009-07-03 18:24:27 UTC (rev 6974)
+++ SQL-Abstract/1.x/branches/test_refactor/t/10test.t	2009-07-03 18:43:17 UTC (rev 6975)
@@ -548,6 +548,28 @@
           q/SELECT * FROM (SELECT * FROM bar WHERE ((b = 1) AND (c = 10))) AS foo WHERE (a = 2)/,
         ]
       },
+      {
+	 equal => 0,
+	 statements => [
+	    'SELECT a,b,c FROM foo',
+	    'SELECT a,c,b FROM foo',
+	    'SELECT b,a,c FROM foo',
+	    'SELECT b,c,a FROM foo',
+	    'SELECT c,a,b FROM foo',
+	    'SELECT c,b,a FROM foo',
+	 ]
+      },
+      {
+	 equal => 0,
+	 statements => [
+	    'SELECT * FROM foo WHERE a IN (1,2,3)',
+	    'SELECT * FROM foo WHERE a IN (1,3,2)',
+	    'SELECT * FROM foo WHERE a IN (2,1,3)',
+	    'SELECT * FROM foo WHERE a IN (2,3,1)',
+	    'SELECT * FROM foo WHERE a IN (3,1,2)',
+	    'SELECT * FROM foo WHERE a IN (3,2,1)',
+	 ]
+      },
 );
 
 my @bind_tests = (