Levente Uzonyi uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-ul.386.mcz==================== Summary ====================
Name: KernelTests-ul.386
Author: ul
Time: 12 September 2020, 1:49:16.062715 pm
UUID: 7c7b8abb-7226-47e6-929e-b220b49cd714
Ancestors: KernelTests-ct.385
- added a test for Context >> #copyTo:
=============== Diff against KernelTests-ct.385 ===============
Item was added:
+ ----- Method: MethodContextTest>>testCopyTo (in category 'tests') -----
+ testCopyTo
+
+ | context depth targetSender |
+ context := thisContext.
+ depth := 1.
+ targetSender := context.
+ [ (targetSender := targetSender sender) isNil ] whileFalse: [
+ | original copy |
+ original := context.
+ copy := context copyTo: targetSender.
+ 1 to: depth do: [ :index |
+ index = 1 ifFalse: [
+ "Since we're copying thisContext, the pc and stackPtr may be different for the current frame."
+ self
+ assert: original pc equals: copy pc;
+ assert: original stackPtr equals: copy stackPtr ].
+ self
+ deny: original == copy;
+ assert: original method equals: copy method;
+ assert: original closure equals: copy closure;
+ assert: original receiver equals: copy receiver.
+ original := original sender.
+ copy := copy sender ].
+ self
+ assert: copy isNil;
+ assert: original == targetSender.
+ depth := depth + 1 ]!
Locked
