"{ Encoding: utf8 }"

"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#MemoryTest

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-RuntimeSystem'

!

!MemoryTest class methodsFor:'documentation'!

documentation

"

    documentation to be added.

    [author:]

	Michael Beyl (mb@bart)

    [instance variables:]

    [class variables:]

    [see also:]

"

!

history

    "Created: / 14.10.2003 / 17:53:03 / mb"

! !

!MemoryTest methodsFor:'initialize / release'!

setUp

    "common setup - invoked before testing."

    (Smalltalk classNamed:'stx_goodies_xml_vw') isNil ifTrue:[

        (Smalltalk loadPackage:'stx:goodies/xml/vw') ifFalse:[

            self error:'stx:goodies/xml/vw cannot be loaded'.

        ].

    ].

    (Smalltalk classNamed:'stx_goodies_xml_vw') load.

    "Created: / 31-07-2017 / 15:12:57 / mawalch"

! !

!MemoryTest methodsFor:'tests'!

test1

    "cg: whoever wrote this test:

         please add some comment on what is actually tested"

    |x y z n1 n2|

    n1 := 10.

    n2 := 500.

    "/ allocates n1*n2*1000 (5mio) nodes with n1*n2*2000 (10mio) attributes...

    n2 := 50.

    1 to:10 do:[:rep | 

        x := XML::Element tag:'x'.

        ObjectMemory garbageCollect.

        x attributes:(Array 

                        with:(XML::Attribute name:'a' value:'1')

                        with:(XML::Attribute name:'a' value:'1')).

        1 to:500 do:[:i | 

            x addNode:(y := XML::Element tag:'y').

            y attributes:(Array 

                            with:(XML::Attribute name:'a' value:'1')

                            with:(XML::Attribute name:'a' value:'1')).

            1 to:1000 do:[:j | 

                y addNode:(z := XML::Element tag:'y').

                z attributes:(Array 

                                with:(XML::Attribute name:'a' value:'1')

                                with:(XML::Attribute name:'a' value:'1')).

            ]

        ].

        ObjectMemory garbageCollect.

        x 

            nodesDo:[:el | 

                (el isKindOf:XML::Element) ifTrue:[

                    (el attributeNamed:'a') 

                        value:((el valueOfAttribute:'a' ifAbsent:[]) asNumber * (10/3)) asString

                ]

            ].

    ]

    "

     self run:#test1

     self new test1"

    "Modified: / 19-12-2018 / 17:05:45 / Claus Gittinger"

    "Modified (format): / 28-03-2019 / 14:03:01 / Claus Gittinger"

! !

!MemoryTest class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !