quickSelfTest/SelfTest.st
changeset 18 587031fd105b
parent 17 bb8bd2756d71
child 21 461d965c3364
equal deleted inserted replaced
17:bb8bd2756d71 18:587031fd105b
    36 (Smalltalk allClassesInPackage:'exept:regression') do:[:each |
    36 (Smalltalk allClassesInPackage:'exept:regression') do:[:each |
    37     (#(
    37     (#(
    38 	'RegressionTests::ExternalInterfaceTests'
    38 	'RegressionTests::ExternalInterfaceTests'
    39 	'RegressionTests::ContextTest2'
    39 	'RegressionTests::ContextTest2'
    40 	'RegressionTests::StackFrameTest'
    40 	'RegressionTests::StackFrameTest'
       
    41 	'RegressionTests::BlockTest'
    41     ) includes:each name) ifTrue:[
    42     ) includes:each name) ifTrue:[
    42 	Stdout showCR:('Skipped ',each name,'...').
    43 	Stdout showCR:('Skipped ',each name,'...').
    43     ] ifFalse:[
    44     ] ifFalse:[
    44 	Stdout showCR:('Loading ',each name,'...').
    45 	Stdout showCR:('Loading ',each name,'...').
    45 	each autoload
    46 	each autoload