From: Mart Lubbers <mart@martlubbers.net>
Date: Wed, 27 Jan 2016 17:39:43 +0000 (+0100)
Subject: fixed test script, check needs to be added so that you cannot remove history items... 
X-Git-Tag: v0.3^2~4
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=9dc1673035919d1af7f191a273dd78b61608e908;p=CleanReadLine.git

fixed test script, check needs to be added so that you cannot remove history items outside the list via index
---

diff --git a/test.icl b/test.icl
index 18e1292..6dd1f5a 100644
--- 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