| author | Christian Urban <christian.urban@kcl.ac.uk> |
| Fri, 26 Apr 2024 17:29:30 +0100 | |
| changeset 482 | 20f02c5ff53f |
| parent 460 | f5c0749858fd |
| child 491 | 2a30c7dfe3ed |
| permissions | -rw-r--r-- |
| 421 | 1 |
import M3._ |
| 390 | 2 |
|
| 460 | 3 |
assert(SEQs_smart(Nil) == ONE) |
4 |
assert(SEQs_smart(List(ZERO)) == ZERO) |
|
5 |
assert(SEQs_smart(List(CHAR('a'))) == CHAR('a'))
|
|
6 |
assert(SEQs_smart(List(ONE ~ ONE)) == ONE ~ ONE) |
|
7 |
assert(SEQs_smart(List(ONE, ONE)) == SEQs(List(ONE, ONE))) |
|
8 |
assert(ALTs_smart(Nil) == ZERO) |
|
9 |
assert(ALTs_smart(List(ONE ~ ONE)) == ONE ~ ONE) |
|
10 |
assert(ALTs_smart(List(ZERO, ZERO)) == ALTs(List(ZERO, ZERO))) |