X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fscript.t;fp=t%2Fscript.t;h=34d336c83657020c99a27a47ed3142fca8756fc0;hb=8137c236d4d7a7cf1fb9e0d11ef0b9e1dde1b9fa;hp=3954eeb923901da549c853870bb441c6d4fab928;hpb=22c77d41d24b3bf39a57e6dbaef3cb209310010a;p=catagits%2FCatalystX-HelpText.git

diff --git a/t/script.t b/t/script.t
index 3954eeb..34d336c 100644
--- a/t/script.t
+++ b/t/script.t
@@ -32,11 +32,10 @@ foreach my $suffix ('', '::Regexp') {
         $path.'main',
         $path.'helptext/fnoo.html',
     );
-    is_deeply [ sort $script->all_files->flatten ], [ sort @files ], "Files found";
-    is_deeply [ sort $script->all_keys->flatten ], [ sort 'undocumented', 'fnoo', 'fnar' ], "All keys found";
-    is_deeply [ sort $script->undocumented_keys->flatten ], [ sort 'undocumented', 'fnar' ], "undocumented keys found";
-    is_deeply [ sort $script->documented_keys->flatten ], [ sort 'fnoo' ], "documented keys found";
-
+    is_deeply [ sort $script->all_files->flatten ], [ sort @files ], "Files found for class '$class'" or diag Dumper($script->all_files);
+    is_deeply [ sort $script->all_keys->flatten ], [ sort 'undocumented', 'fnoo', 'pass' ], "All keys found for class '$class'" or diag Dumper($script->all_keys);
+    is_deeply [ sort $script->undocumented_keys->flatten ], [ sort 'undocumented', 'pass' ], "undocumented keys found for class '$class'"  or diag Dumper($script->undocumented_keys);
+    is_deeply [ sort $script->documented_keys->flatten ], [ sort 'fnoo' ], "documented keys found for class '$class'"  or diag Dumper($script->documented_keys);
 }
 
 done_testing;