|
491
|
1 |
|
|
|
2 |
def urbanmain() = {
|
|
|
3 |
import M3._
|
390
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff
changeset
|
4 |
|
|
491
|
5 |
assert(SEQs_smart(Nil) == ONE)
|
|
|
6 |
assert(SEQs_smart(List(ZERO)) == ZERO)
|
|
|
7 |
assert(SEQs_smart(List(CHAR('a'))) == CHAR('a'))
|
|
|
8 |
assert(SEQs_smart(List(ONE ~ ONE)) == ONE ~ ONE)
|
|
|
9 |
assert(SEQs_smart(List(ONE, ONE)) == SEQs(List(ONE, ONE)))
|
|
|
10 |
assert(ALTs_smart(Nil) == ZERO)
|
|
|
11 |
assert(ALTs_smart(List(ONE ~ ONE)) == ONE ~ ONE)
|
|
|
12 |
assert(ALTs_smart(List(ZERO, ZERO)) == ALTs(List(ZERO, ZERO)))
|
|
|
13 |
}
|