12 my $path = "$Bin/lib/TestApp/root/";
14 use_ok 'CatalystX::HelpText::Script::SearchUndocumentedHelpText';
16 foreach my $suffix ('', '::Regexp') {
18 my $class = "CatalystX::HelpText::Finder::TemplateToolkit" . $suffix;
21 $script = CatalystX::HelpText::Script::SearchUndocumentedHelpText->new(
22 help_files_path => "$path/helptext",
23 template_search_dir => "$path",
24 finder_class => $class,
25 filename_pattern => '\W',
33 $path.'helptext/fnoo.html',
35 is_deeply [ sort $script->all_files->flatten ], [ sort @files ], "Files found for class '$class'" or diag Dumper($script->all_files);
36 is_deeply [ sort $script->all_keys->flatten ], [ sort 'undocumented', 'fnoo', 'pass' ], "All keys found for class '$class'" or diag Dumper($script->all_keys);
37 is_deeply [ sort $script->undocumented_keys->flatten ], [ sort 'undocumented', 'pass' ], "undocumented keys found for class '$class'" or diag Dumper($script->undocumented_keys);
38 is_deeply [ sort $script->documented_keys->flatten ], [ sort 'fnoo' ], "documented keys found for class '$class'" or diag Dumper($script->documented_keys);