Moose-2.1405HEADMoose-2.1405master

1 files changed, 119 insertions, 0 deletions

diff --git a/t/exceptions/moose-exporter.t b/t/exceptions/moose-exporter.t
new file mode 100644
index 0000000..7852176
--- /dev/null
+++ b/t/exceptions/moose-exporter.t
@@ -0,0 +1,119 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+{
+    my $exception = exception {
+        package MooseX::NoAlso;
+        use Moose ();
+
+        Moose::Exporter->setup_import_methods(
+            also => ['NoSuchThing']
+        );
+    };
+
+    like(
+        $exception,
+        qr/\QPackage in also (NoSuchThing) does not seem to use Moose::Exporter (is it loaded?)/,
+        'a package which does not use Moose::Exporter in also dies with an error');
+
+    isa_ok(
+        $exception,
+        'Moose::Exception::PackageDoesNotUseMooseExporter',
+        'a package which does not use Moose::Exporter in also dies with an error');
+
+    is(
+        $exception->package,
+        "NoSuchThing",
+        'a package which does not use Moose::Exporter in also dies with an error');
+}
+
+{
+    my $exception = exception {
+        {
+            package MooseX::CircularAlso;
+            use Moose;
+
+            Moose::Exporter->setup_import_methods(
+                also => [ 'Moose', 'MooseX::CircularAlso' ],
+            );
+        }
+    };
+
+    like(
+        $exception,
+        qr/\QCircular reference in 'also' parameter to Moose::Exporter between MooseX::CircularAlso and MooseX::CircularAlso/,
+        'a circular reference in also dies with an error');
+
+    isa_ok(
+        $exception,
+        'Moose::Exception::CircularReferenceInAlso',
+        'a circular reference in also dies with an error');
+
+    is(
+        $exception->also_parameter,
+        "MooseX::CircularAlso",
+        'a circular reference in also dies with an error');
+}
+
+{
+    {
+        package My::SimpleTrait;
+        use Moose::Role;
+
+        sub simple { return 5 }
+    }
+
+    use Moose::Util::TypeConstraints;
+    my $exception = exception {
+            Moose::Util::TypeConstraints->import(
+                -traits => 'My::SimpleTrait' );
+    };
+
+    like(
+        $exception,
+        qr/\QCannot provide traits when Moose::Util::TypeConstraints does not have an init_meta() method/,
+        'cannot provide -traits to an exporting module that does not init_meta');
+
+    isa_ok(
+        $exception,
+        "Moose::Exception::ClassDoesNotHaveInitMeta",
+        'cannot provide -traits to an exporting module that does not init_meta');
+
+    is(
+        $exception->class_name,
+        "Moose::Util::TypeConstraints",
+        'cannot provide -traits to an exporting module that does not init_meta');
+}
+
+{
+    my $exception = exception {
+        {
+            package MooseX::BadTraits;
+            use Moose ();
+
+            Moose::Exporter->setup_import_methods(
+                trait_aliases => [{hello => 1}]
+            );
+        }
+    };
+
+    like(
+        $exception,
+        qr/HASH references are not valid arguments to the 'trait_aliases' option/,
+        "a HASH ref is given to trait_aliases");
+
+    isa_ok(
+        $exception,
+        "Moose::Exception::InvalidArgumentsToTraitAliases",
+        "a HASH ref is given to trait_aliases");
+
+    is(
+        $exception->package_name,
+        "MooseX::BadTraits",
+        "a HASH ref is given to trait_aliases");
+}
+
+done_testing;