RegressionTests__WritingToTranscriptOrStdoutTest.st
author Claus Gittinger <cg@exept.de>
Thu, 17 May 2018 23:12:07 +0200
changeset 1932 a3b766c2fe66
parent 1447 2351db93aa5b
child 1567 e17701a073f9
child 2482 328cde7d443f
permissions -rw-r--r--
initial checkin class: RegressionTests::CacheDictionaryTest added: #testAdd #testAddRemove class: RegressionTests::CacheDictionaryTest class
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
! !