SUnitNameResolver.st
author Stefan Vogel <sv@exept.de>
Tue, 05 Jul 2011 14:03:47 +0200
branchinitialV
changeset 232 1d1afa74b9ee
parent 222 8e6f482297fa
child 614 3003097506c9
child 682 821a58279bcd
child 724 4dae63fce9f9
permissions -rw-r--r--
checkin from stx browser
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
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    13
classNamed: aSymbol
0
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
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    21
errorObject
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    22
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    23
    ^Exception
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    24
"/  ^Error
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    25
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    26
    "Modified: / 11-09-2010 / 15:10:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
111
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
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    29
mnuExceptionObject
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    30
	^MessageNotUnderstood
111
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    31
!
acc21264ba47 Merge in SUnit 3.1 changes
Stefan Vogel <sv@exept.de>
parents: 68
diff changeset
    32
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    33
notificationObject
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    34
	^Notification
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
! !
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    37
!SUnitNameResolver class methodsFor:'documentation'!
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    38
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    39
version
222
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    40
    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitNameResolver.st,v 1.7 2011-06-29 19:15:49 cg Exp $'
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    41
!
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    42
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    43
version_SVN
8e6f482297fa Jan's 4.1 version
Claus Gittinger <cg@exept.de>
parents: 116
diff changeset
    44
    ^ '§Id: SUnitNameResolver.st 204 2010-09-11 15:21:51Z vranyj1 §'
14
a4a5478621e3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6
diff changeset
    45
! !