conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cosmetic changes

This commit is contained in:
Sunrim KIM (keen) 2014-08-08 07:16:09 +09:00
parent 8b88b73d74
commit a64439232a
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
contrib/10.readline/src/readline.c
View File

@ -6,6 +6,7 @@
forget to use the C++ extern "C" to get it to compile.
*/
#include <editline/readline.h>
#include <editline/history.h>
#include "picrin.h"
#include "picrin/pair.h"
#include "picrin/string.h"

17
contrib/10.readline/t/test.scm
View File

@ -20,31 +20,30 @@
;; (readline "prompt")
(define testfile "./picrin_readline_test_file")
(test-begin)
(test 0 (history-length))
(add-history "0")
(add-history "1")
(test 1 (history-length))
(let loop ((n 1))
(if (> 10 n)
(let loop ((n 2))
(if (>= 10 n)
(begin
(add-history (number->string n))
(loop (+ n 1)))))
(test 10 (history-length))
(stifle-history 7)
(test 7 (history-length))
(add-history "10")
(test 10 (history-length))
(add-history "11")
(test 7 (history-length))
(test #t (history-stifled?))
(unstifle-history)
(test #f (history-stifled?))
(test 7 (history-length))
(add-history "11")
(add-history "12")
(test 8 (history-length))
(test "10" (history-get 11))
(test "11" (history-get 11))
(remove-history 1)
(test "10" (history-get 11))
(test "11" (history-get 11))
(test 7 (history-length))
(write-history testfile)
(test 7 (history-length))