RegressionTests__LiteralsInMethodTests.st
changeset 1447 2351db93aa5b
parent 1262 17773030b8fe
child 1500 d406a10b2965
equal deleted inserted replaced
1446:c3b09cef9f87 1447:2351db93aa5b
     1 "{ Package: 'exept:regression' }"
     1 "{ Package: 'stx:goodies/regression' }"
     2 
     2 
     3 "{ NameSpace: RegressionTests }"
     3 "{ NameSpace: RegressionTests }"
     4 
     4 
     5 TestCase subclass:#LiteralsInMethodTests
     5 TestCase subclass:#LiteralsInMethodTests
     6 	instanceVariableNames:''
     6 	instanceVariableNames:''
    14 documentation
    14 documentation
    15 "
    15 "
    16     documentation to be added.
    16     documentation to be added.
    17 
    17 
    18     [author:]
    18     [author:]
    19         cg
    19 	cg
    20 
    20 
    21     [instance variables:]
    21     [instance variables:]
    22 
    22 
    23     [class variables:]
    23     [class variables:]
    24 
    24 
    31 
    31 
    32 classCheck:arg
    32 classCheck:arg
    33     "only a check-method"
    33     "only a check-method"
    34 
    34 
    35     (arg class == Array) ifTrue:[
    35     (arg class == Array) ifTrue:[
    36         arg yourself
    36 	arg yourself
    37     ].
    37     ].
    38 
    38 
    39     "Created: / 08-08-2011 / 20:26:31 / cg"
    39     "Created: / 08-08-2011 / 20:26:31 / cg"
    40 !
    40 !
    41 
    41