如何在 lisp 和 emacs 中测试函数

Question

我如何断言此函数返回 2012/08（而不是 2012 年 8 月）？

因此我可以开始在 job/with 函数本身上学习 lisp，直到输出满足要求。

我知道一些 python 单元测试 (pytest)，正在寻找类似 lisp 的东西。但是，我的第一次尝试[0] C-c eval-buffer 失败了 Invalid function: "<2012-08-12 Mon>"

(assert (= (org-cv-utils-org-timestamp-to-shortdate ("<2012-08-12 Mon>")) "Aug 2012"))

(defun org-cv-utils-org-timestamp-to-shortdate (date_str)
"Format orgmode timestamp DATE_STR  into a short form date.
Other strings are just returned unmodified

e.g. <2012-08-12 Mon> => Aug 2012
today => today"
  (if (string-match (org-re-timestamp 'active) date_str)
      (let* ((abbreviate 't)
             (dte (org-parse-time-string date_str))
             (month (nth 4 dte))
             (year (nth 5 dte))) ;;'(02 07 2015)))
        (concat
         (calendar-month-name month abbreviate) " " (number-to-string year)))
    date_str))

[0] https://www.emacswiki.org/emacs/UnitTesting

Answer 1

(assert (= (org-cv-utils-org-timestamp-to-shortdate ("<2012-08-12 Mon>")) 
           "Aug 2012"))

(defun org-cv-utils-org-timestamp-to-shortdate (...) ...)

语句是按顺序执行的，这意味着你的函数只会在断言被求值后被定义。这是一个问题，因为断言调用了那个函数。您应该重新排序您的代码以在函数定义后对其进行测试。
如果调用describe-function (C-h f[=33，则无法将字符串与=进行比较=]) 对于 =，你会看到 = 是一个数字比较（实际上是数字或标记）。对于字符串，您需要使用 string=.
在正常的评估上下文中，即。不是宏或特殊形式，下面是函数调用：
```
("<2012-08-12 Mon>")
```
括号是有意义的，上面的形式表示：用零参数调用函数"<2012-08-12 Mon>"。这不是你想要的，这里不需要在字符串周围添加括号。

如何在 lisp 和 emacs 中测试函数

How to test a function in lisp and emacs

unit-testing

lisp

elisp

org-mode