| author | Christian Urban <christian.urban@kcl.ac.uk> |
| Mon, 06 Nov 2023 14:18:26 +0000 | |
| changeset 474 | 8a61bcd51ec3 |
| parent 472 | fbff6f601370 |
| permissions | -rw-r--r-- |
| 472 | 1 |
|
2 |
def urbanmain() = {
|
|
3 |
||
4 |
import M3._ |
|
| 153 | 5 |
|
| 472 | 6 |
assert(SEQs_smart(Nil) == ONE) |
7 |
assert(SEQs_smart(List(ZERO)) == ZERO) |
|
8 |
assert(SEQs_smart(List(CHAR('a'))) == CHAR('a'))
|
|
9 |
assert(SEQs_smart(List(ONE ~ ONE)) == ONE ~ ONE) |
|
10 |
assert(SEQs_smart(List(ONE, ONE)) == SEQs(List(ONE, ONE))) |
|
11 |
assert(ALTs_smart(Nil) == ZERO) |
|
12 |
assert(ALTs_smart(List(ONE ~ ONE)) == ONE ~ ONE) |
|
13 |
assert(ALTs_smart(List(ZERO, ZERO)) == ALTs(List(ZERO, ZERO))) |
|
14 |
} |