Make LIKE op work

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 848c01a..194792e 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -31,8 +31,8 @@ class SQL::Abstract {
     '==' => '=',
     '!=' => '!=',
     # LIKE is always "field LIKE <value>"
-    '-like' => 'LIKE',
-    '-not_like' => 'NOT LIKE',
+    'like' => 'LIKE',
+    'not_like' => 'NOT LIKE',
   );
 
   has expr_dispatch_table => (

diff --git a/t/100_expr_basic.t b/t/100_expr_basic.t
index f44d884..de43e64 100644 (file)
--- a/t/100_expr_basic.t
+++ b/t/100_expr_basic.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 13;
+use Test::More tests => 14;
 use Test::Differences;
 
 use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
@@ -178,3 +178,15 @@ eq_or_diff(
   ],
   
   "NOT IN clause");
+
+
+is $sqla->dispatch(
+  { -type => 'expr',
+    op => 'like',
+    args => [
+      {-type => name => args => [qw/me id/] }, 
+      { -type => 'value', value => 500 }
+    ]
+  }
+), "me.id LIKE ?", 
+   "LIKE expr clause";