4 use Test::More tests => 4;
7 use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
9 my $sqla = SQL::Abstract->create(1);
14 {-type => name => args => [qw/bar/]},
15 {-type => name => args => [qw/foo/]},
21 { -type => 'name', args => [qw/foo id/] },
22 { -type => 'name', args => [qw/me foo_id/] },
26 ), "bar JOIN foo ON (foo.id = me.foo_id)",
32 {-type => name => args => [qw/fnord/]},
33 {-type => 'alias', ident => {-type => name => args => [qw/foo/]}, as => 'bar' }
35 using => { -type => 'name', args => [qw/foo_id/] },
37 ), "fnord JOIN foo AS bar USING (foo_id)",
45 {-type => name => args => [qw/fnord/]},
46 {-type => 'alias', ident => {-type => name => args => [qw/foo/]}, as => 'bar' }
48 using => { -type => 'name', args => [qw/foo_id/] },
50 ), "fnord LEFT JOIN foo AS bar USING (foo_id)",
51 "using left join clause";