equal
deleted
inserted
replaced
366 self assert: fsa fail: 'aaa'. |
366 self assert: fsa fail: 'aaa'. |
367 self assert: fsa fail: 'aaaa'. |
367 self assert: fsa fail: 'aaaa'. |
368 ! |
368 ! |
369 |
369 |
370 testAAAorA_Astar |
370 testAAAorA_Astar |
371 |
371 | parser | |
372 |
372 |
373 | parser | |
373 ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[ |
374 |
374 self skipIf: true description: 'JK, remove this once fixed'. |
375 " JK: please remove this once fixed... " |
375 ]. |
376 ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) |
|
377 ifTrue:[ self skipIf: true description: 'never worked, JK?' ]. |
|
378 |
376 |
379 parser := (('aaa' asParser / 'a' asParser), 'a' asParser) star. |
377 parser := (('aaa' asParser / 'a' asParser), 'a' asParser) star. |
380 node := parser asCompilerTree. |
378 node := parser asCompilerTree. |
381 |
379 |
382 fsa := self fsaFrom: node. |
380 fsa := self fsaFrom: node. |
392 self assert: fsa parse: 'aaaaaaa' end: 4. |
390 self assert: fsa parse: 'aaaaaaa' end: 4. |
393 |
391 |
394 self assert: fsa fail: 'aaa'. |
392 self assert: fsa fail: 'aaa'. |
395 self assert: fsa fail: 'a'. |
393 self assert: fsa fail: 'a'. |
396 |
394 |
397 "Modified: / 07-09-2015 / 07:48:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395 "Modified: / 08-09-2015 / 01:52:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
398 ! |
396 ! |
399 |
397 |
400 testAAAstar_AA |
398 testAAAstar_AA |
401 | parser | |
399 | parser | |
402 parser := ('aaa' asParser) star, 'aa' asParser. |
400 parser := ('aaa' asParser) star, 'aa' asParser. |