www

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

stx-sort-test.rkt (723B)

      1 #lang racket
      2 (require phc-ts/stx-sort
      3          syntax/parse
      4          phc-toolkit/untyped/aliases
      5          rackunit)
      6 
      7 (check-equal? (syntax-parse #'([a 3] [c 2] [b 1])
      8                 [{~sort [{~key k} v] …}
      9                  (syntax->datum #'([k . v] …))])
     10               '([a . 3] [b . 1] [c . 2]))
     11 
     12 (check-equal? (syntax-parse #'([a z y] [c x] [b w])
     13                 [{~sort [{~key k} . {~sort {~key v} …}] …}
     14                  (syntax->datum #'([k v …] …))])
     15               '([a y z] [b w] [c x]))
     16 
     17 (check-equal? (syntax-parse #'([a 5 4] [c 3 1 2] [b 0])
     18                 [{~sort [{~key k} . {~sort {~key v} …}] …}
     19                  (syntax->datum #'([k v …] …))])
     20               '([a 4 5] [b 0] [c 1 2 3]))