[Bast-commits] r7556 - in SQL-Abstract/1.x/trunk: . lib/SQL t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-04 15:19:05 +0000 (Fri, 04 Sep 2009)
New Revision: 7556

Modified:
   SQL-Abstract/1.x/trunk/Changes
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
   SQL-Abstract/1.x/trunk/t/10test.t
Log:
Release 1.58

Modified: SQL-Abstract/1.x/trunk/Changes
===================================================================
--- SQL-Abstract/1.x/trunk/Changes	2009-09-04 15:13:57 UTC (rev 7555)
+++ SQL-Abstract/1.x/trunk/Changes	2009-09-04 15:19:05 UTC (rev 7556)
@@ -1,5 +1,14 @@
 Revision history for SQL::Abstract
 
+revision 1.58  2009-09-04 15:20 (UTC)
+----------------------------
+    - expanded the scope of -bool and -not_bool operators
+    - added proper testing support
+
+revision 1.57  2009-09-03 20:18 (UTC)
+----------------------------
+    - added -bool and -not_bool operators
+
 revision 1.56  2009-05-30 16:31 (UTC)
 ----------------------------
     - support for \[$sql, @bind] in order_by clauses e.g.:

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2009-09-04 15:13:57 UTC (rev 7555)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2009-09-04 15:19:05 UTC (rev 7556)
@@ -15,7 +15,7 @@
 # GLOBALS
 #======================================================================
 
-our $VERSION  = '1.56';
+our $VERSION  = '1.58';
 
 # This would confuse some packagers
 #$VERSION      = eval $VERSION; # numify for warning-free dev releases
@@ -1977,7 +1977,7 @@
 
 Would give you:
 
-    WHERE is_user AND NOT is_enabledmv 
+    WHERE is_user AND NOT is_enabled
 
 
 

Modified: SQL-Abstract/1.x/trunk/t/10test.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/10test.t	2009-09-04 15:13:57 UTC (rev 7555)
+++ SQL-Abstract/1.x/trunk/t/10test.t	2009-09-04 15:19:05 UTC (rev 7556)
@@ -145,6 +145,14 @@
         ]
       },
       {
+        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)/,