main_testing3/re_test6.scala
author Christian Urban <christian.urban@kcl.ac.uk>
Sun, 14 Jul 2024 14:31:39 +0100 (7 months ago)
changeset 492 4ffba2f72692
parent 475 59e005dcf163
permissions -rw-r--r--
updated

def urbanmain() = {

  import M3._

  assert(SEQs_smart(Nil) == ONE)
  assert(SEQs_smart(List(ZERO)) == ZERO)
  assert(SEQs_smart(List(CHAR('a'))) == CHAR('a'))
  assert(SEQs_smart(List(ONE ~ ONE)) == ONE ~ ONE)
  assert(SEQs_smart(List(ONE, ONE)) == SEQs(List(ONE, ONE)))
  assert(ALTs_smart(Nil) == ZERO)
  assert(ALTs_smart(List(ONE ~ ONE)) == ONE ~ ONE)
  assert(ALTs_smart(List(ZERO, ZERO)) == ALTs(List(ZERO, ZERO)))
}