#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Wed, 02 Aug 2017 14:12:21 +0200
changeset 1671 b98bd06d8a91
parent 1670 281404c7afd4
child 1673 a04b31df1251
#BUGFIX by stefan class: RegressionTests::ContextTest2 comment/format in: #raiseNotification changed: #call10_2: #call10_3: #testDisplayString1
RegressionTests__ContextTest2.st
--- 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