source: project/release/4/readline/trunk/tests/run.scm @ 32340

Last change on this file since 32340 was 32340, checked in by Alexej Magura, 6 years ago

uhhh... updates for 3.1.1

  • Property svn:mime-type set to application/zlib
File size: 896 bytes
Line 
1(require-extension test readline srfi-1 kvlists)
2(test-begin "Readline variables")
3(test-assert "readline#session is a kvlist"
4             (kvlist? readline#session))
5(test-end)
6(test-begin "Readline functions")
7(readline#%add-history% "foobar")
8
9(test-assert "history is consistent between calls"
10             (string=? (last (readline#history-list)) "foobar"))
11
12(test-assert "readline#history-position returns an integer"
13             (integer? (readline#history-position)))
14
15(test "readline#history-position's setter works"
16      1
17      (and (set! (readline#history-position) 1)
18           (readline#history-position)))
19
20(readline#%add-history% "(print 1)")
21
22(test "readline#eval-last-history-line works"
23      (void)
24      (readline#eval-last-history-line #t))
25
26
27(test "readline#last-history-line is the last added line"
28      "(print 1)"
29      (readline#last-history-line #t #t))
30(test-end)
31(test-exit)
Note: See TracBrowser for help on using the repository browser.