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

diff --git a/t/script.t b/t/script.t
index 49390bf..3954eeb 100644
--- a/t/script.t
+++ b/t/script.t
@@ -8,28 +8,35 @@ use Test::Exception;
 use FindBin qw($Bin);
 use lib "$Bin/lib";
 use Data::Dumper;
+use Moose::Autobox;
 my $path = "$Bin/lib/TestApp/root/";
 
 use_ok 'CatalystX::HelpText::Script::SearchUndocumentedHelpText';
-my $script;
-lives_ok {
-    $script = CatalystX::HelpText::Script::SearchUndocumentedHelpText
-        ->new_with_options(
+
+foreach my $suffix ('', '::Regexp') {
+
+    my $class = "CatalystX::HelpText::Finder::TemplateToolkit" . $suffix;
+    my $script;
+    lives_ok {
+        $script = CatalystX::HelpText::Script::SearchUndocumentedHelpText->new(
             help_files_path => "$path/helptext",
             template_search_dir => "$path",
-            finder_class => "CatalystX::HelpText::Finder::TemplateToolkit",
+            finder_class => $class,
             filename_pattern => '\W',
         );
-} "don't break";
+    } "don't break";
+
+    my @files = (
+        $path.'difficult',
+        $path.'undocumented',
+        $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";
 
-my $files = [
-          $path.'undocumented',
-          $path.'main',
-          $path.'helptext/fnoo.html',
-        ];
-is_deeply $script->all_files, $files, "Files found";
-is_deeply $script->all_keys, [ 'undocumented', 'fnoo' ], "All keys found";
-is_deeply $script->undocumented_keys, [ 'undocumented' ], "undocumented keys found";
-is_deeply $script->documented_keys, [ 'fnoo' ], "documented keys found";
+}
 
 done_testing;