"{ Package: 'stx:libjava/benchmarks' }"

JavaBenchmark subclass:#Strcat

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Benchmarks-Java-Micro'

!

!Strcat methodsFor:'running'!

runBenchmarkS:n 

    | stream  hello |

    stream := WriteStream on:String new.

    hello := 'hello' , Character cr asString.

    10 timesRepeat:[

        stream nextPutAll:hello

    ].

    ^ Time 

        millisecondsToRun:[

            1 to: n do: [:idx|

                stream nextPutAll:hello

            ].

        ].

! !

!Strcat class methodsFor:'documentation'!

version_SVN

    ^ '$Id::                                                                                                                        $'

! !