X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Ftibdoc.g;h=99bab8349118b1c9a94d930b941e5f342a742cbe;hp=592619476cced71e7fa9f09b1757c78f42861b65;hb=f33c05adc5aa3dd324c5352cdbd6f4b55359acad;hpb=ce56b1e47ae08b71599fe5794f71034f6f53ec5d;ds=sidebyside

diff --git a/tests/tibdoc.g b/tests/tibdoc.g
index 5926194..99bab83 100644
--- a/tests/tibdoc.g
+++ b/tests/tibdoc.g
@@ -47,11 +47,10 @@ SectionHeaderBody ::=  "=" SectionHeaderBody "="
 
 kv         ::= word "=" text /ws => kv1
 
-num !::= [0-9]++ => "stringify"
 Paragraph  ::= { "\"\"" ws text }        => "blockquote"
              > { "*" " " ws text }       => "ul"
              > { "#" " " ws text }       => "ol"
-             > { num " " ws text }       => "ol"
+             > { num " " ws text => "ol" }
              > { "---" "-"* }            => "hr"
              > { text }                  => "p"
 
@@ -100,12 +99,12 @@ method     ::= [+\-.a-z0-9]+
 port       ::= [0-9]+
 
 domain     ::= part +/ "."
-part       ::= [a-zA-Z0-9\-]++ => "stringify"   // interesting use of boolean grammars
+part       ::= [A-Za-z0-9\-]++ => "stringify"
 //            &~ ([\-0-9] ~[]* | ~[]* [\-0-9])
 
 email      ::= username "@" host      => email
-host       ::= [0-9]+ "." [0-9]+ "." [0-9]+ "." [0-9]+ => "ip"
-             | domain
+host       ::= domain
+             | [0-9]+ "." [0-9]+ "." [0-9]+ "." [0-9]+ => "ip"
 
 
 
@@ -124,7 +123,8 @@ escaped  ::= "\\n" => "\n"
 // Chars ///////////////////////////////////////////////////////////////
 
 alpha    ::= [a-zA-Z]
-num      ::= [0-9]
+num     !::= [0-9]++ => "stringify"
+//num      ::= [0-9]
 alphanum ::= [a-zA-Z0-9]
 sym      ::= ~[a-zA-Z0-9\ \r\n]