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-- |
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))) }