TestResultForRunWithDebug.st
author Patrik Svestka <patrik.svestka@gmail.com>
Wed, 14 Nov 2018 13:11:58 +0100
branchjv
changeset 724 4dae63fce9f9
parent 598 e76eefb119a9
permissions -rw-r--r--
vIssue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present - All source *.st files are now Unicode UTF8 without BOM Files are in two groups (fileOut works this way in Smalltalk/X): - containing a unicode character have "{ Encoding: utf8 }" at the header - ASCII only are without the header
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
406
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
     1
"{ Package: 'stx:goodies/sunit' }"
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
     2
598
e76eefb119a9 class: TestResultForRunWithDebug
Claus Gittinger <cg@exept.de>
parents: 406
diff changeset
     3
"{ NameSpace: Smalltalk }"
e76eefb119a9 class: TestResultForRunWithDebug
Claus Gittinger <cg@exept.de>
parents: 406
diff changeset
     4
406
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
     5
TestResultStX subclass:#TestResultForRunWithDebug
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
     6
	instanceVariableNames:''
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
     7
	classVariableNames:''
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
     8
	poolDictionaries:''
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
     9
	category:'SUnit-Smalltalk/X'
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    10
!
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    11
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    12
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    13
!TestResultForRunWithDebug methodsFor:'outcome'!
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    14
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    15
rememberException:exception
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    16
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    17
    super rememberException: exception.
598
e76eefb119a9 class: TestResultForRunWithDebug
Claus Gittinger <cg@exept.de>
parents: 406
diff changeset
    18
Transcript showCR:'99'.
406
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    19
    ^exception reject.
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    20
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    21
    "Created: / 20-08-2011 / 13:32:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    22
! !
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    23
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    24
!TestResultForRunWithDebug class methodsFor:'documentation'!
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    25
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    26
version
598
e76eefb119a9 class: TestResultForRunWithDebug
Claus Gittinger <cg@exept.de>
parents: 406
diff changeset
    27
    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultForRunWithDebug.st,v 1.2 2015-01-31 00:31:19 cg Exp $'
406
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    28
!
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    29
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    30
version_CVS
598
e76eefb119a9 class: TestResultForRunWithDebug
Claus Gittinger <cg@exept.de>
parents: 406
diff changeset
    31
    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultForRunWithDebug.st,v 1.2 2015-01-31 00:31:19 cg Exp $'
406
43c67b7bc5e7 initial checkin
vrany
parents:
diff changeset
    32
! !
598
e76eefb119a9 class: TestResultForRunWithDebug
Claus Gittinger <cg@exept.de>
parents: 406
diff changeset
    33