--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/t/000-pod.t	Fri Nov 25 15:44:37 2011 +0100
@@ -0,0 +1,15 @@
+use 5.010;
+use strict;
+use warnings;
+#use Pod::Coverage;
+use Test::Pod::Coverage tests => 1;
+
+#my $pc = Pod::Coverage->new(package => "Message::2822");
+#is($pc->coverage => 1, "POD coverage") or $pc->naked
+#	? diag("Undocumented: ", join ", " => $pc->naked)
+#	: diag($pc->why_unrated);
+#
+#done_testing();
+
+pod_coverage_ok("Message::2822");
+