[dbsrgits/SQL-Abstract-2.0-ish.git] / t / 101_where_error.t

use strict;
use warnings;

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

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

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

throws_ok {
  $sqla->dispatch(
    [ -where => 
      [ '==', [-name => qw/me id/], [ -alias => [-name => qw/me foo/], 'bar' ] ]
    ]
  )
} qr/^'-alias' is not a valid clause in a where AST/, "Error from invalid part in where";

throws_ok {
  $sqla->dispatch(
    [ -where => 
      [ '~', [-name => qw/me id/], [ -alias => [-name => qw/me foo/], 'bar' ] ]
    ]
  )
} qr/^'~' is not a valid operator/, 
  "Error from invalid operator in where";
Commit	Line	Data
0c371882	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 3;
	5	use Test::Exception;
	6
	7	use_ok('SQL::Abstract') or BAIL_OUT( "$@" );
	8
	9	my $sqla = SQL::Abstract->create(1);
	10
	11	throws_ok {
	12	$sqla->dispatch(
	13	[ -where =>
	14	[ '==', [-name => qw/me id/], [ -alias => [-name => qw/me foo/], 'bar' ] ]
	15	]
	16	)
	17	} qr/^'-alias' is not a valid clause in a where AST/, "Error from invalid part in where";
	18
	19	throws_ok {
	20	$sqla->dispatch(
	21	[ -where =>
	22	[ '~', [-name => qw/me id/], [ -alias => [-name => qw/me foo/], 'bar' ] ]
	23	]
	24	)
	25	} qr/^'~' is not a valid operator/,
	26	"Error from invalid operator in where";