t/200_join.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 2;
   5 use Test::Differences;
   6
   7 use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
   8
   9 my $sqla = SQL::Abstract->create(1);
  10
  11 is $sqla->dispatch(
  12   [ -join =>
  13       [-name => qw/foo/],
  14       [ '==', [-name => qw/foo id/], [ -name => qw/me foo_id/ ] ]
  15   ]
  16 ), "JOIN foo ON (foo.id = me.foo_id)",
  17    "simple join clause";
  18