git.oblomov.eu Git - ohcount/blob - test/src_dir/smalltalk1.st

   1 "======================================================================
   2 |
   3 |   Benchmark for streams
   4 |
   5 |
   6  ======================================================================"
   7
   8
   9 Eval [
  10     n := Smalltalk arguments isEmpty
  11         ifTrue: [ 10000 ]
  12         ifFalse: [ 1 max: Smalltalk arguments first asInteger ].
  13
  14     hello := String new writeStream.
  15     n timesRepeat: [ hello nextPutAll: 'hello
  16 \' ].  "this is a comment
  17 so this line is a comment too\"
  18     hello position displayNl
  19 "but the previous one, and this one too, are not!" ]