Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-mt.337.mcz==================== Summary ====================
Name: CollectionsTests-mt.337
Author: mt
Time: 20 April 2020, 10:15:02.740894 am
UUID: 53856441-2b5a-6842-9bba-a931ac2fb9b9
Ancestors: CollectionsTests-mt.336
Refine test for <img> tag to consider scaling. So, this test should pass in Demo/HiDPI mode and in regular mode. -- I suppose that the structure of this test could be improved. :-)
=============== Diff against CollectionsTests-mt.336 ===============
Item was changed:
----- Method: HtmlReadWriterTest>>test16ImgTag (in category 'tests') -----
test16ImgTag
<timeout: 10>
| imgUrl imgExpression formFromUrl formFromExpression |
imgUrl := '
https://squeak.org/img/downloads/image.png'.
imgExpression := 'Form dotOfSize: 12@12 color: Color green'.
self ensureSecureInternetConnection.
formFromUrl := (Smalltalk classNamed: 'WebClient') ifNotNil: [:client |
Form fromBinaryStream: (client httpGet: imgUrl) content asByteArray readStream].
formFromExpression := Compiler evaluate: imgExpression.
+ RealEstateAgent scaleFactor = 1.0 ifFalse: [
+ formFromUrl := formFromUrl scaledToSize: (formFromUrl extent * RealEstateAgent scaleFactor).
+ formFromExpression := formFromExpression scaledToSize: (formFromExpression extent * RealEstateAgent scaleFactor)].
+
{
'Hello <img src="{1}"> World' format: { imgUrl }.
('Hello {1} World' format: { Character startOfHeader }) asText
addAttribute: formFromUrl asTextAnchor from: 7 to: 7;
addAttribute: (TextColor color: Color transparent) from: 7 to: 7.
'Hello <img src="code://{1}"> World' format: { imgExpression }.
('Hello {1} World' format: { Character startOfHeader }) asText
addAttribute: formFromExpression asTextAnchor from: 7 to: 7;
addAttribute: (TextColor color: Color transparent) from: 7 to: 7.
} pairsDo: [:expectedHtml :expectedText |
self convertHtml: expectedHtml.
self assert: expectedText string equals: text string.
expectedText runs with: text runs do: [:expectedAttributes :actualAttributes |
expectedAttributes with: actualAttributes do: [:expectedAttribute :actualAttribute |
self assert: (expectedAttribute = actualAttribute or: [
((expectedAttribute respondsTo: #anchoredMorph)
and: [actualAttribute respondsTo: #anchoredMorph])
and: [(expectedAttribute anchoredMorph "aForm" unhibernate; bits)
= (actualAttribute anchoredMorph "aForm" unhibernate; bits)] ]) ]]].!
Locked
