Changeset 14961 in project


Ignore:
Timestamp:
06/10/09 08:17:02 (10 years ago)
Author:
Ivan Raikov
Message:

initial import for internet-message, a parser for RFC 5322

Location:
release/4
Files:
6 added
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/lexgen/trunk/tests/run.scm

    r14956 r14961  
    1111(define a-or-b-star-pat (star a-or-b-pat))
    1212(define a-b-opt-pat (seq a-pat (opt b-pat)))
     13(define b-opt-a-pat (seq (opt b-pat) a-pat))
     14(define a-b-opt-a-pat (seq a-pat (seq (opt b-pat) a-pat)))
    1315(define a-star-b-opt-pat (seq (star a-pat) (opt b-pat)))
    1416(define aabac-pat (lit "aabac"))
     
    7577                   `(((#\a) (#\a #\b #\a #\c)) )
    7678                   (a-b-opt-pat identity  aabac-stream))
     79
     80            (test (sprintf "match b?a on ~S" "abc")
     81                   `(((#\a) (#\b #\c)) )
     82                   (b-opt-a-pat identity  abc-stream))
     83
     84            (test (sprintf "match ab?a on ~S" "aabac")
     85                   `(((#\a #\a) (#\b #\a #\c)) )
     86                   (a-b-opt-a-pat identity  aabac-stream))
    7787
    7888            (test (sprintf "match a*b? on ~S" "aabac")
Note: See TracChangeset for help on using the changeset viewer.