1 "{ Package: 'exept:regression' }"

     3 "{ Package: 'exept:regression' }"

     2 

     4 

     3 "{ NameSpace: RegressionTests }"

     5 "{ NameSpace: RegressionTests }"

     4 

     6 

     5 TestCase subclass:#CryptTests

     7 TestCase subclass:#CryptTests

   307 

   309 

   308     des := DesCipher new key:#[12 34 56 78 90 12 34 56].

   310     des := DesCipher new key:#[12 34 56 78 90 12 34 56].

   309     s := '12345678'.

   311     s := '12345678'.

   310     10 timesRepeat:[

   312     10 timesRepeat:[

   311         s2 := ByteArray new:s size.

   313         s2 := ByteArray new:s size.

   313         s := s2.

   315         s := s2.

   314     ].

   316     ].

   315     self assert:(s = #[212 114 83 160 109 1 37 83]).

   317     self assert:(s = #[212 114 83 160 109 1 37 83]).

   316 

   318 

   317     "/ ------------------------------------------------

   319     "/ ------------------------------------------------