add test for use with custom exporter

1 files changed, 45 insertions, 0 deletions

diff --git a/t/002-custom-exporter.t b/t/002-custom-exporter.t
new file mode 100644
index 0000000..b4efe98
--- /dev/null
+++ b/t/002-custom-exporter.t
@@ -0,0 +1,45 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Test::Exception;
+
+BEGIN {
+    package Foo::Exporter;
+    use Moose ();
+    use MooseX::Attribute::Shorthand ();
+    use Moose::Exporter;
+
+    my ($import) = Moose::Exporter->build_import_methods(
+        also    => ['Moose'],
+        install => ['unimport'],
+    );
+
+    sub import {
+        my $class = caller;
+        Moose->init_meta(for_class => $class);
+        MooseX::Attribute::Shorthand->import(
+            -for_class => $class,
+            string => {
+                is      => 'ro',
+                isa     => 'Str',
+                default => sub { $_[1] },
+                -meta_attr_options => { isa => 'Str' },
+            },
+        );
+        goto $import;
+    }
+}
+
+{
+    package Foo;
+    BEGIN { Foo::Exporter->import }
+
+    has foo => (string => 'FOO');
+}
+
+my $foo = Foo->new;
+is($foo->foo, 'FOO', "got correct options");
+dies_ok { $foo->foo('lsdkfj') } "got correct options";
+
+done_testing;