-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathngnk-cli-test.el
85 lines (84 loc) · 2.67 KB
/
ngnk-cli-test.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
(require 'ngnk-cli)
(ert-deftest ngnk-test-preout-filter ()
"Test preout-filter"
(unwind-protect
(let ((chk (lambda (s r)
(should (equal (ngnk-preout-filter s) r))
(should (equal ngnk-buffer-limit nil))))
(chk-incomplete (lambda (s r)
(should (equal (ngnk-preout-filter s) r)))))
(setq ngnk-buffer-limit nil)
(setq orig ngnk-max-output-length)
(setq ngnk-max-output-length 2)
(funcall chk
"1\n2\n3\n\aprompt"
"1\n2\n...prompt")
(funcall chk
"1\n2\n3\n\a\nprompt"
"1\n2\n...\nprompt")
(funcall chk
"1\n2\n\aprompt"
"1\n2\n...prompt")
(funcall chk
"1\n2\aprompt"
"1\n2prompt")
(funcall chk
"1\n2\n\a\n\nprompt\nextra"
"1\n2\n...\n\nprompt\nextra")
(funcall chk
"1\n\aprompt"
"1\nprompt")
(funcall chk
"1\n\a prompt"
"1\n prompt")
(funcall chk-incomplete
"1\n prompt"
"1\n prompt")
(setq ngnk-max-output-length 0)
(funcall chk
"1\n2\n3\n\aprompt"
"1\n2\n3\nprompt")
(funcall chk
"1\n2\n3\n\aprompt"
"1\n2\n3\nprompt")
(funcall chk
"1\n2\n\aprompt"
"1\n2\nprompt")
(funcall chk
"1\n2\aprompt"
"1\n2prompt")
(funcall chk
"1\n2\n\a\n\nprompt\nextra"
"1\n2\n\n\nprompt\nextra")
(funcall chk
"1\n\aprompt"
"1\nprompt")
(funcall chk
"1\n\a prompt"
"1\n prompt")
(setq ngnk-max-output-length 1)
(funcall chk
"1\n2\n3\n\aprompt"
"1\n...prompt")
(setq ngnk-max-output-length 2)
(funcall chk
"1\n2\n3\n\aprompt"
"1\n2\n...prompt")
(setq ngnk-max-output-length 1)
(funcall chk
"1\n2\n3\n\aprompt"
"1\n...prompt")
(setq ngnk-max-output-length 0)
(funcall chk
"1\n2\n3\n\aprompt"
"1\n2\n3\nprompt")
(setq ngnk-max-output-length 2)
(funcall chk
"1\n2\n3\n\aprompt"
"1\n2\n...prompt"))
(progn
;; remove buffer local variable
(makunbound 'ngnk-buffer-limit)
;; restore custom setting
(setq ngnk-max-output-length orig)
)))