gistfile1.txt

#lang racket/base
 
(require (for-syntax racket/base syntax/parse))
(module+ test (require rackunit))
 
(define-syntax (test+ stx)
  (syntax-parse stx
    #:literals (=>)
    [(_ (fn arg ...) => v)
     (with-syntax ([fn-name (symbol->string (syntax->datum #'fn))])
       (quasisyntax/loc stx
         (module+ test
           #,(syntax/loc stx
               (test-equal? fn-name
                            (fn arg ...) v)))))]))
 
(define (add-the-answer z)
  (+ z 42))
 
(test+ (add-the-answer -41) => 0)
 
 
;; Bonus: how could I make the macro accept
 
#|
(test+ (add-the-answer -41) => 0
       (add-the-answer 2 => 44)
 
|#