t/001-parameters.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 2;
   5 use Test::Exception;
   6
   7 use MooseX::Role::Parameterized::Parameters;
   8
   9 my $p = MooseX::Role::Parameterized::Parameters->new;
  10 can_ok($p => 'meta');
  11
  12 do {
  13     package MyRole::NoParameters;
  14     use MooseX::Role::Parameterized;
  15 };
  16
  17 my $parameter_class = MyRole::NoParameters->meta->parameter_class;
  18 ok($parameter_class);
  19