1450 self assert: result first equals: '12'. |
1450 self assert: result first equals: '12'. |
1451 self assert: result last equals: '3' |
1451 self assert: result last equals: '3' |
1452 ! |
1452 ! |
1453 |
1453 |
1454 testParse |
1454 testParse |
1455 | parser result | |
1455 | parser result | |
1456 parser := $a asParser. |
1456 parser := $a asParser. |
1457 self assert: (parser parse: 'a') equals: $a. |
1457 self assert: (parser parse: 'a') equals: $a. |
1458 self assert: (result := parser parse: 'b') isPetitFailure. |
1458 self assert: (result := parser parse: 'b') isPetitFailure. |
1459 self assert: (result message includesSubstring: '$a'). |
1459 self assert: (result message includesSubstring: '$a'). |
1460 self assert: (result message includesSubstring: 'expected'). |
1460 self assert: (result message includesSubstring: 'expected'). |
1461 self assert: result position equals: 0. |
1461 self assert: result position equals: 0. |
1462 self assert: (parser parse: 'a' readStream) equals: $a. |
1462 self assert: (parser parse: 'a' readStream) equals: $a. |
1463 self assert: (result := parser parse: 'b' readStream) isPetitFailure. |
1463 self assert: (result := parser parse: 'b' readStream) isPetitFailure. |
1464 self assert: (result message includesSubstring: '$a'). |
1464 self assert: (result message includesSubstring: '$a'). |
1465 self assert: (result message includesSubstring: 'expected'). |
1465 self assert: (result message includesSubstring: 'expected'). |
1466 self assert: result position equals: 0 |
1466 self assert: result position equals: 0 |
|
1467 |
|
1468 "Modified (format): / 03-10-2014 / 02:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1467 ! |
1469 ! |
1468 |
1470 |
1469 testParseOnError0 |
1471 testParseOnError0 |
1470 | parser result seen | |
1472 | parser result seen | |
1471 parser := $a asParser. |
1473 parser := $a asParser. |