# HG changeset patch # User Jan Vrany # Date 1696110925 -3600 # Node ID 5df52d3545042c0bf11f720959e7b4ccf6ac6808 # Parent 0b91a1b7bfaee05ce325faaecd7af1975a2b710e `TestRunner2`: do not use `#keysAndValuesCollect:` ...as semantics differ among smalltalk dialects. This is normally not a problem until we use code that adds this as a "compatibility" method. So to stay on a safe side, avoid using this method. diff -r 0b91a1b7bfae -r 5df52d354504 Tools__TestRunner2.st --- a/Tools__TestRunner2.st Wed Sep 27 10:19:21 2023 +0100 +++ b/Tools__TestRunner2.st Sat Sep 30 22:55:25 2023 +0100 @@ -1,7 +1,7 @@ " Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague Copyright (c) 2009-2010 eXept Software AG - Copyright (c) 2021-2022 LabWare + Copyright (c) 2021-2023 LabWare Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation @@ -68,7 +68,7 @@ " Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague Copyright (c) 2009-2010 eXept Software AG - Copyright (c) 2021-2022 LabWare + Copyright (c) 2021-2023 LabWare Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation @@ -2258,15 +2258,16 @@ (classes at: test class ifAbsentPut:[OrderedCollection new]) add: test ]. - children := - classes keysAndValuesCollect: [:class :tests| - self makeClassEntryFor: class result: result tests: tests - ]. + children := OrderedCollection new. + classes keysAndValuesDo: [:class :tests| + children add: (self makeClassEntryFor: class result: result tests: tests) + ]. entry setChildren: children. ^entry. "Created: / 19-03-2010 / 08:36:38 / Jan Vrany " "Modified: / 30-07-2013 / 19:29:10 / cg" + "Modified: / 30-09-2023 / 22:52:53 / Jan Vrany " ! makeRootEntry