felix/slime
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

using stdint types

Browse Source
This commit is contained in:
FelixBrendel
2020-03-31 11:38:53 +02:00
parent 33145be4c6
commit 76dd4d6482
52 changed files with 483 additions and 1503 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/tests/automata.slime
+12 -12
View File
@@ -22,25 +22,25 @@
(set::make "q0")))
(let ((state (aut ())))
(assert (= (first state) :accept))
(assert (= (first (rest state)) "q0")))
(assert (= (car state) :accept))
(assert (= (car (cdr state)) "q0")))
(let ((state (aut "M")))
(assert (= (first state) :fail))
(assert (= (first (rest state)) "q1")))
(assert (= (car state) :fail))
(assert (= (car (cdr state)) "q1")))
(let ((state (aut "A")))
(assert (= (first state) :accept))
(assert (= (first (rest state)) "q0")))
(assert (= (car state) :accept))
(assert (= (car (cdr state)) "q0")))
(let ((state (aut "M")))
(assert (= (first state) :fail))
(assert (= (first (rest state)) "q1")))
(assert (= (car state) :fail))
(assert (= (car (cdr state)) "q1")))
(let ((state (aut "G")))
(assert (= (first state) :fail))
(assert (= (first (rest state)) "q2")))
(assert (= (car state) :fail))
(assert (= (car (cdr state)) "q2")))
(let ((state (aut "E")))
(assert (= (first state) :accept))
(assert (= (first (rest state)) "q0")))
(assert (= (car state) :accept))
(assert (= (car (cdr state)) "q0")))