2009/11/30 Simon Denier <[email protected]>:
>
> On 30 nov. 2009, at 16:49, Nicolas Cellier wrote:
>
>> Just the full source code would do:
>>
>> lastStoredRun
>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>> #testA...etc...
>
>
> Can you be a bit more precise? I feel concerned about this, it's part
> of something we did with Alex.
>

Are these auto-generated ?
If yes, I guess you might easily cross some bytecode limits and
produce un-compilable code...
I would try to store Sets differently  - for example:

#passed ->  #(#testSuite #testAssert #testRanOnlyOnce #testFail
#testIsNotRerunOnDebug #testDefects #testResult
#testDialectLocalizedException #testRunning #testError #testException
#testShould #testWithExceptionDo) asSet

Nicolas

>>
>> Nicolas
>>
>> 2009/11/30 Stéphane Ducasse <[email protected]>:
>>> thanks can you let us knw the exact sequence your did?
>>>
>>> Stef
>>>
>>> On Nov 30, 2009, at 8:30 PM, [email protected] wrote:
>>>
>>>> I got a recent dev-image and ran some tests (all CollectionTests
>>>> if this matter) and attempted to store the result.
>>>>
>>>> 30 November 2009 5:26:40 pm
>>>>
>>>> VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest
>>>> update: #7179]
>>>> Image: PharoCore1.0rc1 [Latest update: #10498]
>>>>
>>>> SecurityManager state:
>>>> Restricted: false
>>>> FileAccess: true
>>>> SocketAccess: true
>>>> Working Dir E:\Pharo
>>>> Trusted Dir E:\Pharo\Cesar S. Rabak
>>>> Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus
>>>> documentos\My Squeak
>>>>
>>>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>>>       Receiver: nil
>>>>       Arguments and temporary variables:
>>>>               aMessage:       < 0
>>>>               exception:      MessageNotUnderstood: receiver of
>>>> "<" is nil
>>>>               resumeValue:    nil
>>>>       Receiver's instance variables:
>>>> nil
>>>>
>>>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>>>       Receiver: {an EncoderForV3PlusClosures}
>>>>       Arguments and temporary variables:
>>>>               literalIndex:   nil
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               scopeTable:     a Dictionary('category'->{category}
>>>> 'classPool'->{classPool} 'envir...etc...
>>>>               nTemps:         0
>>>>               supered:        false
>>>>               requestor:      nil
>>>>               class:  StringTest class
>>>>               selector:       #lastStoredRun
>>>>               literalStream:  a WriteStream {#Dictionary-
>>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}
>>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary-
>>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>>               litSet:         a LiteralDictionary(size 302)
>>>>               sourceRanges:   a Dictionary(size 309)
>>>>               globalSourceRanges:     an OrderedCollection
>>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>>               addedSelectorAndMethodClassLiterals:    false
>>>>               stream:         {an EncoderForV3PlusClosures}
>>>>               position:       0
>>>>               rootNode:       lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add:
>>>> #testAs...etc...
>>>>               blockExtentsToLocals:   nil
>>>>
>>>> EncoderForV3PlusClosures(BytecodeEncoder)
>>>> >>sizeOpcodeSelector:withArguments:
>>>>       Receiver: {an EncoderForV3PlusClosures}
>>>>       Arguments and temporary variables:
>>>>               genSelector:    #genPushLiteral:
>>>>               args:   #(nil)
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               scopeTable:     a Dictionary('category'->{category}
>>>> 'classPool'->{classPool} 'envir...etc...
>>>>               nTemps:         0
>>>>               supered:        false
>>>>               requestor:      nil
>>>>               class:  StringTest class
>>>>               selector:       #lastStoredRun
>>>>               literalStream:  a WriteStream {#Dictionary-
>>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}
>>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary-
>>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>>               litSet:         a LiteralDictionary(size 302)
>>>>               sourceRanges:   a Dictionary(size 309)
>>>>               globalSourceRanges:     an OrderedCollection
>>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>>               addedSelectorAndMethodClassLiterals:    false
>>>>               stream:         {an EncoderForV3PlusClosures}
>>>>               position:       0
>>>>               rootNode:       lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add:
>>>> #testAs...etc...
>>>>               blockExtentsToLocals:   nil
>>>>
>>>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>>>       Receiver: {an EncoderForV3PlusClosures}
>>>>       Arguments and temporary variables:
>>>>               literalIndex:   nil
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               scopeTable:     a Dictionary('category'->{category}
>>>> 'classPool'->{classPool} 'envir...etc...
>>>>               nTemps:         0
>>>>               supered:        false
>>>>               requestor:      nil
>>>>               class:  StringTest class
>>>>               selector:       #lastStoredRun
>>>>               literalStream:  a WriteStream {#Dictionary-
>>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}
>>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary-
>>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>>               litSet:         a LiteralDictionary(size 302)
>>>>               sourceRanges:   a Dictionary(size 309)
>>>>               globalSourceRanges:     an OrderedCollection
>>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>>               addedSelectorAndMethodClassLiterals:    false
>>>>               stream:         {an EncoderForV3PlusClosures}
>>>>               position:       0
>>>>               rootNode:       lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add:
>>>> #testAs...etc...
>>>>               blockExtentsToLocals:   nil
>>>>
>>>> LiteralNode>>sizeCodeForValue:
>>>>       Receiver: {#testWithWithWithWith}
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               key:    #testWithWithWithWith
>>>>               code:   -3
>>>>               index:  nil
>>>>
>>>> [] in MessageNode>>sizeCodeForValue:
>>>>       Receiver: { add: #testWithWithWithWith}
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       nil
>>>>               selector:       {add:}
>>>>               precedence:     3
>>>>               special:        0
>>>>               arguments:      an OrderedCollection
>>>> ({#testWithWithWithWith})
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> OrderedCollection>>collect:
>>>>       Receiver: an OrderedCollection({#testWithWithWithWith})
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> MessageNode>>sizeCodeForValue:
>>>>               newCollection:  an OrderedCollection()
>>>>               index:  3
>>>>       Receiver's instance variables:
>>>>               array:  #(nil nil {#testWithWithWithWith} nil nil
>>>> nil nil nil nil nil)
>>>>               firstIndex:     3
>>>>               lastIndex:      3
>>>>
>>>> MessageNode>>sizeCodeForValue:
>>>>       Receiver: { add: #testWithWithWithWith}
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       nil
>>>>               selector:       {add:}
>>>>               precedence:     3
>>>>               special:        0
>>>>               arguments:      an OrderedCollection
>>>> ({#testWithWithWithWith})
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> [] in CascadeNode>>sizeCodeForValue:
>>>>       Receiver: {Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #testAsSortedCollection;
>>>>        add: #tes...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        { add: #testWithWithWithWith}
>>>>               size:   {an EncoderForV3PlusClosures}
>>>>               aMessage:       #(1506)
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {Set new}
>>>>               messages:       an OrderedCollection({ add:
>>>> #testAsArray} { add: #testAsSet} { add: #...etc...
>>>>
>>>> OrderedCollection>>do:
>>>>       Receiver: an OrderedCollection({ add: #testAsArray} { add:
>>>> #testAsSet} { add: #testAsSortedCollectio...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> CascadeNode>>sizeCodeForValue:
>>>>               index:  252
>>>>       Receiver's instance variables:
>>>>               array:  an Array({ add: #testAsArray} { add:
>>>> #testAsSet} { add: #testAsSortedCol...etc...
>>>>               firstIndex:     1
>>>>               lastIndex:      294
>>>>
>>>> CascadeNode>>sizeCodeForValue:
>>>>       Receiver: {Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #testAsSortedCollection;
>>>>        add: #tes...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>               size:   #(1506)
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {Set new}
>>>>               messages:       an OrderedCollection({ add:
>>>> #testAsArray} { add: #testAsSet} { add: #...etc...
>>>>
>>>> [] in MessageNode>>sizeCodeForValue:
>>>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>>>                add: #testAsSet;
>>>>                add: #testAsSortedCollectio...etc...
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {#passed}
>>>>               selector:       {->}
>>>>               precedence:     2
>>>>               special:        0
>>>>               arguments:      an Array({Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #test...etc...
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> Array(SequenceableCollection)>>collect:
>>>>       Receiver: an Array({Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #testAsSortedCollection;
>>>>        ...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> MessageNode>>sizeCodeForValue:
>>>>               newCollection:  #(nil)
>>>>               index:  1
>>>>               indexLimiT:     1
>>>>       Receiver's instance variables:
>>>> an Array({Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #testAsSortedCollection;
>>>>        ...etc...
>>>>
>>>> MessageNode>>sizeCodeForValue:
>>>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>>>                add: #testAsSet;
>>>>                add: #testAsSortedCollectio...etc...
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {#passed}
>>>>               selector:       {->}
>>>>               precedence:     2
>>>>               special:        0
>>>>               arguments:      an Array({Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #test...etc...
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> [] in MessageNode>>sizeCodeForValue:
>>>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add: #testAsSortedC...etc...
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       nil
>>>>               selector:       {add:}
>>>>               precedence:     3
>>>>               special:        0
>>>>               arguments:      an OrderedCollection({#passed ->
>>>> (Set new add: #testAsArray;
>>>>                add:...etc...
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> OrderedCollection>>collect:
>>>>       Receiver: an OrderedCollection({#passed -> (Set new add:
>>>> #testAsArray;
>>>>                add: #testAsSet;
>>>>                add: #...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> MessageNode>>sizeCodeForValue:
>>>>               newCollection:  an OrderedCollection()
>>>>               index:  3
>>>>       Receiver's instance variables:
>>>>               array:  an Array(nil nil {#passed -> (Set new add:
>>>> #testAsArray;
>>>>                add: #testAs...etc...
>>>>               firstIndex:     3
>>>>               lastIndex:      3
>>>>
>>>> MessageNode>>sizeCodeForValue:
>>>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add: #testAsSortedC...etc...
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       nil
>>>>               selector:       {add:}
>>>>               precedence:     3
>>>>               special:        0
>>>>               arguments:      an OrderedCollection({#passed ->
>>>> (Set new add: #testAsArray;
>>>>                add:...etc...
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> [] in CascadeNode>>sizeCodeForValue:
>>>>       Receiver: {Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add: ...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        { add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                       ...etc...
>>>>               size:   {an EncoderForV3PlusClosures}
>>>>               aMessage:       #(10)
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {Dictionary new}
>>>>               messages:       an OrderedCollection({ add: #passed -
>>>> > (Set new add: #testAsArray;
>>>>               ...etc...
>>>>
>>>> OrderedCollection>>do:
>>>>       Receiver: an OrderedCollection({ add: #passed -> (Set new
>>>> add: #testAsArray;
>>>>                        add: #testAsSet;
>>>>               ...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> CascadeNode>>sizeCodeForValue:
>>>>               index:  3
>>>>       Receiver's instance variables:
>>>>               array:  an Array(nil nil { add: #passed -> (Set new
>>>> add: #testAsArray;
>>>>                        add: ...etc...
>>>>               firstIndex:     3
>>>>               lastIndex:      7
>>>>
>>>> CascadeNode>>sizeCodeForValue:
>>>>       Receiver: {Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add: ...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>               size:   #(10)
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {Dictionary new}
>>>>               messages:       an OrderedCollection({ add: #passed -
>>>> > (Set new add: #testAsArray;
>>>>               ...etc...
>>>>
>>>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>>>       Receiver: {Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add: ...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {Dictionary new}
>>>>               messages:       an OrderedCollection({ add: #passed -
>>>> > (Set new add: #testAsArray;
>>>>               ...etc...
>>>>
>>>> ReturnNode>>sizeCodeForValue:
>>>>       Receiver: {^ Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               expr:   {Dictionary new add: #passed -> (Set new
>>>> add: #testAsArray;
>>>>                        add: #tes...etc...
>>>>
>>>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>>>       Receiver: {^ Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               expr:   {Dictionary new add: #passed -> (Set new
>>>> add: #testAsArray;
>>>>                        add: #tes...etc...
>>>>
>>>> BlockNode>>sizeCodeForEvaluatedValue:
>>>>       Receiver: {[^ Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                                add: #testAsSet;
>>>>                                ...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               arguments:      #()
>>>>               statements:     an OrderedCollection({^ Dictionary
>>>> new add: #passed -> (Set new add...etc...
>>>>               returns:        true
>>>>               nArgsNode:      nil
>>>>               size:   nil
>>>>               remoteCopyNode:         nil
>>>>               temporaries:    an OrderedCollection()
>>>>               optimized:      false
>>>>               actualScopeIfOptimized:         nil
>>>>               blockExtent:    (0 to: 2)
>>>>               remoteTempNode:         nil
>>>>               copiedValues:   nil
>>>>               closureCreationNode:    nil
>>>>               startOfLastStatement:   16
>>>>
>>>> BytecodeAgnosticMethodNode>>generate:
>>>>       Receiver: lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add: #testAsArray;
>>>>                                add: #tes...etc...
>>>>       Arguments and temporary variables:
>>>>               trailer:        #(0 0 0 0)
>>>>               primErrNode:    nil
>>>>               blkSize:        nil
>>>>               nLits:  nil
>>>>               literals:       nil
>>>>               stack:  nil
>>>>               method:         nil
>>>>               locals:         nil
>>>>               lit:    nil
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               selectorOrFalse:        #lastStoredRun
>>>>               precedence:     1
>>>>               arguments:      #()
>>>>               block:  {[^ Dictionary new add: #passed -> (Set new
>>>> add: #testAsArray;
>>>>                                add:...etc...
>>>>               primitive:      0
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>               temporaries:    #()
>>>>               properties:     an AdditionalMethodState
>>>>               sourceText:     'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc...
>>>>               locationCounter:        3
>>>>               localsPool:     an IdentitySet()
>>>>
>>>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>>>       Receiver: CompiledMethodWithNode
>>>>       Arguments and temporary variables:
>>>>               aMethodNode:    lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add: #tes...etc...
>>>>               bytes:  #(0 0 0 0)
>>>>       Receiver's instance variables:
>>>>               superclass:     Object
>>>>               methodDict:     a MethodDictionary(#method->a
>>>> CompiledMethod(650: CompiledMethodWit...etc...
>>>>               format:         134
>>>>               instanceVariables:      #('node' 'method')
>>>>               organization:   ('accessing' method node selector)
>>>> ('private' method: node:)
>>>>
>>>>               subclasses:     nil
>>>>               name:   #CompiledMethodWithNode
>>>>               classPool:      nil
>>>>               sharedPools:    nil
>>>>               environment:    Smalltalk
>>>>               category:       #'Compiler-Support'
>>>>               traitComposition:       nil
>>>>               localSelectors:         nil
>>>>
>>>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>>>       Receiver: StringTest class
>>>>       Arguments and temporary variables:
>>>>               code:   'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>> #testA...etc...
>>>>               category:       'history'
>>>>               requestor:      nil
>>>>               bytes:  #(0 0 0 0)
>>>>               failBlock:      [closure] in Metaclass
>>>> (ClassDescription)>>compile:classified:withSta...etc...
>>>>               methodNode:     lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add: #test...etc...
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest class
>>>>               methodDict:     a MethodDictionary()
>>>>               format:         158
>>>>               instanceVariables:      nil
>>>>               organization:   ('as yet unclassified')
>>>>
>>>>               thisClass:      StringTest
>>>>               traitComposition:       TIncludesTest classTrait +
>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>               localSelectors:         nil
>>>>
>>>> Metaclass(ClassDescription)
>>>> >>compile:classified:withStamp:notifying:logSource:
>>>>       Receiver: StringTest class
>>>>       Arguments and temporary variables:
>>>>               text:   'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>> #testA...etc...
>>>>               category:       'history'
>>>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>>>               requestor:      nil
>>>>               logSource:      true
>>>>               methodAndNode:  nil
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest class
>>>>               methodDict:     a MethodDictionary()
>>>>               format:         158
>>>>               instanceVariables:      nil
>>>>               organization:   ('as yet unclassified')
>>>>
>>>>               thisClass:      StringTest
>>>>               traitComposition:       TIncludesTest classTrait +
>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>               localSelectors:         nil
>>>>
>>>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
>>>>       Receiver: StringTest class
>>>>       Arguments and temporary variables:
>>>>               text:   'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>> #testA...etc...
>>>>               category:       'history'
>>>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>>>               requestor:      nil
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest class
>>>>               methodDict:     a MethodDictionary()
>>>>               format:         158
>>>>               instanceVariables:      nil
>>>>               organization:   ('as yet unclassified')
>>>>
>>>>               thisClass:      StringTest
>>>>               traitComposition:       TIncludesTest classTrait +
>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>               localSelectors:         nil
>>>>
>>>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>>>       Receiver: StringTest class
>>>>       Arguments and temporary variables:
>>>>               text:   'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>> #testA...etc...
>>>>               category:       'history'
>>>>               requestor:      nil
>>>>               stamp:  'CesarRabak 11/30/2009 17:26'
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest class
>>>>               methodDict:     a MethodDictionary()
>>>>               format:         158
>>>>               instanceVariables:      nil
>>>>               organization:   ('as yet unclassified')
>>>>
>>>>               thisClass:      StringTest
>>>>               traitComposition:       TIncludesTest classTrait +
>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>               localSelectors:         nil
>>>>
>>>> Metaclass(ClassDescription)>>compile:classified:
>>>>       Receiver: StringTest class
>>>>       Arguments and temporary variables:
>>>>               code:   'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>> #testA...etc...
>>>>               heading:        'history'
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest class
>>>>               methodDict:     a MethodDictionary()
>>>>               format:         158
>>>>               instanceVariables:      nil
>>>>               organization:   ('as yet unclassified')
>>>>
>>>>               thisClass:      StringTest
>>>>               traitComposition:       TIncludesTest classTrait +
>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>               localSelectors:         nil
>>>>
>>>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>>>       Receiver: StringTest
>>>>       Arguments and temporary variables:
>>>>
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest
>>>>               methodDict:     a MethodDictionary(size 321)
>>>>               format:         158
>>>>               instanceVariables:      #('string' 'emptyString'
>>>> 'elementInNonEmpty' 'notIn' 'subcol...etc...
>>>>               organization:   ('initialization' setUp)
>>>> ('requirements' aValue anIndex anotherEl...etc...
>>>>               subclasses:     nil
>>>>               name:   #StringTest
>>>>               classPool:      nil
>>>>               sharedPools:    nil
>>>>               environment:    Smalltalk
>>>>               category:       #'CollectionsTests-Text'
>>>>               traitComposition:       TIncludesTest + TCloneTest +
>>>> TCopyTest + TSetArithmetic + TIt...etc...
>>>>               localSelectors:         an IdentitySet(#elementNotIn
>>>> #firstIndex #replacementCollection...etc...
>>>>               history:        a Dictionary(#errors->a Set()
>>>> #failures->a Set() #passed->a Set(#testA...etc...
>>>>
>>>> [] in TestRunner>>storeResultIntoTestCases
>>>>       Receiver: a TestRunner
>>>>       Arguments and temporary variables:
>>>>               testCaseCls:    StringTest
>>>>       Receiver's instance variables:
>>>>               categories:     #(#'AST-Tests'
>>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>>> Support' #'CollectionsTests-Weak' ...etc...
>>>>               classes:        {Base64MimeConverterTest.
>>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>>               classIndex:     0
>>>>               classesSelected:        a Set(TextAndTextStreamTest
>>>> WideStringTest WriteStreamTest Ide...etc...
>>>>               failedList:     #()
>>>>               failedSelected:         nil
>>>>               errorList:      #()
>>>>               errorSelected:  nil
>>>>               lastUpdate:     3437054762
>>>>               result:         4978 run, 4978 passes, 0 expected
>>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>>               previousRun:    nil
>>>>
>>>> Set>>do:
>>>>       Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest
>>>> WeakKeyToCollectionDictionaryTest ArrayT...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> TestRunner>>storeResultIntoTestCases
>>>>               index:  364
>>>>               each:   StringTest
>>>>               indexLimiT:     6638
>>>>       Receiver's instance variables:
>>>>               tally:  49
>>>>               array:  {nil. nil. nil. nil. nil. nil. nil. nil.
>>>> nil. nil. nil. nil. nil. nil. n...etc...
>>>>
>>>> TestRunner>>storeResultIntoTestCases
>>>>       Receiver: a TestRunner
>>>>       Arguments and temporary variables:
>>>>
>>>>       Receiver's instance variables:
>>>>               categories:     #(#'AST-Tests'
>>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>>> Support' #'CollectionsTests-Weak' ...etc...
>>>>               classes:        {Base64MimeConverterTest.
>>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>>               classIndex:     0
>>>>               classesSelected:        a Set(TextAndTextStreamTest
>>>> WideStringTest WriteStreamTest Ide...etc...
>>>>               failedList:     #()
>>>>               failedSelected:         nil
>>>>               errorList:      #()
>>>>               errorSelected:  nil
>>>>               lastUpdate:     3437054762
>>>>               result:         4978 run, 4978 passes, 0 expected
>>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>>               previousRun:    nil
>>>>
>>>> TestRunner>>perform:orSendTo:
>>>>       Receiver: a TestRunner
>>>>       Arguments and temporary variables:
>>>>               selector:       #storeResultIntoTestCases
>>>>               otherTarget:    a PluggableTextMorphPlus(3170)
>>>>       Receiver's instance variables:
>>>>               categories:     #(#'AST-Tests'
>>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>>> Support' #'CollectionsTests-Weak' ...etc...
>>>>               classes:        {Base64MimeConverterTest.
>>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>>               classIndex:     0
>>>>               classesSelected:        a Set(TextAndTextStreamTest
>>>> WideStringTest WriteStreamTest Ide...etc...
>>>>               failedList:     #()
>>>>               failedSelected:         nil
>>>>               errorList:      #()
>>>>               errorSelected:  nil
>>>>               lastUpdate:     3437054762
>>>>               result:         4978 run, 4978 passes, 0 expected
>>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>>               previousRun:    nil
>>>>
>>>> [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>>>       Receiver: a ToggleMenuItemMorph(2690)'Store result as
>>>> progress reference'
>>>>       Arguments and temporary variables:
>>>>               evt:    [...@67 mouseUp 21933765 nil]
>>>>               selArgCount:    #(2)
>>>>       Receiver's instance variables:
>>>>               bounds:         6...@54 corner: 8...@70
>>>>               owner:  a MenuMorph(2400)
>>>>               submorphs:      #()
>>>>               fullBounds:     6...@54 corner: 8...@70
>>>>               color:  Color black
>>>>               extension:      a MorphExtension (2845) [other:
>>>> (layoutProperties -> a LayoutProper...etc...
>>>>               font:   a LogicalFont
>>>> familyName: DejaVu Sans
>>>> emphasis: nil
>>>> pointSize: 10
>>>> rea...etc...
>>>>               emphasis:       0
>>>>               contents:       'Store result as progress reference'
>>>>               hasFocus:       false
>>>>               isEnabled:      true
>>>>               subMenu:        nil
>>>>               isSelected:     false
>>>>               target:         a TestRunner
>>>>               selector:       #perform:orSendTo:
>>>>               arguments:      an Array(#storeResultIntoTestCases a
>>>> PluggableTextMorphPlus(3170))
>>>>               icon:   nil
>>>>               getStateSelector:       nil
>>>>               enablementSelector:     nil
>>>>               keyText:        nil
>>>>
>>>> BlockClosure>>ensure:
>>>>       Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)
>>>> >>invokeWithEvent:
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in CursorWithMask(Cursor)
>>>> >>showWhile:
>>>>               returnValue:    nil
>>>>               b:      nil
>>>>       Receiver's instance variables:
>>>>               outerContext:   ToggleMenuItemMorph(MenuItemMorph)
>>>> >>invokeWithEvent:
>>>>               startpc:        136
>>>>               numArgs:        0
>>>>
>>>> CursorWithMask(Cursor)>>showWhile:
>>>>       Receiver: ((CursorWithMask
>>>>       extent: 1...@16
>>>>       depth: 1
>>>>       fromArray: #(
>>>>               2r0
>>>>               2r10000000000000000000000...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in ToggleMenuItemMorph
>>>> (MenuItemMorph)>>invokeWithEvent:
>>>>               oldcursor:      ((CursorWithMask
>>>>       extent: 1...@16
>>>>       depth: 1
>>>>       fromArray: #(
>>>>               2r0
>>>>               2r1...etc...
>>>>       Receiver's instance variables:
>>>>               bits:   a Bitmap of length 16
>>>>               width:  16
>>>>               height:         16
>>>>               depth:  1
>>>>               offset:         -...@-1
>>>>               maskForm:       Form(16x16x1)
>>>>
>>>>
>>>> --- The full stack ---
>>>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>>> EncoderForV3PlusClosures(BytecodeEncoder)
>>>> >>sizeOpcodeSelector:withArguments:
>>>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>>> LiteralNode>>sizeCodeForValue:
>>>> [] in MessageNode>>sizeCodeForValue:
>>>> OrderedCollection>>collect:
>>>> MessageNode>>sizeCodeForValue:
>>>> [] in CascadeNode>>sizeCodeForValue:
>>>> OrderedCollection>>do:
>>>> CascadeNode>>sizeCodeForValue:
>>>> [] in MessageNode>>sizeCodeForValue:
>>>> Array(SequenceableCollection)>>collect:
>>>> MessageNode>>sizeCodeForValue:
>>>> [] in MessageNode>>sizeCodeForValue:
>>>> OrderedCollection>>collect:
>>>> MessageNode>>sizeCodeForValue:
>>>> [] in CascadeNode>>sizeCodeForValue:
>>>> OrderedCollection>>do:
>>>> CascadeNode>>sizeCodeForValue:
>>>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>>> ReturnNode>>sizeCodeForValue:
>>>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>>> BlockNode>>sizeCodeForEvaluatedValue:
>>>> BytecodeAgnosticMethodNode>>generate:
>>>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>>> Metaclass(ClassDescription)
>>>> >>compile:classified:withStamp:notifying:logSource:
>>>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
>>>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>>> Metaclass(ClassDescription)>>compile:classified:
>>>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>>> [] in TestRunner>>storeResultIntoTestCases
>>>> Set>>do:
>>>> TestRunner>>storeResultIntoTestCases
>>>> TestRunner>>perform:orSendTo:
>>>> [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>>> BlockClosure>>ensure:
>>>> CursorWithMask(Cursor)>>showWhile:
>>>> - - - - - - - - - - - - - - -
>>>>                       - - - - - - - - - - - - - - - - - -
>>>> ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>>> ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
>>>> ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
>>>> MouseButtonEvent>>sentTo:
>>>> ToggleMenuItemMorph(Morph)>>handleEvent:
>>>> MorphicEventDispatcher>>dispatchDefault:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> ToggleMenuItemMorph(Morph)>>processEvent:using:
>>>> MorphicEventDispatcher>>dispatchDefault:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> MenuMorph(Morph)>>processEvent:using:
>>>> MenuMorph(Morph)>>processEvent:
>>>> MenuMorph>>handleFocusEvent:
>>>> [] in HandMorph>>sendFocusEvent:to:clear:
>>>> [] in PasteUpMorph>>becomeActiveDuring:
>>>> BlockClosure>>on:do:
>>>> PasteUpMorph>>becomeActiveDuring:
>>>> HandMorph>>sendFocusEvent:to:clear:
>>>> HandMorph>>sendEvent:focus:clear:
>>>> HandMorph>>sendMouseEvent:
>>>> HandMorph>>handleEvent:
>>>> HandMorph>>processEvents
>>>> [] in WorldState>>doOneCycleNowFor:
>>>> Array(SequenceableCollection)>>do:
>>>> WorldState>>handsDo:
>>>> WorldState>>doOneCycleNowFor:
>>>> WorldState>>doOneCycleFor:
>>>> WorldState>>doOneSubCycleFor:
>>>> PasteUpMorph>>doOneSubCycle
>>>> MenuMorph>>invokeModalAt:in:allowKeyboard:
>>>> MenuMorph>>invokeModal:
>>>> MenuMorph>>invokeModal
>>>> PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity:
>>>> TextMorphForEditView>>mouseDown:
>>>> TextMorphForEditView(Morph)>>handleMouseDown:
>>>> MouseButtonEvent>>sentTo:
>>>> TextMorphForEditView(Morph)>>handleEvent:
>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> TextMorphForEditView(Morph)>>processEvent:using:
>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> TransformMorph(Morph)>>processEvent:using:
>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> PluggableTextMorphPlus(Morph)>>processEvent:using:
>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> PluggableStandardWindow(Morph)>>processEvent:using:
>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> PasteUpMorph(Morph)>>processEvent:using:
>>>> PasteUpMorph>>processEvent:using:
>>>> PasteUpMorph(Morph)>>processEvent:
>>>> HandMorph>>sendEvent:focus:clear:
>>>> HandMorph>>sendMouseEvent:
>>>> HandMorph>>handleEvent:
>>>> HandMorph>>processEvents
>>>> [] in WorldState>>doOneCycleNowFor:
>>>> Array(SequenceableCollection)>>do:
>>>> WorldState>>handsDo:
>>>> WorldState>>doOneCycleNowFor:
>>>> WorldState>>doOneCycleFor:
>>>> PasteUpMorph>>doOneCycle
>>>> [] in Project class>>spawnNewProcess
>>>> [] in BlockClosure>>newProcess
>>>>
>>>> --
>>>> Cesar Rabak
>>>>
>>>> _______________________________________________
>>>> Pharo-project mailing list
>>>> [email protected]
>>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>>
>>>
>>> _______________________________________________
>>> Pharo-project mailing list
>>> [email protected]
>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>>
>>
>> _______________________________________________
>> Pharo-project mailing list
>> [email protected]
>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>
> --
>  Simon
>
>
>
>
> _______________________________________________
> Pharo-project mailing list
> [email protected]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>

_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Reply via email to