1 "{ Package: 'stx:goodies/builder/quickSelfTest' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 StandaloneStartup subclass:#RunUnitTestsStart

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'tests-Regression'

    10 !

    11 

    12 !RunUnitTestsStart class methodsFor:'documentation'!

    13 

    14 documentation

    15 "

    16     documentation to be added.

    17 

    18     [author:]

    19         sr

    20 

    21     [instance variables:]

    22 

    23     [class variables:]

    24 

    25     [see also:]

    26 

    27 "

    28 ! !

    29 

    30 !RunUnitTestsStart methodsFor:'starting'!

    31 

    32 start

    33     Stdout nextPutLine:'stredggg1'.

    34     Stderr nextPutLine:'stredggg2'.

    35     Transcript nextPutLine:'stredggg3'.

    36 ! !

    37 

    38 !RunUnitTestsStart class methodsFor:'documentation'!

    39 

    40 version

    41     ^ '$Header$'

    42 !

    43 

    44 version_CVS

    45     ^ '$Header$'

    46 ! !

    47