more test and fixes

[catagits/CatalystX-HelpText.git] / t / script.t

diff --git a/t/script.t b/t/script.t
index 3954eeb..34d336c 100644 (file)
--- 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;