test.icl

   1 module test
   2
   3 import StdEnv
   4 import ReadLine
   5
   6 Start :: *World -> (Int, String, *World)
   7 Start w
   8 # (f, w) = stdio w
   9 #! w = setReadLineName "Test program" w
  10 #! w = usingHistory w
  11 #! (_, w) = readHistory "readline.history" w
  12 #! w = addHistory "testentry" w
  13 #! (s, w) = readLine "first prompt: " True w
  14 #! (s, w) = readLine "uparrow should word with history: " False w
  15 #! (_, w) = writeHistory "readline.history" w
  16 #! (i, w) = historySearch "testentry" -1 w
  17 //#! w = clearHistory w
  18 = (i, s, w)