Simple between support

[dbsrgits/SQL-Abstract-2.0-ish.git] / t / 101_expr_funcitons.t

use strict;
use warnings;

use Test::More tests => 4;
use Test::Differences;

use_ok('SQL::Abstract') or BAIL_OUT( "$@" );

my $sqla = SQL::Abstract->create(1);

is $sqla->dispatch(
  { -type => 'expr',
    op => '==',
    args => [
      { -type => 'expr',
        op => 'ROUND',
        args => [
          {-type => name => args => [qw/me id/] }, 
        ]
      },
      { -type => 'expr',
        op => 'ROUND',
        args => [
          { -type => 'value', value => 500 }
        ]
      },
    ]
  }
), "ROUND(me.id) = ROUND(?)", 
   "simple expr clause";

is $sqla->dispatch(
  { -type => 'expr',
    op => 'last_insert_id',
  }
), "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";