compiler/tests/PEGFsaMinimizationTest.st
changeset 542 bb97dcbe2359
parent 537 fb212e14d1f4
equal deleted inserted replaced
541:ac763af77fc2 542:bb97dcbe2359
   133 !
   133 !
   134 
   134 
   135 testMinimze4
   135 testMinimze4
   136     | merged |
   136     | merged |
   137 
   137 
   138     " JK: please remove this once fixed... "
   138     ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[  
   139     ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) 
   139         self skipIf: true description: 'JK, remove this once fixed'.
   140         ifTrue:[ self skipIf: true description: 'never worked, JK?' ]. 
   140     ].   
   141 
   141 
   142 
   142 
   143     fsa addState: a.
   143     fsa addState: a.
   144     fsa addState: b.
   144     fsa addState: b.
   145     fsa addState: c.
   145     fsa addState: c.
   166     
   166     
   167     merged := a destination.
   167     merged := a destination.
   168     self assert: merged transitions size = 1.
   168     self assert: merged transitions size = 1.
   169     self assert: merged destination isFinal.
   169     self assert: merged destination isFinal.
   170 
   170 
   171     "Modified: / 07-09-2015 / 07:48:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   171     "Modified: / 08-09-2015 / 01:52:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   172 !
   172 !
   173 
   173 
   174 testStateEquals
   174 testStateEquals
   175     state addTransition: t1.
   175     state addTransition: t1.
   176     anotherState addTransition: t2.
   176     anotherState addTransition: t2.