marking/re1c_test.scala
author Christian Urban <christian dot urban at kcl dot ac dot uk>
Mon, 05 Aug 2019 20:14:06 +0100
changeset 269 86a85865e772
parent 92 cfff88de2ff5
permissions -rw-r--r--
updated


import scala.concurrent._
import scala.concurrent.duration._
import ExecutionContext.Implicits.global
import scala.language.postfixOps 



lazy val f = Future {
  assert(simp(ZERO | ONE) == ONE)
  assert(simp(STAR(ZERO | ONE)) == STAR(ZERO | ONE))
  assert(simp(ONE ~ (ONE ~ (ONE ~ CHAR('a')))) == CHAR('a'))
  assert(simp(ONE ~ (ONE ~ (ONE ~ ZERO))) == ZERO)
  assert(simp(ALT(ONE ~ (ONE ~ (ONE ~ ZERO)), CHAR('a'))) == CHAR('a'))
  assert(simp(CHAR('a') | CHAR('a')) == CHAR('a'))
  assert(simp(ONE | CHAR('a')) == (ONE | CHAR('a')))
}

Await.result(f, 30 second)