t/001_basic.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 5;
   5
   6 use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
   7
   8 is SQL::Abstract->generate( [ -name => qw/me id/]), "me.id",
   9   "Simple name generator";
  10
  11 is SQL::Abstract->generate(
  12   [ -list =>
  13     [ -name => qw/me id/],
  14     [ -name => qw/me foo bar/],
  15     [ -name => qw/bar/]
  16   ]
  17 ), "me.id, me.foo.bar, bar",
  18   "List generator";
  19
  20 is SQL::Abstract->generate(
  21   [ -alias => [ -name => qw/me id/], "foobar", ]
  22 ), "me.id AS foobar",
  23   "Alias generator";
  24
  25 is SQL::Abstract->generate(
  26   [ -where =>
  27       [ '>', [-name => qw/me.id/], [-value => 500 ] ]
  28   ]
  29 ), "WHERE me.id > ?", "where clause";