Changeset 14871 in project for release/4/lexgen/trunk/tests/run.scm


Ignore:
Timestamp:
06/03/09 13:09:08 (11 years ago)
Author:
Ivan Raikov
Message:

bug fixes in lexgen star

File:
1 edited

Legend:

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

    r14868 r14871  
    4646
    4747            (test (sprintf "match a* on ~S" "aabac")
    48                   `((() (#\a #\a #\b #\a #\c)) ((#\a #\a) (#\b #\a #\c)))
     48                  `((() (#\a #\a #\b #\a #\c)) ((#\a ) (#\a #\b #\a #\c)) ((#\a #\a) (#\b #\a #\c)))
    4949                  (a-star-pat identity err aabac-stream))
    5050
    5151            (test (sprintf "match (a*|b) on ~S" "aabac")
    52                    `((() (#\a #\a #\b #\a #\c)) ((#\a #\a) (#\b #\a #\c)))
     52                   `((() (#\a #\a #\b #\a #\c)) ((#\a ) (#\a #\b #\a #\c)) ((#\a #\a) (#\b #\a #\c)))
    5353                   (a-star-or-b-pat identity err aabac-stream))
    5454
    5555            (test (sprintf "match (a|b)* on ~S" "abc")
    56                    `((() (#\a #\b #\c))  ((#\b #\a) (#\c)))
     56                   `((() (#\a #\b #\c))  ((#\a) (#\b #\c)) ((#\b #\a) (#\c)))
    5757                   (a-or-b-star-pat identity err abc-stream))
    5858
    5959            (test (sprintf "match (a|b)* on ~S" "aabac")
    60                    `((() (#\a #\a #\b #\a #\c)) ((#\a #\a) (#\b #\a #\c)) ((#\b #\a #\a) (#\a #\c)))
     60                   `((() (#\a #\a #\b #\a #\c)) ((#\a ) (#\a #\b #\a #\c)) ((#\a #\a) (#\b #\a #\c))
     61                     ((#\b #\a #\a) (#\a #\c)) ((#\a #\b #\a #\a) (#\c)))
    6162                   (a-or-b-star-pat identity err aabac-stream))
    6263
Note: See TracChangeset for help on using the changeset viewer.