--- 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