Get select sort of working again

[dbsrgits/SQL-Abstract-2.0-ish.git] / t / 200_join.t

use strict;
use warnings;

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

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

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

is $sqla->dispatch(
  { -type => 'join',
    tablespec => {-type => name => args => [qw/foo/]},
    on => { 
      -type => 'expr',
      op => '==',
      args => [
        { -type => 'name', args => [qw/foo id/] },
        { -type => 'name', args => [qw/me foo_id/] },
      ]
    }
  }
), "JOIN foo ON (foo.id = me.foo_id)", 
   "simple join clause";

is $sqla->dispatch(
  { -type => 'join',
    tablespec => {-type => 'alias', ident => {-type => name => args => [qw/foo/]}, as => 'bar' },
    using => { -type => 'name', args => [qw/foo_id/] },
  }
), "JOIN foo AS bar USING (foo_id)", 
   "using join clause";