main_marking3/re_test7.scala
changeset 494 253d1ccb65de
parent 463 0315d9983cd0
equal deleted inserted replaced
493:244df77507c2 494:253d1ccb65de
     1 import M3._
       
     2 
     1 
     3 val EVIL_urban = SEQ(STAR(STAR(CHAR('a'))), CHAR('b'))
     2 def urbanmain() = {
       
     3   import M3._
     4 
     4 
     5 assert(ders(("a" * 5).toList, EVIL_urban) == SEQs(List(STAR(CHAR('a')), STAR(STAR(CHAR('a'))), CHAR('b'))))
     5   val EVIL_urban = SEQ(STAR(STAR(CHAR('a'))), CHAR('b'))
     6 assert(ders(List('b'), EVIL_urban) == ONE)
     6 
     7 assert(ders(List('b','b'), EVIL_urban) == ZERO)
     7   assert(ders(("a" * 5).toList, EVIL_urban) == SEQs(List(STAR(CHAR('a')), STAR(STAR(CHAR('a'))), CHAR('b'))))
     8 assert(matcher(EVIL_urban, "a" * 5 ++ "b") == true)
     8   assert(ders(List('b'), EVIL_urban) == ONE)
     9 assert(matcher(EVIL_urban, "a" * 50 ++ "b") == true)
     9   assert(ders(List('b','b'), EVIL_urban) == ZERO)
    10 assert(matcher(EVIL_urban, "a" * 50) == false)
    10   assert(matcher(EVIL_urban, "a" * 5 ++ "b") == true)
    11 assert(matcher(EVIL_urban, "b") == true)
    11   assert(matcher(EVIL_urban, "a" * 50 ++ "b") == true)
    12 assert(matcher(EVIL_urban, "bb") == false)
    12   assert(matcher(EVIL_urban, "a" * 50) == false)
    13 assert(matcher("abc", "abc") == true)
    13   assert(matcher(EVIL_urban, "b") == true)
    14 assert(matcher("abc", "ab") == false)
    14   assert(matcher(EVIL_urban, "bb") == false)
    15 assert(matcher(("ab" | "a") ~ (ONE | "bc"), "abc") == true)
    15   assert(matcher("abc", "abc") == true)
    16 assert(matcher(ONE, "") == true)
    16   assert(matcher("abc", "ab") == false)
    17 assert(matcher(ZERO, "") == false)
    17   assert(matcher(("ab" | "a") ~ (ONE | "bc"), "abc") == true)
    18 assert(matcher(ONE | CHAR('a'), "") == true)
    18   assert(matcher(ONE, "") == true)
    19 assert(matcher(ONE | CHAR('a'), "a") == true)
    19   assert(matcher(ZERO, "") == false)
       
    20   assert(matcher(ONE | CHAR('a'), "") == true)
       
    21   assert(matcher(ONE | CHAR('a'), "a") == true)
       
    22 }