main_testing3/re_test3.scala
author Christian Urban <christian.urban@kcl.ac.uk>
Mon, 25 Dec 2023 01:10:55 +0100
changeset 479 78cb5cdda3c3
parent 472 fbff6f601370
permissions -rw-r--r--
updated jars
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
472
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
     1
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
     2
def urbanmain() = {
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
     3
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
     4
  import M3._
153
316f9c6cc2ff updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     5
316f9c6cc2ff updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     6
472
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
     7
  assert(simp(ZERO | ONE) == ONE)
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
     8
  assert(simp(STAR(ZERO | ONE)) == STAR(ZERO | ONE))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
     9
  assert(simp(ONE ~ (ONE ~ (ONE ~ CHAR('a')))) == CHAR('a'))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    10
  assert(simp(((ONE ~ ONE) ~ ONE) ~ CHAR('a')) == CHAR('a'))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    11
  assert(simp(((ONE | ONE) ~ ONE) ~ CHAR('a')) == CHAR('a'))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    12
  assert(simp(ONE ~ (ONE ~ (ONE ~ ZERO))) == ZERO)
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    13
  assert(simp(ALT(ONE ~ (ONE ~ (ONE ~ ZERO)), CHAR('a'))) == CHAR('a'))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    14
  assert(simp(CHAR('a') | CHAR('a')) == CHAR('a'))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    15
  assert(simp(CHAR('a') ~ CHAR('a')) == CHAR('a') ~ CHAR('a'))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    16
  assert(simp(ONE | CHAR('a')) == (ONE | CHAR('a')))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    17
  assert(simp(ALT((CHAR('a') | ZERO) ~ ONE, ((ONE | CHAR('b')) | CHAR('c')) ~ (CHAR('d') ~ ZERO))) == CHAR('a'))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    18
  assert(simp((ZERO | ((ZERO | ZERO) | (ZERO | ZERO))) ~ ((ONE | ZERO) | ONE ) ~ (CHAR('a'))) == ZERO)
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    19
  assert(simp(ALT(ONE | ONE, ONE | ONE)) == ONE)
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    20
  assert(simp(ALT(ZERO | CHAR('a'), CHAR('a') | ZERO)) == CHAR('a'))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    21
  assert(simp(ALT(ONE | CHAR('a'), CHAR('a') | ONE)) == ALT(ONE, CHAR('a')))
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    22
  assert(simp(ALTs(Nil)) == ZERO)
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    23
  assert(simp(SEQs(List(CHAR('a')))) == CHAR('a'))
153
316f9c6cc2ff updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    24
472
fbff6f601370 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 430
diff changeset
    25
}