old/base64/test.icl

   1 module test
   2
   3 import StdString
   4 import Text.Encodings.Base64
   5 import Gast
   6 import Gast.CommandLine
   7
   8 pBase :: String -> Bool
   9 pBase s = s == base64Decode (base64Encode s)
  10
  11 pURL :: String -> Bool
  12 pURL s = s == base64URLDecode (base64URLEncode s)
  13
  14 Start w = exposeProperties [] [] [pBase, pURL] w