TestSkipped.st
author Claus Gittinger <cg@exept.de>
Sun, 01 Jul 2018 12:52:19 +0200
changeset 719 2c96860ad5cb
parent 548 0b651f2a1c12
child 752 45d5949563ca
permissions -rw-r--r--
#FEATURE by cg class: TestCase::Should class definition added: #assertSelector #beInstanceOf: #equal: #not #raise: changed: #be:
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