equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 "{ Package: 'stx:goodies/regression' }" |
3 "{ Package: 'stx:goodies/regression' }" |
2 |
4 |
3 "{ NameSpace: RegressionTests }" |
5 "{ NameSpace: RegressionTests }" |
4 |
6 |
5 TestCase subclass:#EncoderTests |
7 TestCase subclass:#EncoderTests |
24 |verbose| |
26 |verbose| |
25 |
27 |
26 verbose := false. |
28 verbose := false. |
27 |
29 |
28 0 to:80 do:[:l | |
30 0 to:80 do:[:l | |
29 |coder decoder data encoding decoded| |
31 |coder decoder data encoding decoded decoded2| |
30 |
32 |
31 data := (0 to:l) asByteArray copyTo:l. |
33 data := (0 to:l) asByteArray copyTo:l. |
32 coder := Base64Coder on:'' writeStream. |
34 coder := Base64Coder on:'' writeStream. |
33 coder nextPutAll:data. |
35 coder nextPutAll:data. |
34 coder flush. |
36 coder flush. |
43 Transcript show:' -> '; showCR:encoding. |
45 Transcript show:' -> '; showCR:encoding. |
44 Transcript show:' ---> '; showCR:(decoded printString). |
46 Transcript show:' ---> '; showCR:(decoded printString). |
45 ]. |
47 ]. |
46 |
48 |
47 self assert:(data = decoded). |
49 self assert:(data = decoded). |
|
50 |
|
51 decoded2 := Base64Coder decode:encoding. |
|
52 |
|
53 verbose ifTrue:[ |
|
54 Transcript showCR:(data printString). |
|
55 Transcript show:' -> '; showCR:encoding. |
|
56 Transcript show:' ---> '; showCR:(decoded2 printString). |
|
57 ]. |
|
58 |
|
59 self assert:(data = decoded2). |
48 ]. |
60 ]. |
49 |
61 |
50 " |
62 " |
51 self new test01_base64 |
63 self new test01_base64 |
52 " |
64 " |
53 |
65 |
54 "Created: / 26-08-2017 / 12:38:40 / cg" |
66 "Created: / 26-08-2017 / 12:38:40 / cg" |
|
67 "Modified: / 30-09-2018 / 17:02:02 / Claus Gittinger" |
55 ! |
68 ! |
56 |
69 |
57 test11_base32 |
70 test11_base32 |
58 |verbose| |
71 |verbose| |
59 |
72 |