RegressionTests__CompilerTest.st
changeset 77 904ff6cdebee
parent 74 46196e7cbaf6
child 78 349870f2f9b9
equal deleted inserted replaced
76:90adfa44fa2c 77:904ff6cdebee
     7 	classVariableNames:''
     7 	classVariableNames:''
     8 	poolDictionaries:''
     8 	poolDictionaries:''
     9 	category:'Tests-Regression'
     9 	category:'Tests-Regression'
    10 !
    10 !
    11 
    11 
       
    12 
       
    13 !CompilerTest class methodsFor:'tests argument passing'!
       
    14 
       
    15 ret0
       
    16     ^ 0
       
    17 
       
    18     "
       
    19      self ret0
       
    20     "
       
    21 !
       
    22 
       
    23 ret1
       
    24     ^ 1
       
    25 
       
    26     "
       
    27      self ret1
       
    28     "
       
    29 !
       
    30 
       
    31 retM1
       
    32     ^ -1
       
    33 
       
    34     "
       
    35      self retM1
       
    36     "
       
    37 !
       
    38 
       
    39 retSelf
       
    40     ^ self
       
    41 
       
    42     "
       
    43      self retSelf
       
    44     "
       
    45 ! !
    12 
    46 
    13 !CompilerTest methodsFor:'helpers'!
    47 !CompilerTest methodsFor:'helpers'!
    14 
    48 
    15 value:something
    49 value:something
    16     value := something
    50     value := something