-
Notifications
You must be signed in to change notification settings - Fork 4
/
ngnk-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)
)))