1 "{ Package: 'exept:regression' }"

     2 

     3 "{ NameSpace: RegressionTests }"

     4 

     5 TestCase subclass:#WritingToTranscriptOrStdoutTest

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'tests-Regression'

    10 !

    11 

    12 

    13 !WritingToTranscriptOrStdoutTest methodsFor:'tests'!

    14 

    15 test01_writeToStdout

    16     Stdout nextPutLine:'hello world'.

    17 !

    18 

    19 test02_writeToTranscript

    20     Transcript showCR:'hello world'.

    21 ! !

    22 

    23 !WritingToTranscriptOrStdoutTest class methodsFor:'documentation'!

    24 

    25 version

    26     ^ '$Header$'

    27 !

    28 

    29 version_CVS

    30     ^ '$Header$'

    31 ! !