test.icl

   1 module test
   2
   3 import StdEnv
   4 import ReadLine
   5
   6 Start :: *World -> (String, *World)
   7 Start w
   8 # (f, w) = stdio w
   9 #! (_, w) = readHistory "readline.history" w
  10 #! (s, w) = readLine "first prompt: " True w
  11 #! (s, w) = readLine "uparrow should word with history: " False w
  12 #! (_, w) = writeHistory "readline.history" w
  13 = (s, w)