t/006_not_moose.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2;
   7 use Test::Exception;
   8
   9 eval <<'EOF';
  10 {
  11     package Foo;
  12     use MooseX::Params::Validate;
  13 }
  14 EOF
  15
  16 is(
  17     $@, '',
  18     'loading MX::Params::Validate in a non-Moose class does not blow up'
  19 );
  20 ok( Foo->can('validated_hash'), 'validated_hash() sub was added to Foo package' );