www

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

test-2-require.rkt (476B)

      1 #lang racket
      2 
      3 (require polysemy
      4          rackunit
      5          syntax/macro-testing
      6          (poly-rename-in "test-2-provide.rkt"
      7                          [[foo bar] |(poly-case string?)|]
      8                          [[bar foo] |(poly-case string?)|]))
      9 
     10 (check-equal? (foo 1) 11)
     11 (check-equal? (foo "abc") "bar-abc")
     12 (check-equal? (bar 1) 21)
     13 (check-equal? (bar "abc") 3)
     14 (check-exn #px"overlap"
     15            (λ ()
     16              (convert-compile-time-error
     17               (baz "abc"))))