www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

test-error.rkt (390B)

      1 #lang racket
      2 
      3 (require remember
      4          rackunit)
      5 (remember-input-file "input-error.rkt")
      6 (define-syntax (test-rem stx)
      7   (syntax-case stx ()
      8     [(_ val)
      9      (let ([v (syntax-e #'val)])
     10        (unless (remembered? 'err-category v)
     11          (remembered-error! 'err-category #'val)))
     12      #'(void)]))
     13 
     14 (test-rem one)
     15 (test-rem two)
     16 (check-equal? (+ 1 2) 3)
     17 (test-rem three)
     18 (test-rem four)