#BUGFIX by stefan
class: RegressionTests::ContextTest2
comment/format in: #raiseNotification
changed:
#call10_2:
#call10_3:
#testDisplayString1
--- a/RegressionTests__ContextTest2.st Wed Aug 02 13:07:43 2017 +0200
+++ b/RegressionTests__ContextTest2.st Wed Aug 02 14:12:21 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -26,12 +28,22 @@
!
call10_2:aBlock
+ |local|
+
+ local := 2.
^ self call10_3:aBlock
+
+ "Modified: / 02-08-2017 / 14:03:32 / stefan"
!
call10_3:aBlock
+ |local|
+
+ local := 3.
aBlock value:thisContext.
^ thisContext sender sender
+
+ "Modified: / 02-08-2017 / 14:04:19 / stefan"
!
call11_1
@@ -133,20 +145,20 @@
raiseNotification
NoHandlerError handle:[:ex |
- ex return
+ ex return
] do:[
- |t|
+ |t|
%{
extern void *__contextToDebug__;
__contextToDebug__ = (void *)__thisContext;
%}.
- t := MyNotification raiseRequestFrom:self.
+ t := MyNotification raiseRequestFrom:self.
%{
extern void *__contextToDebug__;
__contextToDebug__ = (void *)__thisContext;
%}.
- ^ t
+ ^ t
].
^ nil.
!
@@ -310,21 +322,22 @@
Transcript showCR:'1'.
self
- callRecursive:3
- withArg:((Unicode16String new:2)
- at:1 put:(Character value:16r151);
- at:2 put:(Character value:16rFF00);
- yourself)
- thenDo:[:context |
- self assert:(context displayString bitsPerCharacter == 8).
- self assert:(context fullPrintString bitsPerCharacter == 8).
- ].
+ callRecursive:3
+ withArg:((Unicode16String new:2)
+ at:1 put:(Character value:16r151);
+ at:2 put:(Character value:16rFF00);
+ yourself)
+ thenDo:[:context |
+ self assert:(context displayString bitsPerCharacter == 8).
+"/ self assert:(context fullPrintString bitsPerCharacter == 8).
+ ].
"
self new testDisplayString1
"
"Created: / 07-03-2012 / 13:03:32 / cg"
+ "Modified: / 02-08-2017 / 14:11:41 / stefan"
!
testProcess1