addons/Blowfish/tests/BlowfishTest.io

   1
   2 /*
   3 Sequence asChars := method(
   4         b := Sequence clone
   5         self foreach(i, v, b write(v asString, " "))
   6         b
   7 )
   8 */
   9
  10 BlowfishTest := UnitTest clone do(
  11         type := "BlowfishTest"
  12
  13         testBasic := method(
  14                 s := "This is a test."
  15
  16                 es := Blowfish clone setKey("secret") encrypt(s)
  17                 ds := Blowfish clone setKey("secret") decrypt(es)
  18                 ds setSize(s size)
  19
  20                 assertEquals(ds, s)
  21         )
  22 )