full history API implemented

[CleanReadLine.git] / test.icl

diff --git a/test.icl b/test.icl
index 18e1292..66a4996 100644 (file)
--- a/test.icl
+++ b/test.icl
@@ -13,8 +13,10 @@ Start w
 #! w = setReadLineName "Test program" w
 #! w = usingHistory w
 #! (_, w) = readHistory "readline.history" w
-#! w = addHistory "testentry" w
-#! w = addHistoryTime "time" w
+#! w = addHistory "testentry1" w
+#! w = addHistoryTime "time1" w
+#! w = addHistory "testentry2" w
+#! w = addHistoryTime "time2" w
 #! (hi, w) = removeHistory 1 w
 #! (hy, w) = replaceHistoryEntry 1 "replacement" w
 #! (s, w) = readLine "first prompt: " True w
@@ -30,10 +32,11 @@ Start w
 #! (i, w) = historyIsStifled w
 #! w = unstifleHistory w
 #! (i, w) = historyIsStifled w
+#! (i, w) = historySetPos 1 w
+#! (h, w) = previousHistory w
+#! (h, w) = nextHistory w
 #! (oh, w) = historyGetHistoryState w
 #! w = historySetHistoryState testHistory w
 #! (h, w) = historyGetHistoryState w
 #! w = clearHistory w
-= (
-       toString h,
-       w)
+= (toString h, w)