4 use Test::More tests => 3;
7 use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
9 my $sqla = SQL::Abstract->create(1);
13 from => [-alias => [-name => 'foo'] => 'me' ],
15 [ -name => qw/me id/ ],
16 [ -alias => [ -name => qw/me foo_id/ ], 'foo' ],
19 ), "SELECT me.id, me.foo_id AS foo FROM foo AS me",
20 "simple select clause";
24 from => [-alias => [-name => 'foo'] => 'me' ],
26 [ -name => qw/me id/ ],
27 [ -alias => [ -name => qw/me foo_id/ ], 'foo' ],
28 [ -name => qw/bar name/ ],
31 tablespec => [-name => qw/bar/],
32 on => [ '==', [-name => qw/bar id/], [ -name => qw/me bar_id/ ] ],
35 ), "SELECT me.id, me.foo_id AS foo, bar.name FROM foo AS me JOIN bar ON (bar.id = me.bar_id)",
36 "select with join clause";