Regex version still fails

diff --git a/t/lib/TestApp/root/difficult b/t/lib/TestApp/root/difficult
index 02c35e9..c6711f4 100644 (file)
--- a/t/lib/TestApp/root/difficult
+++ b/t/lib/TestApp/root/difficult
@@ -1,3 +1,4 @@
+[% help_text("one"); help_text("two"); %]
 [% help_text("undocumented") %]
 [% help_text(no_pass) %]
 [%
@@ -5,4 +6,4 @@
   help_text  ( "pass");
   help_text( 'pass' );
   help_text  ( 'pass');
-%]
\ No newline at end of file
+%]

diff --git a/t/script.t b/t/script.t
index 34d336c..06c0e90 100644 (file)
--- a/t/script.t
+++ b/t/script.t
@@ -33,9 +33,9 @@ foreach my $suffix ('', '::Regexp') {
         $path.'helptext/fnoo.html',
     );
     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);
+    is_deeply [ sort $script->all_keys->flatten ], [ sort 'undocumented', 'fnoo', 'one', 'two', 'pass', ], "All keys found for class '$class'" or diag Dumper($script->all_keys);
+    is_deeply [ sort $script->undocumented_keys->flatten ], [ sort 'one', 'two', '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;