www

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

test-require-c.rkt (367B)

      1 #lang racket
      2 
      3 ;; Test without requiring polysemy
      4 
      5 (require rackunit)
      6 
      7 (require "test-provide.rkt"
      8          "test-provide-b.rkt")
      9 
     10 (check-equal? foo "originally foo")
     11 (check-equal? bar "originally bar")
     12 
     13 (check-match "originally foo match-expander" (foo))
     14 
     15 (check-equal? (match "something else"
     16                 [(foo) 'bad]
     17                 [_ 'ok])
     18               'ok)