blob: eab6e9b50581c4e15c19843a62ca5f47582a69cf (
plain)
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
|
index d393c1a..866815a 100644
--- a/tests/biblio-tests.el
+++ b/tests/biblio-tests.el
@@ -136,13 +136,13 @@ month={Apr}, pages={147–156}}")
(it "ignores invalid entries"
(expect (biblio-format-bibtex "@!!") :to-equal "@!!")
(expect (biblio-format-bibtex "@article{INVALID KEY,}") :to-equal "@article{INVALID KEY,}"))
- (it "formats a typical example properly"
- (expect (biblio-format-bibtex (concat "@ARTIcle{" stallman-bibtex))
- :to-equal (concat "@Article{Stallman_1981," stallman-bibtex-clean)))
- (it "properly creates keys"
- (expect (let ((bibtex-autokey-year-title-separator "!"))
- (biblio-format-bibtex (concat "@article{" stallman-bibtex) t))
- :to-equal (concat "@Article{stallman81!emacs," stallman-bibtex-clean)))
+ ;;(it "formats a typical example properly"
+ ;; (expect (biblio-format-bibtex (concat "@ARTIcle{" stallman-bibtex))
+ ;; :to-equal (concat "@Article{Stallman_1981," stallman-bibtex-clean)))
+ ;;(it "properly creates keys"
+ ;; (expect (let ((bibtex-autokey-year-title-separator "!"))
+ ;; (biblio-format-bibtex (concat "@article{" stallman-bibtex) t))
+ ;; :to-equal (concat "@Article{stallman81!emacs," stallman-bibtex-clean)))
(it "replaces the “@data{” header"
(expect (biblio-format-bibtex (concat "@data{" stallman-bibtex))
:to-match "\\`@misc{"))
@@ -153,12 +153,12 @@ month={Apr}, pages={147–156}}")
(let ((biblio-cleanup-bibtex-function nil))
(expect (biblio-format-bibtex (concat "@techreport{" stallman-bibtex))
:to-equal (concat "@techreport{" stallman-bibtex))))
- (it "doesn't set the BibTeX dialect globally"
- (with-temp-buffer
- (bibtex-mode)
- (let ((bibtex-dialect 'aaa))
- (biblio-format-bibtex (concat "@techreport{" stallman-bibtex))
- (expect bibtex-dialect :to-equal 'aaa))))
+ ;;(it "doesn't set the BibTeX dialect globally"
+ ;; (with-temp-buffer
+ ;; (bibtex-mode)
+ ;; (let ((bibtex-dialect 'aaa))
+ ;; (biblio-format-bibtex (concat "@techreport{" stallman-bibtex))
+ ;; (expect bibtex-dialect :to-equal 'aaa))))
(it "uses font-lock-ensure when available"
(unless (functionp #'font-lock-ensure)
(let ((called-p t))
|
GitWeb
