Question

我正在尝试动态生成一堆测试用例。

基本上，我想使用不同的值多次运行相同的测试。也许有更好的方法可以做到这一点，如果让我知道，我还没有找到它。

我发现make-test-suite表示您可以向其传递test-case个实例的列表。

因此，我做了一个for/fold循环，该循环将为每个值集生成的测试用例收集到一个平面列表中。

我不了解的是，它似乎成功运行了所有测试，同时也引发了异常：

tests->test-suite-action received #<void> in list of tests (#<void> #<void> #<void> #<void> #<void> #<void> #<void> #<void>), which is not a test.
  context...:
   /usr/share/racket/pkgs/rackunit-lib/rackunit/private/test-suite.rkt:139:7
   /usr/share/racket/pkgs/rackunit-lib/rackunit/private/test-suite.rkt:136:2
   /usr/share/racket/pkgs/rackunit-lib/rackunit/private/test-suite.rkt:61:0: apply-test-suite
   /usr/share/racket/pkgs/rackunit-lib/rackunit/text-ui.rkt:91:0: run-tests
   "/write-thru-hash/tests.rkt": [running body]
   temp35_0
   for-loop
   run-module-instance!
   /usr/share/racket/pkgs/compiler-lib/compiler/commands/test.rkt:179:16

...

1 1 write-thru-hash/tests.rkt
8 tests passed
rkt-write-thru-hash_tests_1 exited with code 1

我在每个测试用例中都放置了一个writeln，并且看到上面上面用...缩写的那些行打印出来了。所以我知道测试实际上正在运行。

（在我将它们与for/fold循环相乘并将其构建在test-suite的主体中之前，这些测试也运行良好并且工作正常）

我的tests.rkt代码如下：

(define test-cases-list
  (for/fold ([test-cases (list)])
            ([db-type (list 'sqlite 'postgres)])
    (append test-cases
      (list
        (test-case/fixture "basic operations" ... )
        (test-case/fixture "complex serializable keys and values" ... )
        (test-case/fixture "custom table-name" ... )
        (test-case/fixture "use initial src-hash" ... )))))

(define db-tests
  (make-test-suite "db-tests" test-cases-list))

（我正在使用fixture库https://docs.racket-lang.org/fixture/）

更新：

实际上，我认为我的测试用例中的writeln在定义时就正在打印……也就是说，它们运行得太早了，因为它们不在test-suite上下文之外。

我猜每个check的尾部test-case返回#<void>，所以我用测试（无效）的结果而不是测试用例本身填充了一个列表，并给出了到测试套件，因此出现错误。

但是我不知道如何实际使用make-test-suite ...？

Answer 1

最终找到了一种简单的方法。

我的问题是试图将我的测试用例的几种变体全部动态生成为一个test-suite。我没有找到一种方法来使它工作，我怀疑我必须编写一个宏。

相反，简单的方法是动态定义多个test-suite实例，然后遍历它们的列表以运行它们：

(define db-test-suites
  (for/list ([db-type (list 'sqlite 'postgres)]
             [db-conn-fixture (list sqlite-connection-delete-after-use
                                    postgres-connection)])
    (define suite-name (format "db-tests: ~a" db-type))
    (test-suite suite-name
      (test-case/fixture "basic operations"
        #:fixture db-conn-fixture
        (define db-conn (fixture-value db-conn-fixture))
        ...)
      (test-case/fixture "complex serializable keys and values"
        #:fixture db-conn-fixture
        (define db-conn (fixture-value db-conn-fixture))
        ...))))

(for ([current-test-suite db-test-suites])
  (run-tests current-test-suite))

更新：

我还找到了一种实际使用make-test-suite的方法：

(define all-tests (make-test-suite "db-test-suites" db-test-suites))

(run-tests all-tests)

这利用了一个事实，即测试套件可以包含其他嵌套的测试套件。我认为这种形式（单个run-tests调用）比上述形式（run-tests循环中多个for调用）更好。

我在原始问题中遇到的所有问题都是试图在test-case容器之外预先定义一堆test-suite实例。但是在这里，我们通过了make-test-suite个test-suite实例的列表，从而允许其中的测试推迟运行，直到我们以后调用run-tests为止。

动态生成机架单元测试套件：测试通过并引发异常

1 个答案: