Merge pull request #3 from dopefishh/standard-maybe

[CleanReadLine.git] / test.icl

diff --git a/test.icl b/test.icl
index 6dd1f5a..5ed1daa 100644 (file)
--- a/test.icl
+++ b/test.icl
@@ -8,7 +8,7 @@ testHistory = {HistoryState |
        entries=[{HistoryItem | line="custom", timestamp=""}],
        offset=1, flags=0}
 
-Start :: *World -> (String, *World)
+Start :: *World -> (String, [String], *World)
 Start w
 #! w = setReadLineName "Test program" w
 #! w = usingHistory w
@@ -32,10 +32,16 @@ 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
+#! (s, i, w) = historyExpand "hoi" w
+#! (s, i, w) = getHistoryEvent "hoi" 1 0 w
+#! (s, w) = historyArgExtract 1 2 "hoi1 hoi2 hoi3" w
+#! (s, w) = historyArgExtract 98 99 "hoi1 hoi2 hoi3" w
+#! (ss, w) = historyTokenize "hoi1 hoi2 hoi3" w
 #! (oh, w) = historyGetHistoryState w
 #! w = historySetHistoryState testHistory w
 #! (h, w) = historyGetHistoryState w
 #! w = clearHistory w
-= (
-       toString h,
-       w)
+= (toString h, ss, w)