Patrick Rein uploaded a new version of WebClient-Tests to project The Trunk:
http://source.squeak.org/trunk/WebClient-Tests-pre.58.mcz
==================== Summary ====================
Name: WebClient-Tests-pre.58
Author: pre
Time: 30 April 2019, 7:08:57.816906 pm
UUID: e3079bfa-808e-204f-9484-ca955f8848d5
Ancestors: WebClient-Tests-pre.57
Fixes a test which does not deal well with time precision beyond a second.
=============== Diff against WebClient-Tests-pre.57 ===============
Item was changed:
----- Method: WebClientServerTest>>testCookieExpiryParsing (in category 'tests - cookies') -----
testCookieExpiryParsing
"Test parsing of cookie expiry dates"
| exp a b |
+ exp := DateAndTime today.
- exp := DateAndTime date: Date today time: Time now.
a := WebCookie new.
a name: 'test'.
a expiry: exp.
b := WebCookie new readFrom: a asString readStream.
self assert: b expiry = exp asUTC.
b := WebCookie new readFrom: (a asString copyReplaceAll: '-' with: ' ') readStream.
self assert: b expiry = exp asUTC.
!
Patrick Rein uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-pre.359.mcz
==================== Summary ====================
Name: KernelTests-pre.359
Author: pre
Time: 30 April 2019, 3:24:23.948906 pm
UUID: 6e90bf67-9160-3e40-99e7-cb9d9aa6f794
Ancestors: KernelTests-nice.358
Adds a test case for #valueSupplyingAnswers: for selecting from a list through specifying the element or the index.
=============== Diff against KernelTests-nice.358 ===============
Item was added:
+ ----- Method: BlockClosureTest>>testSupplySpecificAnswerToSelection (in category 'tests - supply answer') -----
+ testSupplySpecificAnswerToSelection
+
+ | windowTitle |
+ windowTitle := 'What is your favorite letter?'.
+ UIManager subclassesDo: [:managerClass |
+ self should: [#b = ([managerClass new chooseFrom: #(a b c) values: #(a b c) title: windowTitle]
+ valueSupplyingAnswer: {windowTitle . #b})]].
+
+ UIManager subclassesDo: [:managerClass |
+ self should: [#b = ([managerClass new chooseFrom: #(a b c) values: #(a b c) title: windowTitle]
+ valueSupplyingAnswer: {windowTitle . 2})]]!