[dbsrgits/SQL-Abstract-2.0-ish.git] / t / 001_basic.t

use strict;
use warnings;

use Test::More tests => 3;

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

is SQL::Abstract->generate( [ -name => qw/me id/]), "me.id",
  "Simple name generator";

is SQL::Abstract->generate(
  [ -list => 
    [ -name => qw/me id/],
    [ -name => qw/me foo bar/],
    [ -name => qw/bar/]
  ] 
), "me.id, me.foo.bar, bar",
  "List generator";
Commit	Line	Data
a0185af2	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 3;
	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";