From: Tokuhiro Matsuno <tokuhirom@gmail.com>
Date: Mon, 19 Oct 2009 02:35:48 +0000 (+0900)
Subject: added failing test case for RT#47744
X-Git-Tag: 0.40~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d4df3f8678a59b346737b5e0f24a87c12f84abc;p=gitmo%2FMouse.git

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
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
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;
+};