RegressionTests__WritingToTranscriptOrStdoutTest.st
author Jan Vrany <jan.vrany@labware.com>
Fri, 18 Jun 2021 17:01:51 +0100
branchjv
changeset 2598 5e6256e136d4
parent 1567 e17701a073f9
permissions -rwxr-xr-x
Fix `IntegerTest` Do not use #deepCopy with desctructive operations, #deepCopy on numbers is an no-op (they're immutable, except internal destructive helpers)
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