Packages June 2022

packages@lists.squeakfoundation.org

1 participants
168 discussions

The Treated Inbox: KernelTests-jar.430.mcz
by commits＠source.squeak.org 09 Jun '22

09 Jun '22

Marcel Taeumel uploaded a new version of KernelTests to project The Treated Inbox: http://source.squeak.org/treated/KernelTests-jar.430.mcz ==================== Summary ==================== Name: KernelTests-jar.430 Author: jar Time: 5 June 2022, 11:11:12.187824 pm UUID: 209031e0-7bc5-984a-94dd-b3c3a24216c3 Ancestors: KernelTests-jar.429 Oops, fix comment in previous test KernelTests-jar.429... Sorry for the noise. =============== Diff against KernelTests-mt.425 =============== Item was added: + ----- Method: ProcessTest>>testPrioritySetBeforeSuspendedContext (in category 'tests') ----- + testPrioritySetBeforeSuspendedContext + "Test whether priority is set before suspendedContext during process creation." + + "Setting priority after causes an endless stream of error windows when debugging e.g. + [] newProcess + when Process Browser is open with auto-update on. + + Once the suspendedContext is set, the new process is no longer considered terminated + and Process Browser will try to place it in its list of processes but encounters a nil error + when reading its priority because it has not been set yet." + + | p inside | + inside := false. + p := [inside := true. [] newProcess] newProcess. + p runUntil: [:ctx | inside]. + p runUntil: [:ctx | ctx selectorToSendOrSelf = #suspendedContext:]. + "Now p is before assigning suspendedContext in Process class >> forContext:priority: + tempAt: 3 is the local variable 'newProcess' representing the newly created process; + verify whether the new process's priority has already been set." + self assert: (p suspendedContext tempAt: 3) priority notNil! Item was added: + ----- Method: ProcessTest>>testTerminateByHighestPriorityProcess (in category 'tests') ----- + testTerminateByHighestPriorityProcess + "Test temination by a highest priority process." + + "Note: #terminate elevates the priority of the terminating process + and has to make sure it doesn't exceed the highest priority. + Workspace example: + q := [Semaphore new wait] fork. + p := [q terminate] forkAt: Processor highestPriority. + q isTerminated + + We have to catch the 'Invalid priority' error via the 'error' variable + because #shouldnt:raise: doesn't work between two processes." + + | p q error | + p := [Semaphore new wait] fork. + Processor yield. + self assert: p isBlocked. + error := false. + q := [[p terminate] on: Error do: [error := true]] newProcess. + q priority: Processor highestPriority. + q resume. + self deny: error. + self assert: p isTerminated. + self assert: q isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateEnsureOnTopOfEnsure (in category 'tests') ----- + testTerminateEnsureOnTopOfEnsure + "Test two ensure contexts on top of each other unwind correctly, + that both their unwind blocks get executed." + + | beenHere beenHereToo bottom p top | + beenHere := beenHereToo := false. + bottom := Context contextEnsure: [beenHereToo := true]. + top := Context contextEnsure: [Processor activeProcess suspend. beenHere := true]. + top privSender: bottom. + p := Process forContext: top priority: Processor activeProcess priority. + p resume. + Processor yield. + self assert: p isSuspended. + p terminate. + self assert: beenHere & beenHereToo. + self assert: p isTerminated + + ! Item was added: + ----- Method: ProcessTest>>testTerminateHandlingUnwindError (in category 'tests') ----- + testTerminateHandlingUnwindError + "Test an error inside an unwind block is handled correctly." + + "Workspace example: + [ [[Processor activeProcess terminate] ensure: [1/0]] on: ZeroDivide do: [] ] fork + + ZeroDivide error should get caught by the handler without opening the Debugger. + + To model this example as a test case we have to keep in mind that an error signal + in one thread cannot be caught in a different thread: if process 'p' signals an error + it won't be searching for a handler in the thread that sent 'p terminate' message. + So we can't do something like: + p := [ [ [Semaphore new wait] ensure: [1/0] ] on: ZeroDivide do: [] ] fork. + Processor yield. + self shouldnt: [p terminate] raise: Error + Instead, in order to catch the situation the ZeroDivide error is not caught within 'p', + we try to catch the UnhandledError raised in 'p' indicating the ZeroDivide has been + missed. " + + | p error unwindBlock | + unwindBlock := [[1/0] on: UnhandledError do: [error := true]]. + p := [ [ [Semaphore new wait] ensure: unwindBlock ] on: ZeroDivide do: [] ] fork. + Processor yield. + self assert: p isBlocked. + error := false. + p terminate. + self deny: error. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateHighestPriorityProcess (in category 'tests') ----- + testTerminateHighestPriorityProcess + "Test termination of a highest priority process." + + | p | + p := [Semaphore new wait] forkAt: Processor highestPriority. + Processor yield. + self assert: p isBlocked. + p terminate. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateNiledSuspendedContextProcess (in category 'tests') ----- + testTerminateNiledSuspendedContextProcess + "Test a process with niled suspendedContext terminates correctly." + + | p | + p := [] newProcess. + self assert: p isSuspended. + p suspendedContext: nil. + p terminate. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateSingleEnsure (in category 'tests') ----- + testTerminateSingleEnsure + "Test a stack consisting of a single ensure context unwinds correctly." + + | beenHere p singleton | + beenHere := false. + singleton := Context contextEnsure: [beenHere := true]. + p := Process forContext: singleton priority: Processor activeProcess priority. + self assert: p isSuspended. + self assert: p suspendedContext sender isNil. + p terminate. + self assert: beenHere. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateWithDelayInUnwind (in category 'tests') ----- + testTerminateWithDelayInUnwind + "Test the process that invoked the termination of another process waits + for the other process to finish unwinding." + + "Insert delay into the unwind block to force rescheduling; alternatively, + 'Processor yield' could be used instead of 'delay wait'." + + | delay p | + delay := Delay forMilliseconds: 10. + p := [[Processor activeProcess suspend] ensure: [delay wait]] fork. + Processor yield. + self assert: p isSuspended. + p terminate. + self assert: p isTerminated! Item was added: + ----- Method: SemaphoreTest>>testSemaAfterCriticalWaitSuspended (in category 'tests') ----- + testSemaAfterCriticalWaitSuspended "self run: #testSemaAfterCriticalWaitSuspended" + "This tests whether a semaphore that has just left the wait in Semaphore>>critical: but + has been suspended before termination, leaves it with signaling the associated semaphore." + | s p | + s := Semaphore new. + p := [s critical:[]] forkAt: Processor activePriority-1. + "wait until p entered the critical section" + [p suspendingList == s] whileFalse:[(Delay forMilliseconds: 10) wait]. + "Now that p entered it, signal the semaphore. p now 'owns' the semaphore + but since we are running at higher priority than p it will not get to do + anything." + s signal. + self assert: p suspendingList class == LinkedList. + p suspend. + self assert: p suspendingList == nil. + p terminate. + self assert: 1 equals: s excessSignals!

1 0

The Treated Inbox: KernelTests-jar.431.mcz
by commits＠source.squeak.org 09 Jun '22

09 Jun '22

Marcel Taeumel uploaded a new version of KernelTests to project The Treated Inbox: http://source.squeak.org/treated/KernelTests-jar.431.mcz ==================== Summary ==================== Name: KernelTests-jar.431 Author: jar Time: 6 June 2022, 4:26:06.000182 pm UUID: 1c79cb69-dd24-6440-917f-0d3142fd4a17 Ancestors: KernelTests-jar.430 One more Process test; this verifies that if a terminating process gets stopped and terminated again, all unwinds execute correctly and the original terminator process terminates as well. Such a situation may occur e.g. when a terminating process encounters an error and opens a debugger (or calls another recovery machinery). In such case it's legitimate to terminate the terminating process again (by closing the debugger or as a termination by another recovery tool). Note: it's a different situation than in 'testTerminateTerminatingProcess' where the second termination is invoked "too early" and may cause unpredictable outcome - that test is still WIP. Add testTerminateWithDelayInUnwind to the expectedFailures for the moment. Adopting #teminate for that scenario is WIP. =============== Diff against KernelTests-mt.425 =============== Item was changed: ----- Method: ProcessTest>>expectedFailures (in category 'failures') ----- expectedFailures + ^ #(testTerminateTerminatingProcess testResumeTerminatingProcess testTerminateWithDelayInUnwind)! - ^ #(testTerminateTerminatingProcess testResumeTerminatingProcess)! Item was added: + ----- Method: ProcessTest>>testPrioritySetBeforeSuspendedContext (in category 'tests') ----- + testPrioritySetBeforeSuspendedContext + "Test whether priority is set before suspendedContext during process creation." + + "Setting priority after causes an endless stream of error windows when debugging e.g. + [] newProcess + when Process Browser is open with auto-update on. + + Once the suspendedContext is set, the new process is no longer considered terminated + and Process Browser will try to place it in its list of processes but encounters a nil error + when reading its priority because it has not been set yet." + + | p inside | + inside := false. + p := [inside := true. [] newProcess] newProcess. + p runUntil: [:ctx | inside]. + p runUntil: [:ctx | ctx selectorToSendOrSelf = #suspendedContext:]. + "Now p is before assigning suspendedContext in Process class >> forContext:priority: + tempAt: 3 is the local variable 'newProcess' representing the newly created process; + verify whether the new process's priority has already been set." + self assert: (p suspendedContext tempAt: 3) priority notNil! Item was added: + ----- Method: ProcessTest>>testTerminateByHighestPriorityProcess (in category 'tests') ----- + testTerminateByHighestPriorityProcess + "Test temination by a highest priority process." + + "Note: #terminate elevates the priority of the terminating process + and has to make sure it doesn't exceed the highest priority. + Workspace example: + q := [Semaphore new wait] fork. + p := [q terminate] forkAt: Processor highestPriority. + q isTerminated + + We have to catch the 'Invalid priority' error via the 'error' variable + because #shouldnt:raise: doesn't work between two processes." + + | p q error | + p := [Semaphore new wait] fork. + Processor yield. + self assert: p isBlocked. + error := false. + q := [[p terminate] on: Error do: [error := true]] newProcess. + q priority: Processor highestPriority. + q resume. + self deny: error. + self assert: p isTerminated. + self assert: q isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateEnsureOnTopOfEnsure (in category 'tests') ----- + testTerminateEnsureOnTopOfEnsure + "Test two ensure contexts on top of each other unwind correctly, + that both their unwind blocks get executed." + + | beenHere beenHereToo bottom p top | + beenHere := beenHereToo := false. + bottom := Context contextEnsure: [beenHereToo := true]. + top := Context contextEnsure: [Processor activeProcess suspend. beenHere := true]. + top privSender: bottom. + p := Process forContext: top priority: Processor activeProcess priority. + p resume. + Processor yield. + self assert: p isSuspended. + p terminate. + self assert: beenHere & beenHereToo. + self assert: p isTerminated + + ! Item was added: + ----- Method: ProcessTest>>testTerminateHandlingUnwindError (in category 'tests') ----- + testTerminateHandlingUnwindError + "Test an error inside an unwind block is handled correctly." + + "Workspace example: + [ [[Processor activeProcess terminate] ensure: [1/0]] on: ZeroDivide do: [] ] fork + + ZeroDivide error should get caught by the handler without opening the Debugger. + + To model this example as a test case we have to keep in mind that an error signal + in one thread cannot be caught in a different thread: if process 'p' signals an error + it won't be searching for a handler in the thread that sent 'p terminate' message. + So we can't do something like: + p := [ [ [Semaphore new wait] ensure: [1/0] ] on: ZeroDivide do: [] ] fork. + Processor yield. + self shouldnt: [p terminate] raise: Error + Instead, in order to catch the situation the ZeroDivide error is not caught within 'p', + we try to catch the UnhandledError raised in 'p' indicating the ZeroDivide has been + missed. " + + | p error unwindBlock | + unwindBlock := [[1/0] on: UnhandledError do: [error := true]]. + p := [ [ [Semaphore new wait] ensure: unwindBlock ] on: ZeroDivide do: [] ] fork. + Processor yield. + self assert: p isBlocked. + error := false. + p terminate. + self deny: error. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateHighestPriorityProcess (in category 'tests') ----- + testTerminateHighestPriorityProcess + "Test termination of a highest priority process." + + | p | + p := [Semaphore new wait] forkAt: Processor highestPriority. + Processor yield. + self assert: p isBlocked. + p terminate. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateNiledSuspendedContextProcess (in category 'tests') ----- + testTerminateNiledSuspendedContextProcess + "Test a process with niled suspendedContext terminates correctly." + + | p | + p := [] newProcess. + self assert: p isSuspended. + p suspendedContext: nil. + p terminate. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateSingleEnsure (in category 'tests') ----- + testTerminateSingleEnsure + "Test a stack consisting of a single ensure context unwinds correctly." + + | beenHere p singleton | + beenHere := false. + singleton := Context contextEnsure: [beenHere := true]. + p := Process forContext: singleton priority: Processor activeProcess priority. + self assert: p isSuspended. + self assert: p suspendedContext sender isNil. + p terminate. + self assert: beenHere. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateTerminatingProcessAfterUnwindStarted (in category 'tests') ----- + testTerminateTerminatingProcessAfterUnwindStarted + "Terminating a terminatee process after the terminator process restarted the terminatee + process should unwind the terminatee process and let the terminator process terminate." + + "Such a situation may occur e.g. when a terminating process encounters an error and + opens a debugger (or calls another recovery machinery). In such case it's legitimate + to terminate the terminating process again (by closing the debugger or as a termination + by another recovery tool). + + Note: this is a different situation than in 'testTerminateTerminatingProcess' where + the second termination is invoked 'too early' and may cause unpredictable outcome." + + | terminator terminatee unwound unwindBlock | + unwound := false. + unwindBlock := [Processor activeProcess suspend. unwound := true]. + terminatee := [[Semaphore new wait] ensure: unwindBlock] fork. + Processor yield. + terminator := [terminatee terminate] newProcess. + self assert: terminatee isBlocked. + self assert: terminator isSuspended. + terminator resume. + Processor yield. + "terminator starts terminatee's unwind" + Processor yield. + "terminatee resumes and stops at unwindBlock's #suspend" + self assert: terminatee isSuspended. + terminatee terminate. + self assert: terminatee isTerminated. + self assert: unwound. + self assert: terminator isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateWithDelayInUnwind (in category 'tests') ----- + testTerminateWithDelayInUnwind + "Test the process that invoked the termination of another process waits + for the other process to finish unwinding." + + "Insert delay into the unwind block to force rescheduling; alternatively, + 'Processor yield' could be used instead of 'delay wait'." + + | delay p | + delay := Delay forMilliseconds: 10. + p := [[Processor activeProcess suspend] ensure: [delay wait]] fork. + Processor yield. + self assert: p isSuspended. + p terminate. + self assert: p isTerminated! Item was added: + ----- Method: SemaphoreTest>>testSemaAfterCriticalWaitSuspended (in category 'tests') ----- + testSemaAfterCriticalWaitSuspended "self run: #testSemaAfterCriticalWaitSuspended" + "This tests whether a semaphore that has just left the wait in Semaphore>>critical: but + has been suspended before termination, leaves it with signaling the associated semaphore." + | s p | + s := Semaphore new. + p := [s critical:[]] forkAt: Processor activePriority-1. + "wait until p entered the critical section" + [p suspendingList == s] whileFalse:[(Delay forMilliseconds: 10) wait]. + "Now that p entered it, signal the semaphore. p now 'owns' the semaphore + but since we are running at higher priority than p it will not get to do + anything." + s signal. + self assert: p suspendingList class == LinkedList. + p suspend. + self assert: p suspendingList == nil. + p terminate. + self assert: 1 equals: s excessSignals!

1 0

The Treated Inbox: KernelTests-jar.432.mcz
by commits＠source.squeak.org 09 Jun '22

09 Jun '22

Marcel Taeumel uploaded a new version of KernelTests to project The Treated Inbox: http://source.squeak.org/treated/KernelTests-jar.432.mcz ==================== Summary ==================== Name: KernelTests-jar.432 Author: jar Time: 6 June 2022, 11:57:50.959098 pm UUID: 7ac20a02-7d4d-fb48-9586-14ab9844b799 Ancestors: KernelTests-jar.431 Three more Process tests: non-local returns and another test case for terminating a process that has already started unwinding. Hope this is all. =============== Diff against KernelTests-mt.425 =============== Item was changed: ----- Method: ProcessTest>>expectedFailures (in category 'failures') ----- expectedFailures + ^ #(testTerminateTerminatingProcess testResumeTerminatingProcess testTerminateWithDelayInUnwind)! - ^ #(testTerminateTerminatingProcess testResumeTerminatingProcess)! Item was added: + ----- Method: ProcessTest>>testPrioritySetBeforeSuspendedContext (in category 'tests') ----- + testPrioritySetBeforeSuspendedContext + "Test whether priority is set before suspendedContext during process creation." + + "Setting priority after causes an endless stream of error windows when debugging e.g. + [] newProcess + when Process Browser is open with auto-update on. + + Once the suspendedContext is set, the new process is no longer considered terminated + and Process Browser will try to place it in its list of processes but encounters a nil error + when reading its priority because it has not been set yet." + + | p inside | + inside := false. + p := [inside := true. [] newProcess] newProcess. + p runUntil: [:ctx | inside]. + p runUntil: [:ctx | ctx selectorToSendOrSelf = #suspendedContext:]. + "Now p is before assigning suspendedContext in Process class >> forContext:priority: + tempAt: 3 is the local variable 'newProcess' representing the newly created process; + verify whether the new process's priority has already been set." + self assert: (p suspendedContext tempAt: 3) priority notNil! Item was added: + ----- Method: ProcessTest>>testTerminateByHighestPriorityProcess (in category 'tests') ----- + testTerminateByHighestPriorityProcess + "Test temination by a highest priority process." + + "Note: #terminate elevates the priority of the terminating process + and has to make sure it doesn't exceed the highest priority. + Workspace example: + q := [Semaphore new wait] fork. + p := [q terminate] forkAt: Processor highestPriority. + q isTerminated + + We have to catch the 'Invalid priority' error via the 'error' variable + because #shouldnt:raise: doesn't work between two processes." + + | p q error | + p := [Semaphore new wait] fork. + Processor yield. + self assert: p isBlocked. + error := false. + q := [[p terminate] on: Error do: [error := true]] newProcess. + q priority: Processor highestPriority. + q resume. + self deny: error. + self assert: p isTerminated. + self assert: q isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateEnsureOnTopOfEnsure (in category 'tests') ----- + testTerminateEnsureOnTopOfEnsure + "Test two ensure contexts on top of each other unwind correctly, + that both their unwind blocks get executed." + + | beenHere beenHereToo bottom p top | + beenHere := beenHereToo := false. + bottom := Context contextEnsure: [beenHereToo := true]. + top := Context contextEnsure: [Processor activeProcess suspend. beenHere := true]. + top privSender: bottom. + p := Process forContext: top priority: Processor activeProcess priority. + p resume. + Processor yield. + self assert: p isSuspended. + p terminate. + self assert: beenHere & beenHereToo. + self assert: p isTerminated + + ! Item was added: + ----- Method: ProcessTest>>testTerminateHandlingUnwindError (in category 'tests') ----- + testTerminateHandlingUnwindError + "Test an error inside an unwind block is handled correctly." + + "Workspace example: + [ [[Processor activeProcess terminate] ensure: [1/0]] on: ZeroDivide do: [] ] fork + + ZeroDivide error should get caught by the handler without opening the Debugger. + + To model this example as a test case we have to keep in mind that an error signal + in one thread cannot be caught in a different thread: if process 'p' signals an error + it won't be searching for a handler in the thread that sent 'p terminate' message. + So we can't do something like: + p := [ [ [Semaphore new wait] ensure: [1/0] ] on: ZeroDivide do: [] ] fork. + Processor yield. + self shouldnt: [p terminate] raise: Error + Instead, in order to catch the situation the ZeroDivide error is not caught within 'p', + we try to catch the UnhandledError raised in 'p' indicating the ZeroDivide has been + missed. " + + | p error unwindBlock | + unwindBlock := [[1/0] on: UnhandledError do: [error := true]]. + p := [ [ [Semaphore new wait] ensure: unwindBlock ] on: ZeroDivide do: [] ] fork. + Processor yield. + self assert: p isBlocked. + error := false. + p terminate. + self deny: error. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateHighestPriorityProcess (in category 'tests') ----- + testTerminateHighestPriorityProcess + "Test termination of a highest priority process." + + | p | + p := [Semaphore new wait] forkAt: Processor highestPriority. + Processor yield. + self assert: p isBlocked. + p terminate. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateNiledSuspendedContextProcess (in category 'tests') ----- + testTerminateNiledSuspendedContextProcess + "Test a process with niled suspendedContext terminates correctly." + + | p | + p := [] newProcess. + self assert: p isSuspended. + p suspendedContext: nil. + p terminate. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateSingleEnsure (in category 'tests') ----- + testTerminateSingleEnsure + "Test a stack consisting of a single ensure context unwinds correctly." + + | beenHere p singleton | + beenHere := false. + singleton := Context contextEnsure: [beenHere := true]. + p := Process forContext: singleton priority: Processor activeProcess priority. + self assert: p isSuspended. + self assert: p suspendedContext sender isNil. + p terminate. + self assert: beenHere. + self assert: p isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateTerminatingProcessAfterUnwindStarted (in category 'tests') ----- + testTerminateTerminatingProcessAfterUnwindStarted + "Terminating a terminatee process after the terminator process restarted the terminatee + process should unwind the terminatee process and let the terminator process terminate." + + "Such a situation may occur e.g. when a terminating process encounters an error and + opens a debugger (or calls another recovery machinery). In such case it's legitimate + to terminate the terminating process again (by closing the debugger or as a termination + by another recovery tool). + + Note: this is a different situation than in 'testTerminateTerminatingProcess' where + the second termination is invoked 'too early' and may cause unpredictable outcome." + + | terminator terminatee unwound unwindBlock | + unwound := false. + unwindBlock := [Processor activeProcess suspend. unwound := true]. + terminatee := [[Semaphore new wait] ensure: unwindBlock] fork. + Processor yield. + terminator := [terminatee terminate] newProcess. + self assert: terminatee isBlocked. + self assert: terminator isSuspended. + terminator resume. + Processor yield. + "terminator starts terminatee's unwind" + Processor yield. + "terminatee resumes and stops at unwindBlock's #suspend" + self assert: terminatee isSuspended. + terminatee terminate. + self assert: terminatee isTerminated. + self assert: unwound. + self assert: terminator isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateTerminatingProcessInUnwindTo (in category 'tests') ----- + testTerminateTerminatingProcessInUnwindTo + "Terminating a terminatee process after the terminator process restarted the terminatee + process should unwind the terminatee process and let the terminator process terminate." + + | terminator terminatee unwound | + unwound := false. + terminatee := [[Semaphore new wait] ensure: [unwound := true]] fork. + Processor yield. + terminator := [terminatee terminate] newProcess. + self assert: terminatee isBlocked. + self assert: terminator isSuspended. + terminator runUntil: [:ctx | ctx selectorToSendOrSelf = #resume]. + "terminator steps until terminatee's unwind context is set" + terminator suspendedContext nextInstruction. "skip terminatee resume instruction" + terminator resume. "and run until parked at wait" + terminatee runUntil: [:ctx | ctx selectorToSendOrSelf = #unwindTo:]. + "terminatee steps until at #unwindTo:" + self assert: terminatee isSuspended. + terminatee terminate. + self assert: terminatee isTerminated. + self assert: unwound. + self assert: terminator isTerminated! Item was added: + ----- Method: ProcessTest>>testTerminateWithDelayInUnwind (in category 'tests') ----- + testTerminateWithDelayInUnwind + "Test the process that invoked the termination of another process waits + for the other process to finish unwinding." + + "Insert delay into the unwind block to force rescheduling; alternatively, + 'Processor yield' could be used instead of 'delay wait'." + + | delay p | + delay := Delay forMilliseconds: 10. + p := [[Processor activeProcess suspend] ensure: [delay wait]] fork. + Processor yield. + self assert: p isSuspended. + p terminate. + self assert: p isTerminated! Item was added: + ----- Method: ProcessUnwindTest>>testTerminateNestedEnsureWithReturn1 (in category 'tests') ----- + testTerminateNestedEnsureWithReturn1 + "Terminate suspended process. + Test all nested unwind blocks are correctly executed; + all unwind blocks halfway through their execution should be completed." + + "While testTerminateInNestedEnsureWithReturn1 to 8 start unwinding + from inside a halfways through unwind block, this test (and the next) start + the unwind from outside any ensure argument (aka unwind) block, testing + the second half of the #unwindTo:safely: method." + + | p x1 x2 x3 x4 x5 | + x1 := x2 := x3 := x4 := x5 := false. + p := + [ + [:return | + [ Processor activeProcess suspend. + [ ] ensure: [ + [ ] ensure: [ + x1 := true]. + x2 := true] + ] ensure: [ + return value. + x3 := true]. + x4 := true. + ] valueWithExit. + x5 := true. + ] newProcess. + p resume. + Processor yield. + "make sure p is suspended and none of the unwind blocks has finished yet" + self assert: p isSuspended. + self deny: x1 | x2 | x3 | x4 | x5. + "now terminate the process and make sure all unwind blocks have finished" + p terminate. + self assert: p isTerminated. + self deny: x1 & x2 & x3 & x4 & x5! Item was added: + ----- Method: ProcessUnwindTest>>testTerminateNestedEnsureWithReturn2 (in category 'tests') ----- + testTerminateNestedEnsureWithReturn2 + "Terminate suspended process. + Test all nested unwind blocks are correctly executed; + all unwind blocks halfway through their execution should be completed." + + | p x1 x2 x3 x4 x5 | + x1 := x2 := x3 := x4 := x5 := false. + p := + [ + [:return | + [ + [Processor activeProcess suspend] ensure: [ + [ ] ensure: [ + x1 := true]. + return value. + x2 := true] + ] ensure: [ + x3 := true]. + x4 := true. + ] valueWithExit. + x5 := true. + ] newProcess. + p resume. + Processor yield. + "make sure p is suspended and none of the unwind blocks has finished yet" + self assert: p isSuspended. + self deny: x1 | x2 | x3 | x4 | x5. + "now terminate the process and make sure all unwind blocks have finished" + p terminate. + self assert: p isTerminated. + self deny: x1 & x2 & x3 & x4 & x5! Item was added: + ----- Method: SemaphoreTest>>testSemaAfterCriticalWaitSuspended (in category 'tests') ----- + testSemaAfterCriticalWaitSuspended "self run: #testSemaAfterCriticalWaitSuspended" + "This tests whether a semaphore that has just left the wait in Semaphore>>critical: but + has been suspended before termination, leaves it with signaling the associated semaphore." + | s p | + s := Semaphore new. + p := [s critical:[]] forkAt: Processor activePriority-1. + "wait until p entered the critical section" + [p suspendingList == s] whileFalse:[(Delay forMilliseconds: 10) wait]. + "Now that p entered it, signal the semaphore. p now 'owns' the semaphore + but since we are running at higher priority than p it will not get to do + anything." + s signal. + self assert: p suspendingList class == LinkedList. + p suspend. + self assert: p suspendingList == nil. + p terminate. + self assert: 1 equals: s excessSignals!

1 0

The Trunk: Kernel-ct.1473.mcz
by commits＠source.squeak.org 09 Jun '22

09 Jun '22

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1473.mcz ==================== Summary ==================== Name: Kernel-ct.1473 Author: ct Time: 8 June 2022, 4:39:38.360847 pm UUID: 57a482be-2fe9-6348-afd2-7419546cebe5 Ancestors: Kernel-mt.1472 Aligns error code of simulated primitive 100 (primitivePerformInSuperclass) to the behavior of the latest released VM (2022.06). Fixes ContextTest>>#testPrimitive100. Inbox because I do not know whether the change on the VM side was intentional. =============== Diff against Kernel-mt.1472 =============== Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ [self notify: ('The code being simulated is trying to control a process ({1}). Process controlling cannot be simulated. If you proceed, things may happen outside the observable area of the simulator.' translated format: {meth reference})] ifCurtailed: [self push: nil "Cheap fix of the context's internal state"]]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [(primitiveIndex = 206 or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [| selector | selector := arguments at: 1 ifAbsent: [^ self class primitiveFailTokenFor: #'bad argument']. arguments size - 1 = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [| selector args | arguments size = 2 ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. selector := arguments first. args := arguments second. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. args size = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: args]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [| rcvr selector args superclass | arguments size caseOf: { [3] -> [ rcvr := receiver. selector := arguments first. args := arguments second. superclass := arguments third]. [4] -> ["mirror primitive" rcvr := arguments first. selector := arguments second. args := arguments third. superclass := arguments fourth] } + otherwise: [^ self class primitiveFailTokenFor: #'bad number of arguments']. - otherwise: [^ self class primitiveFailTokenFor: #'bad argument']. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. args size = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ((self objectClass: rcvr) includesBehavior: superclass) ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. ^self send: selector to: rcvr with: args lookupIn: superclass]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "Object>>withArgs:executeMethod: CompiledMethod class>>receiver:withArguments:executeMethod: VMMirror>>ifFail:object:with:executeMethod: et al" [| n args methodArg thisReceiver | ((n := arguments size) between: 2 and: 4) ifFalse: [^self class primitiveFailTokenFor: #'unsupported operation']. ((self objectClass: (args := arguments at: n - 1)) == Array and: [(self objectClass: (methodArg := arguments at: n)) includesBehavior: CompiledMethod]) ifFalse: [^self class primitiveFailTokenFor: #'bad argument']. methodArg numArgs = args size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. thisReceiver := arguments at: n - 2 ifAbsent: [receiver]. methodArg primitive > 0 ifTrue: [methodArg isQuick ifTrue: [^self push: (methodArg valueWithReceiver: thisReceiver arguments: args)]. ^self doPrimitive: methodArg primitive method: meth receiver: thisReceiver args: args]. ^self activateMethod: methodArg withArgs: args receiver: thisReceiver]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]!

1 0

The Trunk: EToys-mt.476.mcz
by commits＠source.squeak.org 09 Jun '22

09 Jun '22

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.476.mcz ==================== Summary ==================== Name: EToys-mt.476 Author: mt Time: 9 June 2022, 9:56:18.39173 am UUID: d2523f28-bca3-9545-ad11-4be13ee3575b Ancestors: EToys-mt.475 Document the removal of two empty class categories. This was the only existing change in a fresh image, downloaded from files.squeak.org/6.0beta. =============== Diff against EToys-mt.475 =============== Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! SystemOrganization addCategory: #'Etoys-OLPC-Display'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Calendar'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-SpeechBubbles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Intersection'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Simplification'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Triangulation'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Components'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Demo'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Experimental'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess960'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Mentoring'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Navigators'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Postscript Filters'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'! - SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-Languages'! - SystemOrganization addCategory: #'Etoys-Squeakland-Multilingual-TextConversion'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Formatter'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Forms'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser Entities'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Tokenizer'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-MIME'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet WordNet'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'! SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'! SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'! SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'! SystemOrganization addCategory: #'Etoys-Squeakland-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Clipboard-Extended'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Process Browser'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Support'! SystemOrganization addCategory: #'Etoys-Tests'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'! SystemOrganization addCategory: #'Etoys-Widgets'!

1 0

The Trunk: ShoutCore-mt.93.mcz
by commits＠source.squeak.org 09 Jun '22

09 Jun '22

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-mt.93.mcz ==================== Summary ==================== Name: ShoutCore-mt.93 Author: mt Time: 9 June 2022, 9:34:19.330903 am UUID: 725e14cd-29ba-5e44-8900-9adde5eba497 Ancestors: ShoutCore-mt.92 Fixes preferences for Shout assignment conversion. You can only enable one or the other. =============== Diff against ShoutCore-mt.92 =============== Item was changed: ----- Method: SHTextStylerST80 class>>syntaxHighlightingAsYouTypeAnsiAssignment: (in category 'preferences') ----- + syntaxHighlightingAsYouTypeAnsiAssignment: aBooleanOrNil + + SyntaxHighlightingAsYouTypeAnsiAssignment := aBooleanOrNil. + + aBooleanOrNil == true + ifTrue: [SyntaxHighlightingAsYouTypeLeftArrowAssignment := false].! - syntaxHighlightingAsYouTypeAnsiAssignment: aBoolean - SyntaxHighlightingAsYouTypeAnsiAssignment := aBoolean.! Item was changed: ----- Method: SHTextStylerST80 class>>syntaxHighlightingAsYouTypeLeftArrowAssignment (in category 'preferences') ----- syntaxHighlightingAsYouTypeLeftArrowAssignment <preference: 'syntaxHighlightingAsYouTypeLeftArrowAssignment' category: 'browsing' description: 'If true, and syntaxHighlightingAsYouType is enabled, all ANSI format assignments ( := ) will be converted to left arrows ( _ ) when a method is selected in a Browser. Whilst editing a method, this setting has no effect - both the left arrow and the ansi format may be used.' type: #Boolean> + ^SyntaxHighlightingAsYouTypeLeftArrowAssignment ifNil: [false]! - ^SyntaxHighlightingAsYouTypeLeftArrowAssignment ifNil: [true]! Item was changed: ----- Method: SHTextStylerST80 class>>syntaxHighlightingAsYouTypeLeftArrowAssignment: (in category 'preferences') ----- + syntaxHighlightingAsYouTypeLeftArrowAssignment: aBooleanOrNil + + SyntaxHighlightingAsYouTypeLeftArrowAssignment := aBooleanOrNil. + + aBooleanOrNil == true + ifTrue: [SyntaxHighlightingAsYouTypeAnsiAssignment := false].! - syntaxHighlightingAsYouTypeLeftArrowAssignment: aBoolean - SyntaxHighlightingAsYouTypeLeftArrowAssignment := aBoolean.!

1 0

The Trunk: SUnitGUI-ct.92.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Christoph Thiede uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-ct.92.mcz ==================== Summary ==================== Name: SUnitGUI-ct.92 Author: ct Time: 8 June 2022, 4:45:47.033837 pm UUID: 860f8009-e951-3b4d-bdc6-4968e88dc980 Ancestors: SUnitGUI-mt.91 Avoids redundant information ('No methods found for coverage analysis.') when canceling the package selection dialog in the TestRunner after pressing "Run Coverage". Also improves multilingual support and migrates to new UIManager entrypoint. =============== Diff against SUnitGUI-mt.91 =============== Item was changed: ----- Method: TestRunner>>promptForPackages (in category 'actions') ----- promptForPackages + | packages selectedPackage | - | packages | packages := (PackageOrganizer default packages reject: [:package | (package packageName beginsWith: 'Kernel') or: [(package packageName beginsWith: 'Collections') or: [(package packageName beginsWith: 'Exceptions') or: [(package packageName beginsWith: 'SUnit') or: [(package packageName beginsWith: 'System') or: [package packageName includesSubstring: 'Test' caseSensitive: false]]]]]]) sort: [:a :b | a packageName < b packageName]. + selectedPackage := Project uiManager + chooseFrom: (packages collect: [:package | package packageName]) + values: packages + title: 'Select Package' translated. + selectedPackage ifNil: [^ nil]. + packages := Array with: selectedPackage. - packages := Array - with: (UIManager default - chooseFrom: (packages - collect: [:package | package packageName]) - values: packages - title: 'Select Package'). ^ packages! Item was changed: ----- Method: TestRunner>>runCoverage (in category 'actions') ----- runCoverage | packages methods | packages := Set new. self addDeclaredPackagesUnderTestTo: packages. packages isEmpty ifTrue: + [ packages := self promptForPackages ifNil: [^ self] ]. - [ packages := self promptForPackages ]. methods := OrderedCollection new. self addMethodsUnderTestIn: packages to: methods. self excludeClassesNotUnderTestFrom: methods. methods isEmpty ifTrue: + [ ^ Project uiManager inform: 'No methods found for coverage analysis.' translated ]. + self collectCoverageFor: methods.! - [ ^ UIManager default inform: 'No methods found for coverage analysis.' ]. - self collectCoverageFor: methods - !

1 0

The Trunk: Regex-Tests-Core-mt.17.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of Regex-Tests-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Tests-Core-mt.17.mcz ==================== Summary ==================== Name: Regex-Tests-Core-mt.17 Author: mt Time: 8 June 2022, 3:03:39.152335 pm UUID: ef50d700-95f4-8f4b-9779-b64ab4635f9e Ancestors: Regex-Tests-Core-mt.16 Let the test #testOptionalLookbehind2 be an expected failure for the next release. =============== Diff against Regex-Tests-Core-mt.16 =============== Item was added: + ----- Method: RxParserTest>>expectedFailures (in category 'failures') ----- + expectedFailures + + ^ #(testOptionalLookbehind2)!

1 0

The Trunk: MorphicTests-mt.87.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.87.mcz ==================== Summary ==================== Name: MorphicTests-mt.87 Author: mt Time: 8 June 2022, 3:02:18.474335 pm UUID: 4c18dae8-f267-4c41-a3d4-7027c7a964cd Ancestors: MorphicTests-mt.86 Fixes several tests that only fail if the system uses (pre-rendered) StrikeFonts, which is 100%, 125%, or 150% scale factor in a clean image. =============== Diff against MorphicTests-mt.86 =============== Item was changed: ----- Method: TextAnchorTest>>testHavingAnAnchorInTheCenter (in category 'tests') ----- testHavingAnAnchorInTheCenter self assert: (anchoredMorph ownerChain includes: textMorph); + assert: anchoredMorph topLeft >= textMorph topLeft! - assert: anchoredMorph topLeft > textMorph topLeft! Item was changed: ----- Method: TextAnchorTest>>testHavingAnAnchorInTheCenterWithHorizontalPadding (in category 'tests') ----- testHavingAnAnchorInTheCenterWithHorizontalPadding anchoredMorph textAnchorProperties padding. 30@0. self assert: (anchoredMorph ownerChain includes: textMorph); + assert: (anchoredMorph topLeft >= textMorph topLeft)! - assert: (anchoredMorph topLeft > textMorph topLeft)! Item was changed: ----- Method: TextAnchorTest>>testLayoutingSetsTheMorphPosition (in category 'tests') ----- testLayoutingSetsTheMorphPosition anchoredMorph := Morph new. anchoredMorph textAnchorProperties anchorLayout: #inline. anchorAttribute anchoredMorph: anchoredMorph. self prepareTextMorph. textMorph position: 100@100. + self assert: anchoredMorph position >= (100@100).! - self assert: anchoredMorph position > (100@100).!

1 0

The Trunk: GraphicsTests-mt.60.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-mt.60.mcz ==================== Summary ==================== Name: GraphicsTests-mt.60 Author: mt Time: 8 June 2022, 2:51:46.704335 pm UUID: 9f9183cf-e64b-424d-bd3e-292e80ad7c68 Ancestors: GraphicsTests-mt.59 Complements Graphics-mt.520. =============== Diff against GraphicsTests-mt.59 =============== Item was added: + ----- Method: RectangleTest>>testContainsPoint (in category 'tests') ----- + testContainsPoint + + | r | + r := Rectangle origin: 0@0 extent: 50@50. + + { + r center . true . + 1.5(a)1.5 . true . + + r topLeft . true . + r topRight . false . "!!!!!!" + r bottomLeft . false . "!!!!!!" + r bottomRight . false . "!!!!!!" + + } groupsDo: [ :point :result | + self assert: (r containsPoint: point) = result].! Item was changed: ----- Method: RectangleTest>>testPointAtFraction (in category 'tests') ----- testPointAtFraction | r | r := Rectangle origin: 0@0 extent: 50@50. { r topLeft . 0.0 @ 0.0 . r center . 0.5 @ 0.5 . - r bottomRight . 1.0 @ 1.0 . 5@5 . 0.1 @ 0.1 . + 40@50 . 0.8 @ 1.0 . - 40@50 . 0.8 @ 1.0 + r bottomRight . 1.0 @ 1.0 . + 49@49 . 0.99 @ 0.99 . + } groupsDo: [ :expected :fraction | self assert: expected equals: (r pointAtFraction: fraction)].! Item was changed: ----- Method: RectangleTest>>testRandomPoint (in category 'tests') ----- testRandomPoint + | r pt | - | r | r := Rectangle origin: 0@0 extent: 50@50. + pt := r randomPoint. + self + assert: (r containsPoint: pt) + description: ('{1} is not in rectangle {2}' format: {pt. r}); + assert: pt isIntegerPoint + description: ('{1} is not an integer point' format: {pt}).! - self assert: (r containsPoint: r randomPoint). - self assert: r randomPoint isIntegerPoint.!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2022