[dbsrgits/SQL-Abstract-2.0-ish.git] / t / 002_types.t

use strict;
use warnings;

use Test::More tests => 3;

use MooseX::Types::Moose qw/ArrayRef Str Int Ref HashRef/;
use SQL::Abstract::Types ':all';

is(AST->validate( { -type => 'select', select => [] } ), undef, "is_AST with valid" );
ok(!is_AST( { foo => 'bar' } ), "is_AST with invalid" );

is(AST->validate( { -type => 'select', select => [] } ), undef, "is_AST with valid hash" );
Commit	Line	Data
cbcfedc1	1	use strict;
	2	use warnings;
	3
bad761ba	4	use Test::More tests => 3;
cbcfedc1	5
	6	use MooseX::Types::Moose qw/ArrayRef Str Int Ref HashRef/;
	7	use SQL::Abstract::Types ':all';
	8
bad761ba	9	is(AST->validate( { -type => 'select', select => [] } ), undef, "is_AST with valid" );
bad761ba	10	ok(!is_AST( { foo => 'bar' } ), "is_AST with invalid" );
cbcfedc1	11
cbcfedc1	12	is(AST->validate( { -type => 'select', select => [] } ), undef, "is_AST with valid hash" );
cbcfedc1	13