X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=maint%2Fgen-tests.pl;h=c75a80677eb434eba88aed0bc64a71b8343d9c3f;hb=89201d47ae16b04ce438085e386be5fab45e9a48;hp=62044e7f4a20cd00de879e0bb496b4bde472bf55;hpb=4c3759681305fb889c41ee1c6558ee0b24fc4253;p=p5sagit%2Flocal-lib.git

diff --git a/maint/gen-tests.pl b/maint/gen-tests.pl
index 62044e7..c75a806 100755
--- a/maint/gen-tests.pl
+++ b/maint/gen-tests.pl
@@ -12,11 +12,25 @@ my ($test, $segment, $text);
 
 sub mode::outer {
   shift;
-  if (shift =~ /^=for test (\S+)(?:\s+(\S+))?/) {
+  my $line = $_[0];
+  if ($line =~ /^=for test (\S+)(?:\s+(\S+))?/) {
     $mode = 'inner';
     ($test, $segment) = ($1, $2);
     $segment ||= '';
     $text = '';
+  } elsif ($line =~ /^=begin testing/) {
+    $mode = 'find_comment';
+    ($test, $segment, $text) = ('', '', '');
+  }
+}
+
+sub mode::find_comment {
+  shift;
+  my $line = $_[0];
+  if ($line =~ /^\#\:\: test (\S+)(?:\s+(\S+))?/) {
+    $mode = 'inner';
+    ($test, $segment) = ($1, $2);
+    $segment ||= '';
   }
 }