RegressionTests__WritingToTranscriptOrStdoutTest.st
author Claus Gittinger <cg@exept.de>
Tue, 09 Jul 2019 18:53:03 +0200
changeset 2327 bf482d49aeaf
parent 1447 2351db93aa5b
child 1567 e17701a073f9
child 2482 328cde7d443f
permissions -rw-r--r--
#QUALITY by exept class: RegressionTests::StringTests added: #test82c_expanding
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
! !