RegressionTests__WritingToTranscriptOrStdoutTest.st
author Stefan Vogel <sv@exept.de>
Tue, 11 Jun 2019 10:34:41 +0200
changeset 2321 32ea6329f5ad
parent 1447 2351db93aa5b
child 1567 e17701a073f9
child 2482 328cde7d443f
permissions -rw-r--r--
class: stx_goodies_regression class changed: #classNamesAndAttributes make classes autoloaded that stc cannot compile (yet)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1447
2351db93aa5b package changes
Claus Gittinger <cg@exept.de>
parents: 629
diff changeset
     1
"{ Package: 'stx:goodies/regression' }"
629
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ NameSpace: RegressionTests }"
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
TestCase subclass:#WritingToTranscriptOrStdoutTest
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	instanceVariableNames:''
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	classVariableNames:''
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	poolDictionaries:''
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
	category:'tests-Regression'
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
!
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
!WritingToTranscriptOrStdoutTest methodsFor:'tests'!
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
test01_writeToStdout
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
    Stdout nextPutLine:'hello world'.
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
!
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
test02_writeToTranscript
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
    Transcript showCR:'hello world'.
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
! !
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!WritingToTranscriptOrStdoutTest class methodsFor:'documentation'!
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
version
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
    ^ '$Header$'
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
!
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
version_CVS
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
    ^ '$Header$'
0745835dd030 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
! !