SUnitNameResolver.st
author Stefan Vogel <sv@exept.de>
Fri, 26 Sep 2003 18:36:35 +0200
changeset 111 acc21264ba47
parent 68 9fd111438d60
child 116 1e076b09f7fe
permissions -rw-r--r--
Merge in SUnit 3.1 changes
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/sunit' }"
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
Object subclass:#SUnitNameResolver
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
6
78bb1397e43d added rerun-defect tests; fixed button enable bug
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
     7
	category:'SUnit-Preload'
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    10
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!SUnitNameResolver class methodsFor:'Camp Smalltalk'!
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
classNamed: aSymbol 
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
    ^Smalltalk at: aSymbol ifAbsent: [nil]
111
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    15
!
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
111
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    17
defaultLogDevice
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    18
    ^Transcript
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    19
!
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    20
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    21
errorObject 
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    22
        ^Error
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    23
!
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    24
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    25
mnuExceptionObject 
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    26
        ^MessageNotUnderstood
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    27
!
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    28
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    29
notificationObject 
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    30
        ^Notification
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
! !
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    33
!SUnitNameResolver class methodsFor:'documentation'!
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    34
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    35
version
111
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    36
    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitNameResolver.st,v 1.5 2003-09-26 16:36:35 stefan Exp $'
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    37
! !