4 use Test::More tests => 3;
7 use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
9 my $sqla = SQL::Abstract->create(1);
13 { -type => 'expr', op => '==',
15 { -type => 'name', args => [qw/me id/] },
16 { -type => 'alias', ident => { -type => 'name', args => [qw/me id/] }, as => 'bar' }
20 } qr/^'alias' is not a valid AST type in an expression/, "Error from invalid part in where";
24 { -type => 'expr', op => '~' }
26 } qr/^'~' is not a valid operator in an expression/
32 [ '~', [-name => qw/me id/], [ -alias => [-name => qw/me foo/], 'bar' ] ]
35 } qr/^'~' is not a valid operator/,
36 "Error from invalid operator in where";