www

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

same-id-pattern-test.rkt (328B)

      1 #lang racket
      2 (require syntax/parse
      3          phc-ts/same-id-pattern
      4          rackunit)
      5 
      6 (check-true (syntax-parse #'(a 1 2 a 4)
      7                 [(y _ ... {~same-free-id y} _ ...) #t]
      8                 [_ #f]))
      9 
     10 (check-false (syntax-parse #'(a 1 2 b 4)
     11                 [(y _ ... {~same-free-id y} _ ...) #t]
     12                 [_ #f]))