X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=test.icl;h=729c126ebdbc398e1c0d6be52b90e1b3d5342ddc;hb=ff8b7759a75a8312d6bfb2eacb3035a6ee540f0f;hp=26ced3cfccc9aa53636ddba0c819baab349c7aa8;hpb=d1e12488647a2c90609fe7014e011bca72a1d7eb;p=CleanReadLine.git

diff --git a/test.icl b/test.icl
index 26ced3c..729c126 100644
--- a/test.icl
+++ b/test.icl
@@ -3,11 +3,16 @@ module test
 import StdEnv
 import ReadLine
 
-Start :: *World -> (String, *World)
+Start :: *World -> (Int, String, *World)
 Start w
 # (f, w) = stdio w
+#! w = setReadLineName "Test program" w
+#! w = usingHistory w
 #! (_, w) = readHistory "readline.history" w
+#! w = addHistory "testentry" w
 #! (s, w) = readLine "first prompt: " True w
 #! (s, w) = readLine "uparrow should word with history: " False w
 #! (_, w) = writeHistory "readline.history" w
-= (s, w)
+#! (i, w) = historySearch "testentry" -1 w
+//#! w = clearHistory w
+= (i, s, w)