lisp 开发如何进行单元测试

vitalgg

* 实现方案
函数定义及测试函数文件内容格式

1. (defun foobar (para1 para2)
   
2.    "函数说明"
   
3.    "返回值"
   
4.    "示例"
   
5.    ;; 函数 实现代码
   
6. )
   
7. 
   
8. (fun:test foobar
   
9. '(
   
10.   ((x1 x2) . res1)) ;; 测试用例1
    
11.   ((y1 y2) . res2)) ;; 测试用例2
    
12.   ((z1 z2) . res3)) ;; 测试用例3
    
13. ))
    

(defun foobar (para1 para2)<br />    "函数说明"<br />    "返回值"<br />    "示例"<br />    ;; 函数 实现代码<br /> )<br /> <br /> (fun:test foobar<br /> '(<br />   ((x1 x2) . res1)) ;; 测试用例1<br />   ((y1 y2) . res2)) ;; 测试用例2<br />   ((z1 z2) . res3)) ;; 测试用例3<br /> ))<br />

*  实现核心代码

1. ;; 测试通过为 t ,失败为 nil
   
2. (defun fun:test (fun usecases)
   
3.   "函数测试，fun:函数名，usecases:测试用例，测试用例为参数和返回值组成的点对表。"
   
4.   "lst,对应测试用例的测试结果，t为通过，nil为失败"
   
5.   "(fun:test point:mid '((((0 0)(2 2)) . (1 1))(((3 3)(5 5)) . (4 4))))"
   
6.   (mapcar
   
7.    '(lambda (x)
   
8.      (list:equal (apply (function fun) (car x))
   
9.       (cdr x)
   
10.       1e-6)
    
11.      )
    
12.    usecases))
    

;; 测试通过为 t ,失败为 nil<br /> (defun fun:test (fun usecases)<br />   "函数测试，fun:函数名，usecases:测试用例，测试用例为参数和返回值组成的点对表。"<br />   "lst,对应测试用例的测试结果，t为通过，nil为失败"<br />   "(fun:test point:mid '((((0 0)(2 2)) . (1 1))(((3 3)(5 5)) . (4 4))))"<br />   (mapcar <br />    '(lambda (x)<br />      (list:equal (apply (function fun) (car x))<br />       (cdr x)<br />       1e-6)<br />      )<br />    usecases))<br />

上述代码如参数不致会导致错误退出。可改用vl catch 进行错误处理，保证测试用例全部执行。

* 使用说明
用法：(fun:test 函数名 用例列表)
示例：

1. (fun:test
   
2.    point:mid
   
3.    '((((0 0)(2 2)) . (1 1))
   
4.      (((3 3)(5 5)) . (4 4))))
   
5. ;; 上例为测试求两点的中点:
   
6. 
   
7. (point:mid '(0 0) '(2 2)) ;执行结果 (1 1)
   
8. (point:mid '(3 3) '(5 5)) ;执行结果 (4 4)
   

(fun:test <br />    point:mid <br />    '((((0 0)(2 2)) . (1 1))<br />      (((3 3)(5 5)) . (4 4))))<br /> ;; 上例为测试求两点的中点:<br /> <br /> (point:mid '(0 0) '(2 2)) ;执行结果 (1 1)<br /> (point:mid '(3 3) '(5 5)) ;执行结果 (4 4)<br />

* 自动测试
创建 test 文件夹，文件夹下以函数名为文件名，文件内容为  *测试用例*
用这样的文件结构为源数据，生成测试代码并执行。

如上例：在test文件夹下创建  point:mid 文件。
其内容：(一行为一个测试用例)

1. (((0 0)(2 2)) . (1 1))
   
2. (((3 3)(5 5)) . (4 4))
   

(((0 0)(2 2)) . (1 1))<br /> (((3 3)(5 5)) . (4 4))<br />

讨论可至： https://gitee.com/atlisp/atlisp-lib/issues/I593AT

帝都划水王

小白看不懂，好高深的样子