[squeak-dev] The Trunk: Tests-ct.477.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jan 31 19:42:27 UTC 2022
Christoph Thiede uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ct.477.mcz
==================== Summary ====================
Name: Tests-ct.477
Author: ct
Time: 31 January 2022, 8:42:26.054214 pm
UUID: 1a7f2a13-c7f1-794d-a76a-6b107e74f42a
Ancestors: Tests-ct.476
Complements SUnit-ct.130 (deprecation of TestResult error) and SUnit-ct.138 (new convenience #shouldRaiseError:).
=============== Diff against Tests-ct.476 ===============
Item was changed:
----- Method: PrimCallControllerAbstractTest>>testChangeFailedCallFailing (in category 'tests') -----
testChangeFailedCallFailing
pcc preserveStatusOfFailedCalls.
+ self shouldRaiseError: [pcc enableCallIn: self failedCallRef].
+ self shouldRaiseError: [pcc disableCallIn: self failedCallRef].!
- self
- should: [pcc enableCallIn: self failedCallRef]
- raise: TestResult error.
- self
- should: [pcc disableCallIn: self failedCallRef]
- raise: TestResult error!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>testDisableCallsIntoModule (in category 'tests') -----
testDisableCallsIntoModule
"wrong module"
+ self shouldRaiseError: [pcc disableCallsIntoModule: 'totallyRandom4711'].
- self
- should: [pcc disableCallsIntoModule: 'totallyRandom4711']
- raise: TestResult error.
"precondition: all enabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"disabling"
pcc disableCallsIntoModule: self exampleModuleName.
"now all disabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = 0.
"not enabled!!"
+ self shouldRaiseError: [pcc disableCallsIntoModule: self exampleModuleName].
- self
- should: [pcc disableCallsIntoModule: self exampleModuleName]
- raise: TestResult error.
"enabling"
self methodRefsToExampleModule
do: [:ref | pcc enableCallIn: ref].
"all enabled now"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"not enabled!!"
+ self shouldRaiseError: [pcc disableCallsIntoModule: self failModuleName].
- self
- should: [pcc disableCallsIntoModule: self failModuleName]
- raise: TestResult error.
pcc changeStatusOfFailedCalls.
pcc disableCallsIntoModule: self failModuleName.
self assert: (pcc existsDisabledCallIn: self failedCallRef).
"postcondition"
+ pcc enableCallIn: self failedCallRef.!
- pcc enableCallIn: self failedCallRef
- !
Item was changed:
----- Method: PrimCallControllerAbstractTest>>testDisableCallsIntoModuleForClasses (in category 'tests') -----
testDisableCallsIntoModuleForClasses
"wrong module"
+ self shouldRaiseError: [pcc disableCallsIntoModule: 'totallyRandom4711' forClasses: {self class}].
- self
- should: [pcc disableCallsIntoModule: 'totallyRandom4711' forClasses: {self class}]
- raise: TestResult error.
"precondition: all enabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"disabling"
pcc disableCallsIntoModule: self exampleModuleName forClasses: {self class}.
"now all disabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = 0.
"not enabled!!"
+ self shouldRaiseError: [pcc disableCallsIntoModule: self exampleModuleName forClasses: {self class}].
- self
- should: [pcc disableCallsIntoModule: self exampleModuleName forClasses: {self class}]
- raise: TestResult error.
"enabling"
self methodRefsToExampleModule
do: [:ref | pcc enableCallIn: ref].
"all enabled now"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"not enabled!!"
+ self shouldRaiseError: [pcc disableCallsIntoModule: self failModuleName forClasses: {self class}].
- self
- should: [pcc disableCallsIntoModule: self failModuleName forClasses: {self class}]
- raise: TestResult error.
pcc changeStatusOfFailedCalls.
pcc disableCallsIntoModule: self failModuleName forClasses: {self class}.
self assert: (pcc existsDisabledCallIn: self failedCallRef).
"postcondition"
+ pcc enableCallIn: self failedCallRef.!
- pcc enableCallIn: self failedCallRef
- !
Item was changed:
----- Method: PrimCallControllerAbstractTest>>testEnableCallsIntoModule (in category 'tests') -----
testEnableCallsIntoModule
self avoidSlowTest
ifTrue: [^ self].
"wrong module"
+ self shouldRaiseError: [pcc enableCallsIntoModule: 'totallyRandom4711'].
- self
- should: [pcc enableCallsIntoModule: 'totallyRandom4711']
- raise: TestResult error.
"precondition: all enabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"not disabled!!"
+ self shouldRaiseError: [pcc enableCallsIntoModule: self exampleModuleName].
- self
- should: [pcc enableCallsIntoModule: self exampleModuleName]
- raise: TestResult error.
"disabling"
self methodRefsToExampleModule
do: [:ref | pcc disableCallIn: ref].
"now all disabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = 0.
"enabling"
"now this should work"
pcc enableCallsIntoModule: self exampleModuleName.
"all enabled now"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"not disabled!!"
+ self shouldRaiseError: [pcc enableCallsIntoModule: self failModuleName].
- self
- should: [pcc enableCallsIntoModule: self failModuleName]
- raise: TestResult error.
pcc changeStatusOfFailedCalls.
pcc enableCallsIntoModule: self failModuleName.
+ self assert: (pcc existsEnabledCallIn: self failedCallRef).!
- self assert: (pcc existsEnabledCallIn: self failedCallRef)
- !
Item was changed:
----- Method: PrimCallControllerAbstractTest>>testEnableCallsIntoModuleForClasses (in category 'tests') -----
testEnableCallsIntoModuleForClasses
"wrong module"
+ self shouldRaiseError: [pcc enableCallsIntoModule: 'totallyRandom4711' forClasses: {self class}].
- self
- should: [pcc enableCallsIntoModule: 'totallyRandom4711' forClasses: {self class}]
- raise: TestResult error.
"precondition: all enabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"not disabled!!"
+ self shouldRaiseError: [pcc enableCallsIntoModule: self exampleModuleName forClasses: {self class}].
- self
- should: [pcc enableCallsIntoModule: self exampleModuleName forClasses: {self class}]
- raise: TestResult error.
"disabling"
self methodRefsToExampleModule
do: [:ref | pcc disableCallIn: ref].
"now all disabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = 0.
"enabling"
"now this should work"
pcc enableCallsIntoModule: self exampleModuleName forClasses: {self class}.
"all enabled now"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"not disabled!!"
+ self shouldRaiseError: [pcc enableCallsIntoModule: self failModuleName forClasses: {self class}].
- self
- should: [pcc enableCallsIntoModule: self failModuleName forClasses: {self class}]
- raise: TestResult error.
pcc changeStatusOfFailedCalls.
pcc enableCallsIntoModule: self failModuleName forClasses: {self class}.
+ self assert: (pcc existsEnabledCallIn: self failedCallRef).!
- self assert: (pcc existsEnabledCallIn: self failedCallRef)
- !
Item was changed:
----- Method: PrimCallControllerAbstractTest>>testEnableDisableCallIn (in category 'tests') -----
testEnableDisableCallIn
| refs |
refs := self methodRefsToExampleModule.
"wrong call"
+ self shouldRaiseError: [pcc disableCallIn: self wrongCallRef].
- self
- should: [pcc disableCallIn: self wrongCallRef]
- raise: TestResult error.
"wrong class"
+ self shouldRaiseError: [pcc disableCallIn: self wrongClassRef].
- self
- should: [pcc disableCallIn: self wrongClassRef]
- raise: TestResult error.
"wrong call"
+ self shouldRaiseError: [pcc enableCallIn: self wrongCallRef].
- self
- should: [pcc enableCallIn: self wrongCallRef]
- raise: TestResult error.
"wrong class"
+ self shouldRaiseError: [pcc enableCallIn: self wrongClassRef].
- self
- should: [pcc enableCallIn: self wrongClassRef]
- raise: TestResult error.
"no external call"
+ self shouldRaiseError: [pcc enableCallIn: self noExternalCallRef].
- self
- should: [pcc enableCallIn: self noExternalCallRef]
- raise: TestResult error.
"precondition: all enabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"not disabled!!"
+ self shouldRaiseError: [refs
+ do: [:ref1 | pcc enableCallIn: ref1]].
- self
- should: [refs
- do: [:ref1 | pcc enableCallIn: ref1]]
- raise: TestResult error.
"disabling"
refs
do: [:ref2 | pcc disableCallIn: ref2].
"now all disabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = 0.
"not enabled!!"
+ self shouldRaiseError: [refs
+ do: [:ref3 | pcc disableCallIn: ref3]].
- self
- should: [refs
- do: [:ref3 | pcc disableCallIn: ref3]]
- raise: TestResult error.
"enabling"
"now this should work"
refs
do: [:ref4 | pcc enableCallIn: ref4].
"all enabled now"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"try caches"
pcc disableEnabled.
"all disabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = 0.
pcc enableDisabled.
"all enabled"
+ self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.!
- self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>testEnableDisableCallInCompiledMethod (in category 'tests') -----
testEnableDisableCallInCompiledMethod
"Note: >>compiledMethodsToExampleModule has to be called frequently,
since the CMs are changing with a successful compile!!"
"precondition: all enabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"not disabled!!"
+ self shouldRaiseError: [self compiledMethodsToExampleModule
+ do: [:cm1 | pcc enableCallInCompiledMethod: cm1]].
- self
- should: [self compiledMethodsToExampleModule
- do: [:cm1 | pcc enableCallInCompiledMethod: cm1]]
- raise: TestResult error.
"disabling"
self compiledMethodsToExampleModule
do: [:cm2 | pcc disableCallInCompiledMethod: cm2].
"now all disabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = 0.
"not enabled!!"
+ self shouldRaiseError: [self compiledMethodsToExampleModule
+ do: [:cm3 | pcc disableCallInCompiledMethod: cm3]].
- self
- should: [self compiledMethodsToExampleModule
- do: [:cm3 | pcc disableCallInCompiledMethod: cm3]]
- raise: TestResult error.
"enabling"
"now this should work"
self compiledMethodsToExampleModule
do: [:cm4 | pcc enableCallInCompiledMethod: cm4].
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"try caches"
pcc disableEnabled.
"all disabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = 0.
pcc enableDisabled.
"all enabled"
+ self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.!
- self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>testEnableDisableCallInMethodClass (in category 'tests') -----
testEnableDisableCallInMethodClass
| sels |
sels := self methodSelectorsToExampleModule.
"wrong call"
+ self shouldRaiseError: [pcc disableCallInMethod: #nonExistingCall class: self class].
- self
- should: [pcc disableCallInMethod: #nonExistingCall class: self class]
- raise: TestResult error.
"wrong class"
+ self shouldRaiseError: [pcc disableCallInMethod: sels first class: Integer].
- self
- should: [pcc disableCallInMethod: sels first class: Integer]
- raise: TestResult error.
"wrong call"
+ self shouldRaiseError: [pcc enableCallInMethod: #nonExistingCall class: self class].
- self
- should: [pcc enableCallInMethod: #nonExistingCall class: self class]
- raise: TestResult error.
"wrong class"
+ self shouldRaiseError: [pcc enableCallInMethod: sels first class: Integer].
+ self shouldRaiseError: [pcc enableCallInMethod: self noExternalCallSelector class: self class].
- self
- should: [pcc enableCallInMethod: sels first class: Integer]
- raise: TestResult error.
- self
- should: [pcc enableCallInMethod: self noExternalCallSelector class: self class]
- raise: TestResult error.
"precondition: all enabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"not disabled!!"
+ self shouldRaiseError: [sels
+ do: [:sel1 | pcc enableCallInMethod: sel1 class: self class]].
- self
- should: [sels
- do: [:sel1 | pcc enableCallInMethod: sel1 class: self class]]
- raise: TestResult error.
"disabling"
sels
do: [:sel2 | pcc disableCallInMethod: sel2 class: self class].
"now all disabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = 0.
"not enabled!!"
+ self shouldRaiseError: [sels
+ do: [:sel3 | pcc disableCallInMethod: sel3 class: self class]].
- self
- should: [sels
- do: [:sel3 | pcc disableCallInMethod: sel3 class: self class]]
- raise: TestResult error.
"enabling"
"now this should work"
sels
do: [:sel4 | pcc enableCallInMethod: sel4 class: self class].
"all enabled now"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.
"try caches"
pcc disableEnabled.
"all disabled"
self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = 0.
pcc enableDisabled.
"all enabled"
+ self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule.!
- self assert: (pcc methodsWithEnabledCallIntoModule: self exampleModuleName forClass: self class) size = self numOfCallsExampleModule!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>testSwitchPrimCallOffOn (in category 'tests') -----
testSwitchPrimCallOffOn
| res |
pcc disableCallInMethod: self realExternalCallOrPrimitiveFailedSelector class: self class.
+ self shouldRaiseError: [self perform: self realExternalCallOrPrimitiveFailedSelector].
- self
- should: [self perform: self realExternalCallOrPrimitiveFailedSelector]
- raise: TestResult error.
pcc enableCallInMethod: self realExternalCallOrPrimitiveFailedSelector class: self class.
res := self perform: self realExternalCallOrPrimitiveFailedSelector.
+ self assert: res isString.!
- self assert: res isString!
More information about the Squeak-dev
mailing list
|