SUnitNameResolver.st
author penk
Wed, 18 Feb 2004 11:21:22 +0100
changeset 116 1e076b09f7fe
parent 111 acc21264ba47
child 222 8e6f482297fa
permissions -rw-r--r--
change errorObject to Exception
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 
116
1e076b09f7fe change errorObject to Exception
penk
parents: 111
diff changeset
    22
        ^Exception
1e076b09f7fe change errorObject to Exception
penk
parents: 111
diff changeset
    23
"/        ^Error
111
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
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    26
mnuExceptionObject 
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    27
        ^MessageNotUnderstood
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
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    30
notificationObject 
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    31
        ^Notification
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
! !
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    34
!SUnitNameResolver class methodsFor:'documentation'!
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    35
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    36
version
116
1e076b09f7fe change errorObject to Exception
penk
parents: 111
diff changeset
    37
    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitNameResolver.st,v 1.6 2004-02-18 10:21:22 penk Exp $'
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    38
! !