球拍测试套件打印测试用例失败消息

Question

我有以下测试代码示例:

;; UNIT TESTS
(define (check-equal?-with-output a b failure-msg)
  (display "checking for equality:") (newline)
  (display a) (newline)
  (display b) (newline)
  (check-equal? a b failure-msg))
(define (run-test-newlines a-test-suite)
  (for-each
    (λ (elem)
      (display elem) (newline))
    (run-test a-test-suite)))
(define exercise-test
  (test-suite
    "exercise test"
    #:before (λ () (display "before") (newline))
    #:after (λ () (display "after") (newline))
    (test-case
      "test case for reverse using fold right"
      (check-equal?-with-output
        (reverse-fold-right (list 1 2 3))
        (list 3 2 1)
        "the procedure reverse-fold-right does not work correctly"))
    (test-case
      "test case for reverse using fold left"
      (check-equal?-with-output
        (reverse-fold-left (list 1 2 3))
        (list 3 2 1)
        "the procedure reverse-fold-left does not work correctly"))
  ))
(run-test-newlines exercise-test)

然而，当测试套件运行时，它只打印某事是成功还是失败，而不是像check-eq?文档中所示的失败消息。我如何使它在失败的情况下也打印该消息?

Answer 1

如果您使用的是测试套件，那么在默认情况下，它们不会显示出它们的错误。正如您所注意到的，它们只输出失败，而不输出原因。

如果你想要好的输出，你可以(require rackunit/text-ui)。这将给你一个(run-tests)函数，它接受一个测试名。

示例代码:

(define-test-suite logging-suite
  "Logging test suite"
  (test-case
    "Test we ignore bad input in the log"
    (check equal? (convert-xinput-log
                    '(
                      "bad data :O"
                      "key release 28"
                      "key release 26"
                      "key press 45646"
                      "key release 39"
                      "key release 28"))
                  '("t" "e" "r" "t"))))
(run-tests logging-suite)

输出如下:

--------------------
logging-suite > Test we ignore bad input in the log
Test we ignore bad input in the log
FAILURE
name:       check
location:   tests.rkt:30:4
params:     #<procedure:equal?>
'("t" "e" "s" "t")
'("t" "e" "r" "t")
Check failure
--------------------
0 success(es) 1 failure(s) 0 error(s) 1 test(s) run

希望有帮助