www

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

test-require-e-rename-failure.rkt (505B)

      1 #lang racket
      2 
      3 ;; Baz is a chimera created by mixing foo's identifier macro and bar's
      4 ;; match expander. Note that performing a plain rename-in on a polysemic
      5 ;; identifier would be a recipe for disaster (it would try to access meanings
      6 ;; based on its new name, instead of accessing meanings based on its former
      7 ;; name).
      8 
      9 (require rackunit
     10          syntax/macro-testing)
     11 
     12 (require (rename-in "test-require.rkt" [baz fuzz]))
     13 
     14 (check-exn #px"safeguard"
     15            (λ () (convert-compile-time-error fuzz)))