TestSkipped.st
author Claus Gittinger <cg@exept.de>
Thu, 13 Jul 2017 15:11:26 +0200
changeset 685 00195d0e5ebc
parent 548 0b651f2a1c12
child 752 45d5949563ca
permissions -rw-r--r--
#REFACTORING by cg class: TestCase changed: #debug (send #ensure: instead of #sunitEnsure:) #run:beforeEachDo:afterEachDo:resetResources:debug: (send #ensure: instead of #sunitEnsure:) #runCase (send #ensure: instead of #sunitEnsure:) #runCaseAsFailure: (send #ensure: instead of #sunitEnsure:)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
548
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/sunit' }"
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
TestFailure subclass:#TestSkipped
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'SUnit-Preload'
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!TestSkipped methodsFor:'handling'!
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
sunitAnnounce: aTestCase toResult: aTestResult
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
        aTestResult addSkipped: aTestCase.
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
        self sunitExitWith: false.
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
! !
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
!TestSkipped class methodsFor:'documentation'!
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
version
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSkipped.st,v 1.1 2013-04-03 13:25:08 cg Exp $'
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
version_CVS
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSkipped.st,v 1.1 2013-04-03 13:25:08 cg Exp $'
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
! !
0b651f2a1c12 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27