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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
;;; ebib-test.el --- Tests for ebib.el
;;; Commentary:
;; Tests for the ebib package.
;;; Code:
(require 'ebib)
(require 'with-simulated-input)
;;; Tests for creating citations in source documents (LaTeX, Markdown)
;; Test `ebib--split-citation-string'
(ert-deftest ebib--split-citation-without-repeater ()
(should (equal (ebib--split-citation-string "\\textcite%<[%A]%>%<[%A]%>{%K}")
'("\\textcite%<[%A]%>%<[%A]%>{"
"%K"
nil
"}"))))
(ert-deftest ebib--split-citation-with-repeater ()
(should (equal (ebib--split-citation-string "\\textcite[%A][%A]{%(%K%,)}")
'("\\textcite[%A][%A]{"
"%K"
","
"}"))))
(ert-deftest ebib--split-citation-with-repeater-with-arguments ()
(should (equal (ebib--split-citation-string "\\footcites%<(%A)%>(%A)%(%<[%A]%>[%A]{%K}%)")
'("\\footcites%<(%A)%>(%A)"
"%<[%A]%>[%A]{%K}"
""
""))))
;; Test `ebib--create-citation'
(ert-deftest ebib--create-citation-with-repeater ()
(should (equal (with-simulated-input "cite RET cf. RET RET"
(ebib--create-citation 'latex-mode '("Chomsky1965" "Abney1987")))
"\\cite[cf.][]{Chomsky1965,Abney1987}")))
(ert-deftest ebib--create-citation-with-repeater-with-empty-arguments ()
(should (equal (with-simulated-input "foots RET RET RET RET RET cf. RET a.o. RET"
(ebib--create-citation 'latex-mode '("Chomsky1965" "Abney1987")))
"\\footcites(cf.)(a.o.)[]{Chomsky1965}[]{Abney1987}")))
(ert-deftest ebib--create-citation-with-repeater-with-arguments ()
(should (equal (with-simulated-input "foots RET RET p. SPC 40 RET RET RET cf. RET a.o. RET"
(ebib--create-citation 'latex-mode '("Chomsky1965" "Abney1987")))
"\\footcites(cf.)(a.o.)[p. 40]{Chomsky1965}[]{Abney1987}")))
(ert-deftest ebib--create-citation-org-mode ()
(should (equal (with-simulated-input "ebib RET RET"
(let ((ebib-citation-description-function (lambda (_ _)
"Abney (1987)")))
(ebib--create-citation 'org-mode '("Abney1987") t)))
"[[ebib:Abney1987][Abney (1987)]]")))
;; Test `ebib--process-citation'.
(ert-deftest ebib-citation-with-empty-template-should-come-through ()
(should (equal (ebib--process-citation-template "" "Abney1987")
"")))
(ert-deftest ebib-citation-with-no-directives-in-template-should-come-through ()
(should (equal (ebib--process-citation-template "nodirectiveshere" "Abney1987")
"nodirectiveshere")))
(ert-deftest ebib-citation-with-key-directive-should-catch-the-key ()
(should (equal (ebib--process-citation-template "%K" "Abney1987")
"Abney1987")))
(ert-deftest ebib-citation-with-key-directive-and-surrounding-material-should-get-key-with-the-surrounded-material ()
(should (equal (ebib--process-citation-template "before %K after" "Abney1987")
"before Abney1987 after")))
(ert-deftest ebib-citation-with-argument-directive-should-prompt-the-user ()
(should (equal (with-simulated-input "cf. RET"
(ebib--process-citation-template "%A" "Abney1987"))
"cf.")))
(ert-deftest ebib-citation-with-argument-directive-should-accept-spaces-in-args ()
(should (equal (with-simulated-input "cf. SPC also RET"
(ebib--process-citation-template "%A" "Abney1987"))
"cf. also")))
(ert-deftest ebib-citation-with-key-and-argument-directives-should-prompt-the-user ()
(should (equal (with-simulated-input "p. SPC 20 RET"
(ebib--process-citation-template "%K %A" "Abney1987"))
"Abney1987 p. 20")))
(ert-deftest ebib-citation-with-argument-and-key-directives-should-prompt-the-user ()
(should (equal (with-simulated-input "cf. RET"
(ebib--process-citation-template "%A %K" "Abney1987"))
"cf. Abney1987")))
(ert-deftest ebib-citation-with-argument-and-key-and-argument-directives-should-prompt-the-user ()
(should (equal (with-simulated-input "cf. RET p. SPC 20 RET"
(ebib--process-citation-template "%A %K %A" "Abney1987"))
"cf. Abney1987 p. 20")))
;;; Tests for filters
(ert-deftest ebib--filters-pp-filter-test ()
(should (equal (let ((ebib-filters-display-as-lisp nil))
(ebib--filters-pp-filter '(or (contains "author" "chomsky") (contains "editor" "chomsky"))))
"(author contains \"chomsky\") or (editor contains \"chomsky\")"))
(should (equal (let ((ebib-filters-display-as-lisp t))
(ebib--filters-pp-filter '(or (contains "author" "chomsky") (contains "editor" "chomsky"))))
"(or (contains \"author\" \"chomsky\") (contains \"editor\" \"chomsky\"))"))
(should (equal (let ((ebib-filters-display-as-lisp nil))
(ebib--filters-pp-filter '(or (contains "any" "chomsky") (contains "editor" "noam"))))
"(any field contains \"chomsky\") or (editor contains \"noam\")"))
(should (equal (let ((ebib-filters-display-as-lisp nil))
(ebib--filters-pp-filter '(and (contains "any" "chomsky") (not (contains "editor" "noam")))))
"(any field contains \"chomsky\") and not (editor contains \"noam\")")))
;;; Random tests
(ert-deftest ebib--split-urls-test ()
(should (equal (ebib--split-urls "\\url{https://somewhere.org} https://somewhere.else.org")
'("https://somewhere.org" "https://somewhere.else.org"))))
;; TODO: Add tests for
;; `ebib-citation-prompt-with-format-string`
;; which is what this branch is about anyway.
;; TODO: A bit of integration testing here would be nice, say to grab some
;; of the defined templates from e.g. MarkDown format and pushing a bit more
;; realistic arguments through them, e.g. "c.f." and "pp. 22-25".
;;; ebib-test.el ends here
|
