X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F101_expr_funcitons.t;h=13ec805ead67d422a8f66f0fb9ddd456016fc4ca;hb=1f4bd99c989eec23be495216f51da03aac83f206;hp=29d7dee424917d23f2bad03961aa472bd45d9bdf;hpb=c7e5fddfe5fdca506f7fdec3614ce5c5890e1a09;p=dbsrgits%2FSQL-Abstract-2.0-ish.git

diff --git a/t/101_expr_funcitons.t b/t/101_expr_funcitons.t
index 29d7dee..13ec805 100644
--- a/t/101_expr_funcitons.t
+++ b/t/101_expr_funcitons.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 3;
+use Test::More tests => 4;
 use Test::Differences;
 
 use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
@@ -37,3 +37,15 @@ is $sqla->dispatch(
 ), "last_insert_id()",
    "last_insert_id";
 
+is $sqla->dispatch(
+  { -type => 'expr',
+    op => 'between',
+    args => [
+      {-type => name => args => [qw/me id/] }, 
+      { -type => 'value', value => 500 },
+      { -type => 'value', value => 599 },
+    ],
+  }
+), "me.id BETWEEN ? AND ?",
+   "between";
+