[View] [Edit] [Lock] [References] [Attachments] [History] [Home] [Changes] [Search] [Help]
obsolete[m8n] 75 inlines printing
Tests for #printString #toString #asString
-- setup
test=smalltalk.Test:new()
a=smalltalk.Association:key_value_("a",1)
b=smalltalk.Association:key_value_("b",2)
c=smalltalk.Association:key_value_("c",3)
d=a:_comma(b):_comma(c)
-- tests
if (not (d:toString())=="{st:aComposedAssociations}") then error("Invalid toString result") end
if (not (d:printString())=="a ComposedAssociations") then error("Invalid printString result") end
if (not (d:printString())==(d:asString())) then error("Invalid asString result") end
-- clear
test, a, b, c, d =nil