Fix for #2

ingydotnet · Aug 4, 2014 · 6fa59bb · 6fa59bb
1 parent 2e70d60
commit 6fa59bb
Show file tree

Hide file tree

Showing 4 changed files with 42 additions and 2 deletions.
diff --git a/lib/TestML/Compiler/Pegex/Grammar.pm b/lib/TestML/Compiler/Pegex/Grammar.pm
@@ -5,7 +5,7 @@ extends 'Pegex::Grammar';
 
 use constant file => '../testml-pgx/testml.pgx';
 
-sub make_tree {
+sub make_tree {   # Generated/Inlined by Pegex::Grammar (0.43)
   {
     '+grammar' => 'testml',
     '+include' => 'atom',
@@ -465,7 +465,7 @@ sub make_tree {
       ]
     },
     'point_lines' => {
-      '.rgx' => qr/\G((?:(?!===|\-\-\-).*\r?\n)*)/
+      '.rgx' => qr/\G((?:(?!(?:===|\-\-\-)\ \w).*\r?\n)*)/
     },
     'point_marker' => {
       '.rgx' => qr/\G\-\-\-/

diff --git a/test/TestMLBridge.pm b/test/TestMLBridge.pm
@@ -30,4 +30,11 @@ sub f2 {
     return num $num * $num + $num;
 }
 
+sub replace_with_dots {
+    my ($self, $text) = @_;
+    $text = $text->value;
+    $text =~ s/\S/./g;
+    return str $text;
+}
+
 1;
diff --git a/test/testml-edge-cases.t b/test/testml-edge-cases.t
@@ -0,0 +1,10 @@
+use strict;
+use File::Basename;
+use lib dirname(__FILE__);
+use TestML;
+use TestMLBridge;
+
+TestML->new(
+    testml => 'testml/edge-cases.tml',
+    bridge => 'TestMLBridge',
+)->run;
diff --git a/test/testml/edge-cases.tml b/test/testml/edge-cases.tml
@@ -0,0 +1,23 @@
+%TestML 0.1.0
+
+Plan = 1
+
+*input.replace_with_dots == *output
+
+=== Allow text looking like --- or === markers
+--- input
+---
+--- &foo
+==
+====
+===foo bar
+\--- foo
+\=== bar
+--- output
+...
+... ....
+..
+....
+...... ...
+... ...
+... ...