"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#EncoderTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression-Collections'
!


!EncoderTests class methodsFor:'queries'!

coveredClassNames
    ^ #( Base64Coder Base32Coder )

    "Modified: / 26-08-2017 / 12:38:14 / cg"
! !

!EncoderTests methodsFor:'testing'!

test01_base64
    |verbose|

    verbose := false.

   0 to:80 do:[:l |
        |coder decoder data encoding decoded|

        data := (0 to:l) asByteArray copyTo:l.
        coder := Base64Coder on:'' writeStream.
        coder nextPutAll:data.
        coder flush.

        encoding := coder contents.

        decoder := Base64Coder on:encoding readStream.
        decoded := decoder upToEnd.

        verbose ifTrue:[
            Transcript showCR:(data printString).
            Transcript show:' -> '; showCR:encoding.
            Transcript show:' ---> '; showCR:(decoded printString).
        ].
        
        self assert:(data = decoded).
   ].

    "
     self new test01_base64
    "

    "Created: / 26-08-2017 / 12:38:40 / cg"
!

test11_base32
    |verbose|

    verbose := false.
    
    0 to:80 do:[:l |
        |coder decoder data encoding decoded|

        data := (0 to:l) asByteArray copyTo:l.
        coder := Base32Coder on:'' writeStream.
        coder nextPutAll:data.
        coder flush.

        encoding := coder contents.

        decoder := Base32Coder on:encoding readStream.
        decoded := decoder upToEnd.

        verbose ifTrue:[
            Transcript showCR:(data printString).
            Transcript show:' -> '; showCR:encoding.
            Transcript show:' ---> '; showCR:(decoded printString).
        ].
        self assert:(data = decoded).
    ].

    "
     self new test11_base32
    "

    "Created: / 26-08-2017 / 12:38:59 / cg"
! !

!EncoderTests class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !