t/002_types.t

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