t/12-moose-exporter.t

   1 use Test::More tests => 4;
   2 use Test::NoWarnings;
   3 use Test::Exception;
   4
   5 {
   6     package MooseX::Foo;
   7
   8     use strict;
   9     use warnings;
  10
  11     use Moose::Exporter;
  12     use MooseX::ClassAttribute ();
  13
  14     Moose::Exporter->setup_import_methods(
  15         also => [ 'MooseX::ClassAttribute' ],
  16     );
  17 }
  18
  19 {
  20     package MyClass;
  21
  22     use Moose;
  23     MooseX::Foo->import;
  24     &MyClass::class_has ( attr => ( is => 'ro' ) );
  25
  26 };
  27
  28
  29 package main;
  30
  31 ok(MyClass->can('has'));
  32 ok(MyClass->can('class_has'));
  33 ok(Moose::Util::does_role(MyClass->meta, 'MooseX::ClassAttribute::Trait::Class'),
  34     'metaclass gets MX:CA metaclass trait');
  35