added failing test case for RT#47744

diff --git a/xt/external/lib/Foo.pm b/xt/external/lib/Foo.pm
new file mode 100644 (file)
index 0000000..3fbedeb
--- /dev/null
+++ b/xt/external/lib/Foo.pm
@@ -0,0 +1,30 @@
+package Foo;
+use Mouse;
+
+has foo => (
+    is => 'ro',
+    isa => 'Str',
+);
+
+has bar => (
+    is => 'ro',
+    isa => 'Str',
+);
+
+no Mouse;
+__PACKAGE__->meta->make_immutable;
+__END__
+
+=head1 NAME
+
+Foo - bar
+
+=head1 ATTRIBUTES
+
+=over 4
+
+=item foo
+
+=back
+
+=cut

diff --git a/xt/external/poe-coverage-moose.t b/xt/external/poe-coverage-moose.t
new file mode 100644 (file)
index 0000000..de36015
--- /dev/null
+++ b/xt/external/poe-coverage-moose.t
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use Test::More;
+use FindBin;
+use File::Spec;
+use lib File::Spec->catfile($FindBin::Bin, 'lib');
+
+plan skip_all => 'This test requires Pod::Coverage::Moose' unless eval "use Pod::Coverage::Moose; 1";
+plan tests => 1;
+
+# support Pod::Coverage::Moose
+#   https://rt.cpan.org/Ticket/Display.html?id=47744
+
+TODO: {
+    todo_skip 'not implemented yet', 1;
+    my $cov = Pod::Coverage::Moose->new(package => 'Foo');
+    is $cov->coverage, 0.5;
+};