RegressionTests__CryptTests.st
branchjv
changeset 1496 fa09c72ff3cf
parent 1100 1991bf9454ab
child 1499 26a16a04219b
--- a/RegressionTests__CryptTests.st	Wed Jun 01 23:32:01 2016 +0200
+++ b/RegressionTests__CryptTests.st	Thu Jun 23 21:55:16 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -309,7 +311,7 @@
     s := '12345678'.
     10 timesRepeat:[
         s2 := ByteArray new:s size.
-        des cryptBlock:s from:1 into:s2 startingAt:1 encrypt:true.
+        des cryptBlock:s from:1 "to:nil" into:s2 startingAt:1 encrypt:true.
         s := s2.
     ].
     self assert:(s = #[212 114 83 160 109 1 37 83]).