parsers/smalltalk/tests/PPSmalltalkParserTests.st
changeset 421 7e08b31e0dae
parent 417 3c0a91182e65
equal deleted inserted replaced
420:b2f2f15cef26 421:7e08b31e0dae
   388 	self assert: result statements first isLiteralNode.
   388 	self assert: result statements first isLiteralNode.
   389 	self assert: result statements first value equals: 1.
   389 	self assert: result statements first value equals: 1.
   390 	self assert: result statements first value isInteger
   390 	self assert: result statements first value isInteger
   391 !
   391 !
   392 
   392 
       
   393 testStatements9
       
   394 	super testStatements9.
       
   395 	self assert: result isEmpty.
       
   396 !
       
   397 
   393 testTemporaries1
   398 testTemporaries1
   394 	super testTemporaries1.
   399 	super testTemporaries1.
   395 	self assert: result isSequence.
   400 	self assert: result isSequence.
   396 	self assert: result temporaries size equals: 1.
   401 	self assert: result temporaries size equals: 1.
   397 	self assert: result temporaries first isVariable.
   402 	self assert: result temporaries first isVariable.
   501 	self assert: result arguments first name equals: 'a'.
   506 	self assert: result arguments first name equals: 'a'.
   502 	self assert: result arguments second isVariable.
   507 	self assert: result arguments second isVariable.
   503 	self assert: result arguments second name equals: 'b'.
   508 	self assert: result arguments second name equals: 'b'.
   504 	self assert: result arguments third isVariable.
   509 	self assert: result arguments third isVariable.
   505 	self assert: result arguments third name equals: 'c'.
   510 	self assert: result arguments third name equals: 'c'.
       
   511 	self assert: result body temporaries isEmpty.
       
   512 	self assert: result body statements isEmpty
       
   513 !
       
   514 
       
   515 testBlock1
       
   516 	super testBlock1.
       
   517 	self assert: result isBlock.
       
   518 	self assert: result arguments size equals: 0.
   506 	self assert: result body temporaries isEmpty.
   519 	self assert: result body temporaries isEmpty.
   507 	self assert: result body statements isEmpty
   520 	self assert: result body statements isEmpty
   508 !
   521 !
   509 
   522 
   510 testComplexBlock1
   523 testComplexBlock1