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 <skip> "/ JK: please remove this once fixed... |
371 |
372 |
372 |
373 | parser | |
373 | parser | |
|
374 |
|
375 " JK: please remove this once fixed... " |
|
376 ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) |
|
377 ifTrue:[ self skipIf: true description: 'never worked, JK?' ]. |
374 |
378 |
375 parser := (('aaa' asParser / 'a' asParser), 'a' asParser) star. |
379 parser := (('aaa' asParser / 'a' asParser), 'a' asParser) star. |
376 node := parser asCompilerTree. |
380 node := parser asCompilerTree. |
377 |
381 |
378 fsa := self fsaFrom: node. |
382 fsa := self fsaFrom: node. |
388 self assert: fsa parse: 'aaaaaaa' end: 4. |
392 self assert: fsa parse: 'aaaaaaa' end: 4. |
389 |
393 |
390 self assert: fsa fail: 'aaa'. |
394 self assert: fsa fail: 'aaa'. |
391 self assert: fsa fail: 'a'. |
395 self assert: fsa fail: 'a'. |
392 |
396 |
393 "Modified (format): / 17-08-2015 / 22:34:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
397 "Modified: / 07-09-2015 / 07:48:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
394 ! |
398 ! |
395 |
399 |
396 testAAAstar_AA |
400 testAAAstar_AA |
397 | parser | |
401 | parser | |
398 parser := ('aaa' asParser) star, 'aa' asParser. |
402 parser := ('aaa' asParser) star, 'aa' asParser. |