RegressionTests__XMLCoderTests.st
changeset 1447 2351db93aa5b
parent 219 5c4ce125abf5
child 1500 d406a10b2965
child 1551 518cd60e66f8
--- a/RegressionTests__XMLCoderTests.st	Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__XMLCoderTests.st	Wed Jun 29 15:55:29 2016 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
 
@@ -16,7 +16,7 @@
     documentation to be added.
 
     [author:]
-        Stefan Vogel (stefan@zwerg)
+	Stefan Vogel (stefan@zwerg)
 
     [see also:]
 
@@ -139,7 +139,7 @@
     dict at:true put:1234.
     dict at:#murks put:'hallo'.
     dict at:5 put:#symbol.
-        
+
     self encodeAndDecode:dict
 
     "
@@ -165,7 +165,7 @@
     "test encoding an decoding of an integer"
 
     -1.0 to: 1.0 by:0.5 do:[:i|
-        self encodeAndDecode:i
+	self encodeAndDecode:i
     ].
 
     "
@@ -177,7 +177,7 @@
     "test encoding an decoding of an integer"
 
     (-3/4) to:(3/4) by:(1/4) do:[:i|
-        self encodeAndDecode:i
+	self encodeAndDecode:i
     ].
 
     "
@@ -194,7 +194,7 @@
     dict at:true put:1234.
     dict at:#test put:'hallo'.
     dict at:5 put:#symbol.
-        
+
     self encodeAndDecode:dict
 
     "
@@ -206,8 +206,8 @@
     "test encoding an decoding of an integer"
 
     #( 0 1 10 100 1000 10000 100000 1000000 16rFFFF 16rFFFFFF) do:[:i|
-        self encodeAndDecode:i.
-        self encodeAndDecode:i negated.
+	self encodeAndDecode:i.
+	self encodeAndDecode:i negated.
     ].
 
     "
@@ -232,40 +232,40 @@
 testLargeInteger
     "test encoding an decoding of an integer"
 
-    #( 
-       16r1FFFFFFF 16r20000000 
-       16r3FFFFFFF 16r40000000 
-       16r7FFFFFFF 16r80000000 
-       16rFFFFFFFF 16r100000000 
+    #(
+       16r1FFFFFFF 16r20000000
+       16r3FFFFFFF 16r40000000
+       16r7FFFFFFF 16r80000000
+       16rFFFFFFFF 16r100000000
 
-       16r1FFFFFFFF 16r200000000 
-       16r3FFFFFFFF 16r400000000 
-       16r7FFFFFFFF 16r800000000 
-       16rFFFFFFFFF 16r1000000000 
+       16r1FFFFFFFF 16r200000000
+       16r3FFFFFFFF 16r400000000
+       16r7FFFFFFFF 16r800000000
+       16rFFFFFFFFF 16r1000000000
 
-       16r1FFFFFFFFF 16r2000000000 
-       16r3FFFFFFFFF 16r4000000000 
-       16r7FFFFFFFFF 16r8000000000 
-       16rFFFFFFFFFF 16r10000000000 
+       16r1FFFFFFFFF 16r2000000000
+       16r3FFFFFFFFF 16r4000000000
+       16r7FFFFFFFFF 16r8000000000
+       16rFFFFFFFFFF 16r10000000000
 
-       16r1FFFFFFFFFF 16r20000000000 
-       16r3FFFFFFFFFF 16r40000000000 
-       16r7FFFFFFFFFF 16r80000000000 
-       16rFFFFFFFFFFF 16r100000000000 
+       16r1FFFFFFFFFF 16r20000000000
+       16r3FFFFFFFFFF 16r40000000000
+       16r7FFFFFFFFFF 16r80000000000
+       16rFFFFFFFFFFF 16r100000000000
 
-       16r1FFFFFFFFFFF 16r200000000000 
-       16r3FFFFFFFFFFF 16r400000000000 
-       16r7FFFFFFFFFFF 16r800000000000 
-       16rFFFFFFFFFFFF 16r1000000000000 
+       16r1FFFFFFFFFFF 16r200000000000
+       16r3FFFFFFFFFFF 16r400000000000
+       16r7FFFFFFFFFFF 16r800000000000
+       16rFFFFFFFFFFFF 16r1000000000000
 
-       16r1FFFFFFFFFFFFFF 16r200000000000000 
-       16r3FFFFFFFFFFFFFF 16r400000000000000 
-       16r7FFFFFFFFFFFFFF 16r800000000000000 
-       16rFFFFFFFFFFFFFFF 16r1000000000000000 
+       16r1FFFFFFFFFFFFFF 16r200000000000000
+       16r3FFFFFFFFFFFFFF 16r400000000000000
+       16r7FFFFFFFFFFFFFF 16r800000000000000
+       16rFFFFFFFFFFFFFFF 16r1000000000000000
 
     ) do:[:i|
-        self encodeAndDecode:i.
-        self encodeAndDecode:i negated.
+	self encodeAndDecode:i.
+	self encodeAndDecode:i negated.
     ].
 
     "
@@ -295,9 +295,9 @@
     "test encoding an decoding of a point"
 
     -4 to:4 do:[:x |
-        -4 to:4 do:[:y |
-            self encodeAndDecode:(x @ y)
-        ]
+	-4 to:4 do:[:y |
+	    self encodeAndDecode:(x @ y)
+	]
     ].
 
     "
@@ -327,12 +327,12 @@
 
     self encodeAndDecode:'hello world'.
     self encodeAndDecode:'hello world üö#*ß'.
-    self encodeAndDecode:Character tab asString , 'with', 
-                         Character tab asString, Character tab asString, 'tabs',
-                         Character tab asString.
-    self encodeAndDecode:Character tab asString , '& with', 
-                         Character tab asString, Character tab asString, 'tabs',
-                         Character tab asString.
+    self encodeAndDecode:Character tab asString , 'with',
+			 Character tab asString, Character tab asString, 'tabs',
+			 Character tab asString.
+    self encodeAndDecode:Character tab asString , '& with',
+			 Character tab asString, Character tab asString, 'tabs',
+			 Character tab asString.
 
     "
      self run:#testString