equal
deleted
inserted
replaced
6 instanceVariableNames:'state t1 t2 t3 t4 anotherState' |
6 instanceVariableNames:'state t1 t2 t3 t4 anotherState' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Tests-FSA' |
9 category:'PetitCompiler-Tests-FSA' |
10 ! |
10 ! |
|
11 |
11 |
12 |
12 !PEGFsaStateTest methodsFor:'as yet unclassified'! |
13 !PEGFsaStateTest methodsFor:'as yet unclassified'! |
13 |
14 |
14 setUp |
15 setUp |
15 state := PEGFsaState new name: #state; retval: #state; yourself. |
16 state := PEGFsaState new name: #state; retval: #state; yourself. |
122 self assert: (state transitionPairs includes: (PEGFsaPair with: t1 with: t2)). |
123 self assert: (state transitionPairs includes: (PEGFsaPair with: t1 with: t2)). |
123 self assert: (state transitionPairs includes: (PEGFsaPair with: t1 with: t3)). |
124 self assert: (state transitionPairs includes: (PEGFsaPair with: t1 with: t3)). |
124 self assert: (state transitionPairs includes: (PEGFsaPair with: t2 with: t3)). |
125 self assert: (state transitionPairs includes: (PEGFsaPair with: t2 with: t3)). |
125 ! ! |
126 ! ! |
126 |
127 |
|
128 !PEGFsaStateTest class methodsFor:'documentation'! |
|
129 |
|
130 version_HG |
|
131 |
|
132 ^ '$Changeset: <not expanded> $' |
|
133 ! ! |
|
134 |