randstring/test.icl

   1 module test
   2
   3 import StdEnv, StdArrayExtensions
   4 import Data.Func, Math.Random
   5 import Gast
   6 import Gast.CommandLine
   7
   8 //num :== 10000000
   9 //lim :== 100
  10 //
  11 //Start :: {!Int}
  12 //Start
  13 //      = foldl (flip (updateArrElt inc)) (createArray lim 0)
  14 //      $ take num
  15 //      $ map (\x->size $ hd [x,""])
  16 //      $ ggenString lim 8.0 0 127
  17
  18 Start w = exposeProperties [Verbose] [Tests 10000]
  19         [ (\a->a == a) For ggenString 5 16.0 32 33 aStream
  20         ] w
  21