Merge 'trunk' into 'test_refactor'

[scpubgit/Q-Branch.git] / t / 10test.t

diff --git a/t/10test.t b/t/10test.t
index 3e43ad3..1aa26f2 100644 (file)
--- a/t/10test.t
+++ b/t/10test.t
@@ -6,6 +6,17 @@ use List::Util qw(sum);
 
 use Test::More;
 
+# equivalent to $Module::Install::AUTHOR
+my $author = (
+  ( not -d './inc' )
+    or
+  ( -e ($^O eq 'VMS' ? './inc/_author' : './inc/.author') )
+);
+
+if (not $author and not $ENV{SQLATEST_TESTER} and not $ENV{AUTOMATED_TESTING}) {
+  plan skip_all => 'Skipping resource intensive self-tests, use SQLATEST_TESTER=1 to run';
+}
+
 
 my @sql_tests = (
       # WHERE condition - equal
@@ -125,6 +136,30 @@ my @sql_tests = (
         ]
       },
       {
+        equal => 1,
+        statements => [
+          q/SELECT foo FROM bar WHERE (a) AND (b = 2)/,
+          q/SELECT foo FROM bar WHERE (a AND b = 2)/,
+          q/SELECT foo FROM bar WHERE (a AND (b = 2))/,
+          q/SELECT foo FROM bar WHERE a AND (b = 2)/,
+        ]
+      },
+      {
+        equal => 1,
+        statements => [
+          q/SELECT foo FROM bar WHERE ((NOT a) AND b = 2)/,
+          q/SELECT foo FROM bar WHERE (NOT a) AND (b = 2)/,
+          q/SELECT foo FROM bar WHERE (NOT (a)) AND b = 2/,
+        ],
+      },
+      {
+        equal => 0,
+        statements => [
+          q/SELECT foo FROM bar WHERE NOT a AND (b = 2)/,
+          q/SELECT foo FROM bar WHERE (NOT a) AND (b = 2)/,
+        ]
+      },
+      {
         equal => 0,
         parenthesis_significant => 1,
         statements => [
@@ -233,6 +268,15 @@ my @sql_tests = (
       },
       {
         equal => 0,
+        parenthesis_significant => 1,
+        statements => [
+          q/SELECT foo FROM bar WHERE a IN (1,2,3)/,
+          q/SELECT foo FROM bar WHERE a IN (1,3,2)/,
+          q/SELECT foo FROM bar WHERE a IN ((1,2,3))/,
+        ]
+      },
+      {
+        equal => 0,
         statements => [
           # BETWEEN with/without parenthesis around itself/RHS is a sticky business
           # if I made a mistake here, simply rewrite the special BETWEEN handling in
@@ -537,6 +581,36 @@ my @sql_tests = (
           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 count(*) FROM foo',
+           'SELECT count(a) FROM foo',
+           'SELECT count(1) 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 = (