t/006_not_moose.t

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