projects
/
dbsrgits/SQL-Abstract-2.0-ish.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
2e89ebcd55a1c0d554a583eabc523bc8d54d7bb5
[dbsrgits/SQL-Abstract-2.0-ish.git]
/
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