RegressionTests__WritingToTranscriptOrStdoutTest.st
author Jan Vrany <jan.vrany@labware.com>
Mon, 08 Mar 2021 11:25:35 +0000
branchjv
changeset 2594 e5f39c0a5bd6
parent 1567 e17701a073f9
permissions -rwxr-xr-x
Improve UTF8 read/write tests in `ChangeSetTests`
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
! !
1567
e17701a073f9 Added abstract VMSpawningTestCase
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1447
diff changeset
    32