Question

我正在构建一组rackunit测试，其中实际的test-case和check-equal?函数在宏中定义。代码看起来像这样：

#lang racket

(require rackunit
         rackunit/text-ui)

(define-syntax (my-test=? stx)
  (syntax-case stx ()
    [(_ case1 case2)
     (syntax/loc stx
       (test-case "tests"
         (check-equal? case1 case2)))]))

(define tests
  (test-suite "tests"
    (my-test=? 'a 'b)))

(run-tests tests)

但是，当我运行此代码时，我得到以下输出：

--------------------
tests > tests
tests
FAILURE
name:       check-equal?
location:   unsaved-editor:11:9
actual:     'a
expected:   'b
. Check failure
--------------------
0 success(es) 1 failure(s) 0 error(s) 1 test(s) run

第11行是宏内check-equal?函数的行：(check-equal? case1 case2)))]))

我有什么方法可以在使用my-test=?的行上显示错误：(my-test=? 'a 'b)))？

Answer 1

您可以将语法位置直接放在check-equal?表达式上，以获得所需的行为。这是一个例子：

(define-syntax (my-test=? stx)
  (syntax-case stx ()
    [(_ case1 case2)
     (quasisyntax
       (test-case "tests"
         #,(syntax/loc stx (check-equal? case1 case2))))]))

将语法位置放在外部表达式上并不会自动传播它。

通过此更改，位置报告为＆＃34; 15：4＆＃34;对于我（而不是＆＃34; 11：9＆＃34;），这是(my-test=? 'a 'b)表达式发生的地方。

RackUnit源位置在宏内部

1 个答案: