[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