原文信息
数据库单元测试工具-SQLUnit
前言
正如之前所说，我已经改变了原有写代码方式。不是立马就写出测试用例的“测试驱动开发”(我知道这种开发理论很难站住脚)。但当我预计到这种编程方式必定存在问题时，这已经是一个好的开始了。在一条带有自动序列号的主键的INSERT 语句下，我是否应该转换程序中异常为自己的系统的错误代码?或者仅仅让 RA-00001 传播开?我采取的办法是，仅仅弹出 Oracle自身提示的错误码，没有必要自己为出现错误再重新创建一套错误码机制。如果你在某种情况下得到一个错误码，已经很严肃地告诉了用户当前有些事情已经出错了，并且全世界的人都应该知道系统出错了。
说说异常吧，使用它们，抛出它们，不要试图捕捉它们(大部分情况下)并且来做一些其他的事情。将异常记录下来然后把它们抛向上一层。我想：让每一个开发者都知道当前状况已经开始变坏，这是一件很好的事情。我曾花费太多的时间来通过调试代码来尝试找出系统的错误，但大部分的异常已经被捕捉了而且进程继续往下跑，导致我浪费了很多时间。至少在某些情况下，我幸运地通过记录错误的日志来解决的问题。
什么是 SQLUnit
SQLUnit 是一个回归测试数据库存储过程的单元测试工具。一个 SQLUnit 测试用例应该用 XML 文件来书写。SQLUnit工具 是用Java 实现的，使用 JUnit 单元测试矿建转换 XML 测试信息到 JDBC数据库连接，比较从数据库中得到的结果和测试用例中的预期结果。不幸的是，它仅仅只持续了三年的开发过程，但我想说的是：这是一个相当好的测试模型。支持存储过程、函数、游标以及用户自定义类型(尽管我还没有尝试过)。当前最新版本是5.0.我一直在用的是 1.3 版本。一个大学同学(现在在Oracle 公司工作)，在我刚开始使用 SQLUnit 测试工具的时候，他甚至为SQLUnit 中Oracle 数据库的测试部分贡献了代码。
我通过它来为 CABEZE构建数据库，这是我第一次为自己的事业做的项目，尽管最终没有成功，但也很好，因为我只是在一些零零碎碎、不太重要的代码上建立起的项目，所以我可以通过 SQLUnit来构建整个测试数据(不是测试实际上的产品数据...尽管也没有实际的设备)，建立起数据库(创建测试数据)，运行测试用例并且最后在销毁阶段回滚到原始状态(空的)。不幸的是，我工作中构建的那个系统不是空的并且是以实际产品进行测试的，或者半生产(清洗)数据是仅仅是一种可行的替代品.
回到现在我的状态。我正尝试重新认识自己，在这个工具的帮助下为多种多样的存储过程书写测试用例。我跟进一个报出错误的测试用例中，因为我们所有的信用卡号都是杂乱的。每一次在不正确的卡号下失败。攀附之物。
为什么不创建一个例程，一个可以生产“实际”信用卡号，更精确的说是：一串已经检测了数字的合适长度的数列?所以信用卡使用 Luhn公式用于阻止这些明显的调换错误。
这 Luhn 算法将检测任何奇数的错误，大部分的调换临近的数组。它将不是，然而，检测 调换位置两数字序列 09-90(或者副动词)。它将检测到 在10 个可能重复数字中检测出7个(它不能检测出 22 ? 55, 33 ? 66 or 44 ? 77)。
在 CABEZE 下，我已经重写了我自己的 PL/SQL
卡号生成器(并且通过验证)，但现在我不把它公布出来，而且我好像已经丢失了那部分代码。所以，我尝试重写一遍。
从我开始使用 SQLUnit后，我体验到这个工具演示了一个多么强大的功能呀!它拥有一些复杂(对于我来说)的公式，所以在写这些测试用例的时候能够帮我计算出结果。这是我创建坚持测试基于Luhn 公式的数字序列。
?
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
CREATE OR REPLACE
FUNCTION create_check_digit( p_card_numberIN NUMBER ) RETURN NUMBER
IS
TYPE t_digits IS TABLE OF INTEGER;
l_table T_DIGITS :=T_DIGITS();
l_count INTEGER := 0;
l_num INTEGER;
l_digit INTEGER;
l_odd INTEGER := 0;
l_even INTEGER := 0;
l_sum INTEGER := 0;
l_check_digit INTEGER;
BEGIN
IF p_card_number IS NULL THEN
raise_application_error( -20001,'you must provide a card number');
END IF;
FOR i IN REVERSE 1..LENGTH( p_card_number )LOOP
l_count := l_count + 1;
l_table.EXTEND(1);
l_table( l_count ) := SUBSTR(p_card_number, i, 1 );
END LOOP;
FOR i IN 1..l_table.COUNT LOOP
l_digit := l_table(i);
IF MOD( i, 2 ) > 0 THEN
l_num := l_digit * 2;
IF l_num > 9 THEN
FOR i IN 1..LENGTH( l_num ) LOOP
l_odd := l_odd + SUBSTR( l_num, i, 1);
END LOOP;
ELSE
l_odd := l_num;
END IF;
p( 'odd:' || l_odd );
ELSE
l_even := l_digit;
END IF;
l_sum := l_sum + l_odd +l_even;
p( 'l_sum:' || l_sum );
l_odd := 0;
l_even := 0;
END LOOP;
l_check_digit := ABS( ( CEIL( MOD( l_sum / 10, 10 ) ) * 10 ) -l_sum );
p( 'check digit:' || l_check_digit );
p( 'l_sum:' || l_sum );
p( p_card_number || l_check_digit);
RETURN l_check_digit;
END create_check_digit;
(译注：一大堆的 Oracle 存储过程函数)
我没有意识到这可以做到更简单些，特别是一些常规的表达式。这仅仅是我第一次尝试...所以不要让我难堪...如果有更好的解决办法，请留言。谢谢。;)
这是我最终测试的输出结果：
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
[sqlunit] *** Running SQLUnit file:p_cc.xml
[sqlunit] Getting connection(DEFAULT)
[sqlunit] Setting up test...
[sqlunit] Running test[1]: PASSINGNULL (125ms)
[sqlunit] Running test[2]: VALID CARDNUMBER (4992739871) (15ms)
[sqlunit] Running test[3]: VALID CARDNUMBER (4012888888881881) (16ms)
[sqlunit] Running test[4]: VALID CARDNUMBER (4111111111111111) (0ms)
[sqlunit] Running test[5]: VALID CARDNUMBER (4222222222222) (15ms)
[sqlunit] Running test[6]: RANDOM (1)NUMBER (5) (0ms)
[sqlunit] Running test[7]: RANDOM (2)NUMBER (55) (0ms)
[sqlunit] Running test[8]: RANDOM (3)NUMBER (557) (16ms)
[sqlunit] Running test[9]: RANDOM (4)NUMBER (5579) (0ms)
[sqlunit] Running test[10]: RANDOM (5)NUMBER (65579) (0ms)
[sqlunit] Running test[11]: RANDOM (14)NUMBER (12345678965579) (16ms)
[sqlunit] Running test[12]: RANDOM NUMBER(5498975) (0ms)
[sqlunit] Tearing downtest...
我能够在很短的时间内运行各种不同的测试用例。之前一个测试运行起来看起来像这样：
?
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
[sqlunit] *** Running SQLUnit file:p_cc.xml
[sqlunit] Getting connection(DEFAULT)
[sqlunit] Setting up test...
[sqlunit] Running test[1]: PASSINGNULL (109ms)
[sqlunit] Running test[2]: VALID CARDNUMBER (4992739871) (109ms)
[sqlunit] Assertion "outparams-equal" failed (6(NUMERIC) != 1(NUMERIC) at outparams[0])
[sqlunit] *** expected:
[sqlunit]
[sqlunit]6
[sqlunit]
[sqlunit] *** but got:
[sqlunit]
[sqlunit]1
[sqlunit]
[sqlunit]
[sqlunit] Running test[3]: VALID CARDNUMBER (4012888888881881) (0ms)
[sqlunit] Running test[4]: VALID CARDNUMBER (4111111111111111) (0ms)
[sqlunit] Running test[5]: VALID CARDNUMBER (4222222222222) (0ms)
[sqlunit] Assertion "outparams-equal" failed (2(NUMERIC) != 0(NUMERIC) at outparams[0])
[sqlunit] *** expected:
[sqlunit]
[sqlunit]2
[sqlunit]
[sqlunit] *** but got:
[sqlunit]
[sqlunit]0
[sqlunit]
[sqlunit]
[sqlunit] Running test[6]: RANDOM NUMBER(5498975) (0ms)
[sqlunit] Tearing downtest...
[sqlunit] sqlunit-ant: SQLUnit TestsFailed: In file: p_cc.xml, tests: 6, failures: 2,errors = 0
[sqlunit] SQLUnit Tests Failed:In file: p_cc.xml, tests: 6, failures: 2,errors = 0
我能发现这些问题，并修复它，同时在几秒内运行这些测试。这看起来是不是非常酷？
这次的测试帮助我意识到如果我传一串都是奇数的字符串，它将给提示给我错误的结果。例如，如果你的 Visa卡，他是典型的十六位长的数字，并且最后一位数字是对所有数字的验证。你以除开校验数以外最右边的数字开始，并且往回数。这是有将数字放入上面的 PL/SQL整数表格的趋势。
我将在以后的测试中指出更多创建的不正确格式的信用卡号，我仅仅想把这个作为SQLUnit 的一个示例程序。
尝试。使用。使得我了解它的原理。也许我们能再幸运地遇到一些 Java程序员将这个项目重新运行起来。
有用的词
anticipat 预支信用证
certain 必然
propagated 繁殖 增殖
regression 衰退 回归
harness 工具 马具
semi-production 半生产
cleansed 弄干净 清洗
viable alternative 可行的替代品
reacquaint 重新认识
scrambled 杂乱无章的
Barnacles 攀附之物
transposition 调换 变换
adjacent 相邻的 临近的
impetus 势头 动力
